Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Теоретические вопросы _ nuzen sovet

Автор: 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;

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

Автор: Vit 14.02.2003 18:56

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


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

Автор: mj 14.02.2003 20:06

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

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