Умова: На площині дано дві точки (х1, у1) та (х2, y2). Визначити, яка з них знаходиться далі від початку координат.
Для розв'язання цієї задачі необхідно скористатися теоремою Піфагора для знаходження відстані від початку координат до заданої точки :
Очевидно, що відстань від початку координат до точки з координатами (х,у) буде обчислюватись наступним співвідношенням:
S= 
Зверніть увагу: в зв'язку з тим, що кожна з координат у формулі підноситься до квадрату, неважливо, в якій чверті координатної площини буде знаходитись точка.
Виходячи з усього вищесказаного, програма для розв'язання даної задачі має наступний вигляд:
Текст програми:
Program Р7;
Uses crt;
Var Xl,Yl,X2,Y2:real; {X1,Y2,X2,Y2 - координати даних точок}
SI , S2 : real ; {S1,S2 — відстані відповідно до першої та другої точки}
Begin
Clrscr ; {Очищення екрану}
Write ( 'Введіть координати першої точки: ' ) ;
Readln(Xl,Yl) ;
Write ( 'Введіть координати другої точки: ' ) ;
Readln(X2,Y2) ;
Sl:=sqrt(sqr(Xl)+sqr(Yl)) ;
S2:=sqrt(sqr(X2)+sqr(Y2)) ;
If S1 < S2
Then Writeln( 'Друга точка далі від початку координат' )
Else Writeln ( 'Перша точка далі від початку координат' ) ;
Readkey; {Затримка зображення на екрані до натискання будь-якої клавіші}
End.
