Даны координаты 2 точек - QBasic
Формулировка задачи:
Даны координаты двух точек в прямоугольной системе координат.Составьте для ВЫЧИСЛИТЕЛЯ алгоритм с помощью которого он сможет определить какая из этих точек находится дальше:
a)от начала координат
б)от окружности данного радиуса с центром в начале координат.
Решение задачи: «Даны координаты 2 точек»
textual
Листинг программы
- 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д