задача по паскаль.

[Дашенька11]

Составить программу, которая позволяет по координатам определить какая из точек А(x1,y1) или B(x2,y2) находится ближе к началу координат или на одинаковом расстоянии. Программа должна использовать вызов внешней библиотеки, которая позволяет подсчитывать расстояние от точки до начало координат.дайте кто нибудь решение.

[VIK_aka_TOR]

используй прямоугольные треугольники, х - один катет, у - второй катет... гипотенуза - это расстояние от точки до центра круга... вот и сравниваете эти две гипотенузы...

[Дашенька11]

спасибо,но мне саму программу надо составить....а я не знаю как....

[VIK_aka_TOR]

var
ax,ay,bx,by: integer; // наши координаты
b,a :real; // гипотенуза - расстояние до начала координат
begin
  write('Введите координаты точки А(x,y): ');
  readln(ax, ay);
  write('Введите координаты точки B(x,y): ');
  readln(bx, by);
  a := sqrt(ax *ax + ay * ay);
  b := sqrt(bx * bx +by *by);
    if a > b then
      writeln(' B ближе к началу координат')
      else     if a < b then
      writeln(' A ближе к началу координат')
        else  if a = b then
      writeln(' Точки А и В находятся на одинаковом расстоянии'); 
end.