1 2 3 4 5 6 7 | 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 ( Скачать )