Составить и решить задачу с использованием условия оператора на языке Паскаль

Question

Информатика: Составить и решить задачу с использованием условия оператора на языке Паскаль

Anara2017 · Accepted Answer

Procedure TForm1.Button1Click(Sender: TObject);
var
x1,y1,x2,y2 : double;
d1,d2 : double;
begin
x1:= StrToFloat( Edit1.Text);
y1:= StrToFloat( Edit2.Text);
x2:= StrToFloat( Edit3.Text);
y2:= StrToFloat( Edit4.Text);

d1:=Sqrt(x1*x1+y1*y1); //Теорема Пифагора
d2:=Sqrt(x2*x2+y2*y2); //Теорема Пифагора

if (d1<d2) then
Label1.Caption := 'Ближе точка с координатами X1,Y1'
else
if (d1>d2) then
Label1.Caption := 'Ближе точка с координатами X2,Y2'
else
Label1.Caption := 'Точки находятся на одинаковом расстоянии'
end;

Для увеличения быстродействия алгоритма можно d1 и d2 рассчитывать так:
d1:= x1*x1+y1*y1;
d2:= x2*x2+y2*y2;

MOGZ ответил