Текст программы. 1. Закрепить знания теоретического материала по теме «Линейные алгоритмы»

Лабораторная работа №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;