1 2 3 4 5 6 7 8 9 10 | INPUT "vvedite koordinaty tochki a ", x1, y1INPUT "vvedite koordinaty tochki b ", x2, y2INPUT "vvedite koordinaty tochki c ", x3, y3d1 = 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 THEN f = f + 1IF d1 = d3 THEN f = f + 1IF d2 = d3 THEN f = f + 1IF f > 1 THEN PRINT "ravnostoronniy" ELSE IF f = 1 THEN PRINT "ravnobedrennyj" ELSE PRINT "raznostoronnij" |
Тестирование выполнено в программе QB64 ( Скачать )