Дуже потрібна ваша до , велика винагорода за завдання, на перед дякую! Очень нужна ваша сделайте, большая - id1810305620210514 от agharkova2014 14.05.2021 12:29

Question

Информатика: Дуже потрібна ваша до , велика винагорода за завдання, на перед дякую! Очень нужна ваша сделайте, большая награда за задание) За рание ! ​

agharkova2014 · 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 ответил

Дуже потрібна ваша до , велика винагорода за завдання, на перед дякую! Очень нужна ваша сделайте, большая награда за задание) За рание !