ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 24.10.2023
Просмотров: 21
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
 | Российский государственный социальный университет |
Итоговый контроль
по дисциплине «Программирование»
| ФИО студента | Жакбаров Одилбек Очилбек угли |
| Направление подготовки | Информационные системы и технологии |
| Группа | ИСТ-Б-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