Лабораторная работа №1.
Студента 2 курса
Группа ДЛТ-101
Дмитракова С.И
Преподаватель:
Рачина Е.А.
Цели работы:
1. Закрепить знания теоретического материала по теме «Линейные алгоритмы»
2. Научиться использовать компоненты Edit,Label,Button в программе. Закрепить знания их основных свойств.
3.Закрепить знания по использованию функций перевода.
4.Научиться сохранять, открывать и редактировать написанные программы.
5.Познакомится с основными методами и способами визуального программирования в среде Delphi.
1. Формулировка задачи. Составить и отладить программу нахождения расстояния на плоскости между точками (; ) и (; ) по формуле
Текст программы.
procedure TForm1.Button1Click(Sender: TObject);
var x1,x2,y1,y2,d:real;
begin
x1:=strtofloat(edit2.Text);
x2:=strtofloat(edit3.Text);
y1:=strtofloat(edit4.Text);
y2:=strtofloat(edit5.Text);
d:=sqrt(sqrt(x2-x1)+sqrt(y2-y1));
Label1.caption:=floattostr(d);
end;