1 2 3 4 5 6 7 8 9 10 11 12 13 | INPUT "vvedite koordinaty x 1 tochki ", x1INPUT "vvedite koordinaty y 1 tochki ", y1INPUT "vvedite koordinaty x 2 tochki ", x2INPUT "vvedite koordinaty y 2 tochki ", y2INPUT "vvedite koordinaty x 3 tochki ", x3INPUT "vvedite koordinaty y 3 tochki ", y3d1 = SQR((x1 - x2) ^ 2 + (y1 - y2) ^ 2)d2 = SQR((x1 - x3) ^ 2 + (y1 - y3) ^ 2)d3 = SQR((x2 - x3) ^ 2 + (y2 - y3) ^ 2)p = d1 + d2 + d3s = SQR(p / 2 * (p / 2 - d1) * (p / 2 - d2) * (p / 2 - d3))PRINT "perimetr="; pPRINT "ploshad="; s |
Тестирование выполнено в программе QB64 ( Скачать )