Предмет: Информатика,
автор: OlgaBoyko
С клавиатуры вводятся пары вещественных чисел - координаты x и y точек на плоскости. Координаты 0,0 служат для окончания ввода.
Вывести на экран координаты точки, находящейся на максимальном расстоянии от начала координат.
PascalABC
функцией или процедурой
Ответы
Автор ответа:
0
Var X,Y,Xm,Ym:real;
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.
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.
Похожие вопросы
Предмет: Алгебра,
автор: bogdangolosapov66
Предмет: Физика,
автор: okc0677
Предмет: Математика,
автор: Zlatka22
Предмет: Информатика,
автор: Korolev2029
Предмет: Экономика,
автор: mimi862