Question

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

Answer 1

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