Question

Составить программу нахождения наибольшего из трех чисел: A, B, C (числа вводит пользователь). ЯЗЫК qBasic СРОЧНО!!!

Answer 1

CLS

INPUT "A, B, C = "; a, b, c

IF a > b AND a > c THEN

PRINT "max ="; a

ELSEIF b > a AND b > c THEN

PRINT "max ="; b

ELSEIF c > a AND c > b THEN

PRINT "max ="; c

ELSEIF a = b OR b = c OR c = a THEN

PRINT "all numbers are the same"

END IF

END

Answer 2

Вот пример программы на языке QBasic, которая находит наибольшее из трех чисел, введенных пользователем:

qbasicCopy code
DECLARE FUNCTION FindMax (A AS INTEGER, B AS INTEGER, C AS INTEGER) AS INTEGER

CLS
PRINT "Введите первое число:"
INPUT A
PRINT "Введите второе число:"
INPUT B
PRINT "Введите третье число:"
INPUT C

PRINT "Наибольшее число: " + STR$(FindMax(A, B, C))

FUNCTION FindMax (A AS INTEGER, B AS INTEGER, C AS INTEGER) AS INTEGER
    IF A > B THEN
        IF A > C THEN
            FindMax = A
        ELSE
            FindMax = C
        END IF
    ELSE
        IF B > C THEN
            FindMax = B
        ELSE
            FindMax = C
        END IF
    END IF
END FUNCTION

Эта программа сначала запрашивает у пользователя три числа (A, B и C), а затем вызывает функцию FindMax, чтобы определить наибольшее из них. Функция FindMax сравнивает числа между собой и возвращает наибольшее из них. Результат выводится на экран.

Обратите внимание, что QBasic не является популярным языком программирования в наши дни, и его поддержка может быть ограниченной. Рекомендуется использовать более современные языки программирования, такие как Python, Java или C++, чтобы получить больше возможностей и поддержку.