nuzen sovet Опции

[dina]

pomogite razobratsja, kak v programe na vytsisslenie rasstojani mezdu 2 totskami  virazenie dist:= sqrt(sqr(t2.x-t1.x)+sqr(t2.y-t2.x)) zamenit na funktsiju, dopustim Function Dist (P1, P2 : tPoint): real; ???

[Vit]

Function Dist (t1, t2 : tPoint): real;
begin
 result:=sqrt(sqr(t2.x- t1.x)+sqr(t2.y-t2.x))
end;

[___ALex___]

Function Dist (t1, t2 : tPoint): real;
begin
 Dist:=sqrt(sqr(t2.x- t1.x)+sqr(t2.y-t2.y))
end;

[mj]

Function Dist (t1, t2 : tPoint): real;
begin
 result:=sqrt(sqr(t2.x- t1.x)+sqr(t2.y-t2.x))
end;

Забываешь потихоньку паскаль

[Vit]

Забываешь потихоньку паскаль

Не забываю, просто Result появился начиная с Turbo Pascal 6, и мне просто в голову не пришло что кто-то пользуется чем-то более древним

[mj]

Не забываю, просто Result появился начиная с Turbo Pascal 6, и мне просто в голову не пришло что кто-то пользуется чем-то более древним

Стока писал на паскале и не знал этого... блин блин блин...
Я думал тока в Delphi это появилось...