Полная версия: nuzen sovet
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; ???
Function Dist (t1, t2 : tPoint): real;
begin
result:=sqrt(sqr(t2.x- t1.x)+sqr(t2.y-t2.x))
end;
begin
result:=sqrt(sqr(t2.x- t1.x)+sqr(t2.y-t2.x))
end;
Function Dist (t1, t2 : tPoint): real;
begin
Dist:=sqrt(sqr(t2.x- t1.x)+sqr(t2.y-t2.y))
end;
begin
Dist:=sqrt(sqr(t2.x- t1.x)+sqr(t2.y-t2.y))
end;
Цитата
Function Dist (t1, t2 : tPoint): real;
begin
result:=sqrt(sqr(t2.x- t1.x)+sqr(t2.y-t2.x))
end;
begin
result:=sqrt(sqr(t2.x- t1.x)+sqr(t2.y-t2.x))
end;
Забываешь потихоньку паскаль
Цитата
Забываешь потихоньку паскаль
Не забываю, просто Result появился начиная с Turbo Pascal 6, и мне просто в голову не пришло что кто-то пользуется чем-то более древним
Цитата
Не забываю, просто Result появился начиная с Turbo Pascal 6, и мне просто в голову не пришло что кто-то пользуется чем-то более древним
Стока писал на паскале и не знал этого... блин блин блин...
Я думал тока в Delphi это появилось...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.