Паскаль!
На плоскости заданы три точки своими координатами. Определить расстояние от точек до начала координат и напечатать, какая из точек расположена ближе к началу координат. (с повтором)

Вопрос школьника по предмету Информатика

Паскаль!
На плоскости заданы три точки своими координатами. Определить расстояние от точек до начала координат и напечатать, какая из точек расположена ближе к началу координат. (с повтором)

Ответ учителя по предмету Информатика

var x1,y1,x2,y2,x3,y3,r1,r2,r3:real; min,p:integer;

begin

repeat

 write(‘x1, y1: ‘);

 readln(x1,y1);

 write(‘x2, y2: ‘);

 readln(x2,y2);

 write(‘x3, y3: ‘);

 readln(x3,y3);

 r1:=sqrt(x1*x1+y1*y1);

 r2:=sqrt(x2*x2+y2*y2);

 r3:=sqrt(x3*x3+y3*y3);

 writeln(‘r1 = ‘,r1:5:2,’ r2 = ‘,r2:5:2,’ r3 = ‘,r3:5:2);

 if r1<r2 then min:=1 else min:=2;

 if r3<min then min:=3;

 writeln(‘К началу координат ближе точка № ‘,min);

 write(‘Хотите повторить? (1-да, 0-нет) ‘);

 readln(p);

until p<>1;

end.

Пример:

x1, y1: 3 -2

x2, y2: -4 1

x3, y3: 5 0

r1 =  3.61 r2 =  4.12 r3 =  5.00

К началу координат ближе точка № 1

Хотите повторить? (1-да, 0-нет) 1

x1, y1: 8 0

x2, y2: -3 4

x3, y3: 5 -2

r1 =  8.00 r2 =  5.00 r3 =  5.39

К началу координат ближе точка № 2

Хотите повторить? (1-да, 0-нет) 0