Автор: dina 11.02.2003 18:45
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 11.02.2003 19:38
Function Dist (t1, t2 : tPoint): real;
begin
result:=sqrt(sqr(t2.x- t1.x)+sqr(t2.y-t2.x))
end;
Автор: ___ALex___ 11.02.2003 19:56
Function Dist (t1, t2 : tPoint): real;
begin
Dist:=sqrt(sqr(t2.x- t1.x)+sqr(t2.y-t2.y))
end;
Автор: mj 14.02.2003 7:22
Цитата
Function Dist (t1, t2 : tPoint): real;
begin
result:=sqrt(sqr(t2.x- t1.x)+sqr(t2.y-t2.x))
end;
Забываешь потихоньку паскаль
Автор: Vit 14.02.2003 18:56
Цитата
Забываешь потихоньку паскаль
Не забываю, просто Result появился начиная с Turbo Pascal 6, и мне просто в голову не пришло что кто-то пользуется чем-то более древним
Автор: mj 14.02.2003 20:06
Цитата
Не забываю, просто Result появился начиная с Turbo Pascal 6, и мне просто в голову не пришло что кто-то пользуется чем-то более древним
Стока писал на паскале и не знал этого... блин блин блин...
Я думал тока в Delphi это появилось...