
Цель: Практически закрепить знания и умения использования возможностей среды Delphi для создания программ линейной структуры.
Ход работы:
- Создать в своей папке в папке MyPrograms_Delphi папку ПР№7.
- Создать в папке в текстовом редакторе Word файл с именем ПР№7_МАТ_вирази_ПИБ, в котором выполнить Завдання1 (Заполнить таблицу 2).
Задание 1.Ознакомиться с таблицей 1 и заполнить таблицу 2.
Создать проекты решения задач в Delphi:
Задача 1. Найдите площадь равностороннего треугольника со стороной a см, а также радиус описанной вокруг него окружности.
Входные данные. Сторона а треугольника вводится с клавиатуры.
Исходные данные | Площадь треугольника и радиус описанной окружности выводятся на экран
Создайте обработчик события OnClick кнопки для вычисления площади. Напишите туда следующий код:
procedure TForm1.Button1Click (Sender: TObject); var
S, a: Real; begin
a = StrToFloat (Edit1.Text); // вводим а S = a * a * sqrt (3) / 4; // вычисляем площадь
ShowMessage ( ‘Площадь: «+ FloatToStr (S)) // выводим площадь на экран end;
Создайте обработчик события OnClick кнопки для вычисления радиуса. Напишите туда следующий код:
procedure TForm1.Button2Click (Sender: TObject); var
R, a: Real; begin
a = StrToInt (Edit1.Text); // вводим а R = a / sqrt (3); // вычисляем радиус
ShowMessage ( ‘Радиус: «+ FloatToStr (R)) // выводим радиус на экран end;
Запустите программу и проверьте правильность ее работы.
Задача 2. Дано функцию .Вычислить f (x) при произвольном значении х.
2
Входные данные. Х вводится с клавиатуры.
Исходные данные. Значение f (x) выводится на экран.
Решение. Создайте форму:
Напишите обработчик события OnClick кнопки: procedure TForm1.Button2Click (Sender: TObject); var
x, fx: real; begin
x = StrToFloat (Edit1.Text);
fx = (x * x + cos (x)) / 2; ShowMessage (FloatToStr (fx)) end;
Запустите программу на выполнение.
Самостоятельно создать проекты решения задач в Delphi:
Задача 3. Дан прямоугольный треугольник с гипотенузой с и острым углом α (в градусах).
Вычислить второй острый угол и катеты.
Входные данные. Длина гипотенузы с и острый угол α вводится с клавиатуры.
Исходные данные. Второй острый угол и катеты выводятся на экран.
Указание. Второй острый угол β = 90 — α. Катеты можно вычислить по формулам:
Задача 4. Вычислить объем правильной четырехугольной пирамиды со стороной основания а и высотой h.
Входные данные. Сторона основания а и высота h вводятся с клавиатуры.
Исходные данные. Объем выводится на экран.
Указание.
Задача 5. Вычислить площадь треугольника, если даны три его стороны.
Входные данные. Стороны треугольника a, b, c вводятся с клавиатуры.
Исходные данные. Площадь треугольника выводится на экран.
(Формула Герона для площади
треугольника)
Задача 6. Одна труба наполняет бассейн за M часов, а другая за N часов. За сколько часов они наполнят бассейн, работая вместе?
Входные данные.Времена M и N вводятся с клавиатуры.
Исходные данные. Время наполнения бассейна обеими трубами выводится на экран.
Задача 7. Одна бригада выполняет работу по M часов, а две вместе исполнили ее за N часов.
За сколько часов выполнит работу вторая бригада, работая одна?
Входные данные. Времена M и N вводятся с клавиатуры.
Исходные данные. Время выполнения работы второй бригадой выводится на экран.
Задача 8. Даны два катеты прямоугольного треугольника. Определить радиус описанной вокруг него окружности.
Входные данные. Катеты прямоугольного треугольника a и b вводятся с клавиатуры.
Исходные данные. Длина радиуса описанной окружности выводится на экран.
Указание. Радиус описанной окружности равен половине гипотенузы. то есть ???? = ???? = √???? 2 + ???? 2.
Задача 9. Найти периметр квадрата, равновеликого прямоугольнике со сторонами M, N.
Входные данные. Стороны прямоугольника M, N вводятся с клавиатуры.
Исходные данные. Периметр квадрата выводится на экран.
Указание. Равновеликими называются фигуры, имеют равную площадь.
Задача 10. Вычислить площадь равностороннего треугольника со стороной а.
Входные данные. Сторона треугольника а вводится с клавиатуры.
Исходные данные. Площадь треугольника выводится на экран.
Указание. Площадь равностороннего треугольника
вычисляется по формуле ???? = ???? 2 √ 3 / 4.
- Создать проект «Калькулятор» для выполнения 4 действий.
Подсказка. для кнопки указать на событие On Click код
Edit3.Text: = FloatToStr (StrToFloat (Editl.Text) + StrToFloat (Edit2. Text))
контрольные вопросы
- Укажите назначение строки кода ShowMessage ( ‘Площадь: «+ FloatToStr (S)) ;.
- Укажите назначение функции inc (x, y).
- Укажите назначение функции inc (x).
- Расписать выражение по правилам Delphi
.