Даны координаты 2 точек - QBasic

Формулировка задачи:

Даны координаты двух точек в прямоугольной системе координат.Составьте для ВЫЧИСЛИТЕЛЯ алгоритм с помощью которого он сможет определить какая из этих точек находится дальше: a)от начала координат б)от окружности данного радиуса с центром в начале координат.

Решение задачи: «Даны координаты 2 точек»

Листинг программы

CLS
INPUT "X1,Y1,X2,Y2 = "; x1, y1, x2, y2
 
r1 = SQR(x1 ^ 2 + y1 ^ 2)
r2 = SQR(x2 ^ 2 + y2 ^ 2)
 
IF r1 > r2 THEN
   PRINT "1"
ELSEIF r1 < r2 THEN
   PRINT ""; 2
ELSE
   PRINT "ODINAKOVO"
END IF
END

Объяснение кода листинга программы

Заданы координаты двух точек
Введены значения координат в переменные x1, y1, x2, y2
Вычислены радиусы окружностей для каждой точки по формуле r = sqrt(x^2 + y^2)
Сравниваются радиусы окружностей r1 и r2
Если r1 больше r2, то выводится 1
Если r1 меньше r2, то выводится `` (пустая строка)
Если r1 равно r2, то выводится ODINAKOVO