INPUT "vvedite koordinaty tochki a ", x1, y1
INPUT "vvedite koordinaty tochki b ", x2, y2
INPUT "vvedite koordinaty tochki c ", x3, y3
d1 = SQR((x1 - x2) ^ 2 + (y1 - y2) ^ 2)
d2 = SQR((x1 - x3) ^ 2 + (y1 - y3) ^ 2)
d3 = SQR((x3 - x2) ^ 2 + (y3 - y2) ^ 2)
IF d1 + d2 = d3 OR d1 + d3 = d2 OR d2 + d3 = d1 THEN PRINT "lejat na pryamoy" ELSE PRINT "ne lejat na pryamoy"
Тестирование выполнено в программе QB64 ( Скачать )