*Вычислить расстояние между двумя точками с координатами х1, у1 и х2, у2.

x1:=strtofloat(adit1.text);
x2.........
y1
y2
leng:=sqrt(sqr(x2-x1)+sqr(y2-y1));
edit5.text:=floattostr(leng);
end;

• < Назад
• Вперёд >