1 2 3 4 5 6 | INPUT "vvedite tochku a ", aINPUT "vvedite tochku b ", bINPUT "vvedite tochku c ", cIF (ABS(a) > ABS(b)) AND (ABS(a) > ABS(c)) THEN PRINT "tochka a"IF (ABS(b) > ABS(a)) AND (ABS(b) > ABS(c)) THEN PRINT "tochka b"IF (ABS(c) > ABS(a)) AND (ABS(c) > ABS(b)) THEN PRINT "tochka c" |
Следующий вариант
1 2 3 4 5 6 7 8 9 | DIM L(1 TO 3)L(1) = sqrt(Ax ^ 2 + Ay ^ 2)L(2) = sqrt(Bx ^ 2 + By ^ 2)L(3) = sqrt(Cx ^ 2 + Cy ^ 2)max = 1FOR i = 2 TO 3 IF L(max) < L(i) THEN max = iNEXT iPRINT CHR$(max + 64) |
Тестирование выполнено в программе QB64 ( Скачать )