Цитата:
|
Сообщение от Klyaksa
Код:
rast:=3.87;//константа
......
xrsa:=x1-bx;
yrsa:=y1-by;
karta.Canvas.MoveTo(x1,y1);
karta.Canvas.LineTo(bx,by);
rrsa:=(round(sqrt(abs(sqr(xrsa)+ sqr(yrsa)))*rast));
pos.Caption:=format('Длина~=%d',[rrsa]); |
Честно не понял, как этот код относится к указанной проблеме.
Кстати abs здесь лишняя.