Даны точки А,В,С. Определить какая точка дальше от начала координат — QBasic(Бейсик)

INPUT "vvedite tochku a ", a
INPUT "vvedite tochku b ", b
INPUT "vvedite tochku c ", c
IF (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"

Следующий вариант

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 = 1
FOR i = 2 TO 3
    IF L(max) < L(i) THEN max = i
NEXT i
PRINT CHR$(max + 64)

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment