С клавиатуры вводятся пары вещественных чисел - координаты x и y точек на плоскости. Координаты 0,0 служат для окончания ввода.
Вывести на экран координаты точки, находящейся на максимальном расстоянии от начала координат.
PascalABC
функцией или процедурой
Вывести на экран координаты точки, находящейся на максимальном расстоянии от начала координат.
PascalABC
функцией или процедурой
More Questions From This User See All
Answers & Comments
Procedure ABC();
Begin
Repeat
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
if (x*x+y*y)>(Xm*Xm+Ym*Ym) then
Begin
Xm:=x;
Ym:=y
End
Until (X = 0)and(Y = 0)
End;
Begin
Xm:=0;
Ym:=0;
ABC;
WriteLn('(',Xm,',',Ym,')')
End.