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

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

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

Код к задаче: «Даны координаты двух точек, надо найти расстояние между ними - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

8   голосов, оценка 4.500 из 5


СОХРАНИТЬ ССЫЛКУ