Даны координаты двух точек, надо найти расстояние между ними - QBasic

Узнай цену своей работы

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

Даны координаты двух точек. Найти расстояние между ними

Решение задачи: «Даны координаты двух точек, надо найти расстояние между ними»

textual
Листинг программы
CLS
 
INPUT "X1,Y1 = "; x1, y1
INPUT "X2,Y2 = "; x2, y2
 
R = SQR((x1 - x2) ^ 2 + (y1 - y2) ^ 2)
PRINT "RASTOYANIE ="; R
END

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

  1. CLS — очистка экрана
  2. INPUTX1,Y1 = ; x1, y1 — ввод координат первой точки
  3. INPUTX2,Y2 = ; x2, y2 — ввод координат второй точки
  4. R = SQR((x1 - x2) ^ 2 + (y1 - y2) ^ 2) — вычисление расстояния между точками по формуле расстояния между двумя точками в декартовой системе координат
  5. PRINTRASTOYANIE =; R — вывод результата на экран

Оцени полезность:

8   голосов , оценка 4.5 из 5
Похожие ответы