Российский государственный социальный университет

Итоговый контрольпо дисциплине «Программирование»

ФИО студента	Жакбаров Одилбек Очилбек угли
Направление подготовки	Информационные системы и технологии
Группа	ИСТ-Б-01-З-2021-2_ДИСТАНТ

Москва 2022Вариант 6Найти площадь равнобедренной трапеции по задаваемым пользователем величинам оснований A и B, и высоты hРешение.Создаем форму для вычисления Вносим локальнИе переменные (var) в код и назначения для запуска операторного блока (begin) с присвоением свойств. Делаем это для всех активных полей и кнопок.

var

Form2: TForm2;

a,b,h,s: real;

implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);

begin

a := StrToFloat(Edit1.Text);

b := StrToFloat(Edit2.Text);

h := StrToFloat(Edit3.Text);

s := (a+b)*h/2;

Label5.Caption := FloatToStrF(s,ffFixed,4,2)

end;
procedure TForm2.Button2Click(Sender: TObject);

begin

Label5.Caption := ''; Edit1.Text := ''; Edit2.Text := '';

end;
procedure TForm2.Button3Click(Sender: TObject);

begin

close

end;
end.
Ksenia, [18.06.2022 14:52]

[ Фотография ]

это твой код.
Проверяем работу программы. Видим, что при нажатии кнопки вычислить, происходит расчет гипотенузы согласно формуле.

---

Кнопка очистить убирает заполненные данные. Выход – закрывает окно программы.Программа считает площадь по формуле. Аналогично возможно очистить и заново ввести данные и завершить работу программы.
Вывод:
При помощи Delphi можно создаварть алгоритмы программ для вычисления различных формулф по заданным параметри


МОСКВА 2022

---

Смотрите также файлы

• Методические рекомендации Вологда 2012.doc

• Тип ответа Множественный выбор.docx

• Задача 1 (.docx

• Система менеджмента качества в области образования, воспитания, науки и инноваций сертифицирована dqs по международному стандарту iso 9001 2015.docx

• Российский государственный социальный университет Итоговый контроль по дисциплине Программирование.docx