1.

Написать

программу для решения задачи: Точки на плоскости

заданы своими координатами. Определить какая из них находится ближе к началу

координат.

Question

Информатика

Миханя

16 мая, 17:55

1.

Написать

программу для решения задачи: Точки на плоскости

заданы своими координатами. Определить какая из них находится ближе к началу

координат.

+2

Ответы (1)

Знаете ответ на вопрос?

Гертруда · Answer 1

Uses crt;

var n, minind, i:integer;

min, x, y:real;

begin

writeln ('Введите количество точек: ') ;

read (n) ;

writeln ('Вводите по очереди координаты x и y точек.') ;

read (x, y) ;

min:=sqr (x) + sqr (y) ;

minind:=1;

for i:=2 to n do

begin

read (x, y) ;

if sqr (x) + sqr (y)
begin

min:=sqr (x) + sqr (y) ;

minind:=i;

end;

end;

writeln ('Точка под номером ', minind,'.') ;

end.

1.Написатьпрограмму для решения задачи: Точки на плоскостизаданы своими координатами. Определить какая из них находится ближе к началукоординат.

1.

Написать

программу для решения задачи: Точки на плоскости

заданы своими координатами. Определить какая из них находится ближе к началу

координат.