Язык паскаль онлайн

Цель: Практически закрепить знания и умения использования возможностей среды Delphi для создания программ линейной структуры.

Ход работы:

1. Создать в своей папке в папке MyPrograms_Delphi папку ПР№7.
2. Создать в папке в текстовом редакторе 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.

1. Создать проект «Калькулятор» для выполнения 4 действий.

Подсказка. для кнопки указать на событие On Click код

Edit3.Text: = FloatToStr (StrToFloat (Editl.Text) + StrToFloat (Edit2. Text))

контрольные вопросы

1. Укажите назначение строки кода ShowMessage ( ‘Площадь: «+ FloatToStr (S)) ;.
2. Укажите назначение функции inc (x, y).
3. Укажите назначение функции inc (x).
4. Расписать выражение по правилам Delphi .