Ввод с клавиатуры

Описанный далее оператор INPUT дает возможность вводить данные во время выполнения программы, после чего эти данные обрабатываются программой. Появление на экране вопросительного знака означает запрос ввода. Ввод данных завершается нажатием клавиши , и введенное значение сохраняется в заданной переменной.

INPUT [Текст{;|,}] Имя_переменной [, Имя_переменной].

Текст- Текст, который будет выведен на экран перед тем, как пользователь осуществит ввод.
{;|,} - Точка с запятой обозначает, что после текста выводится знак вопроса для обозначения необходимости ввода данных. Если вместо точки с запятой стоит запятая, знак вопроса после текста не появится.

Имя_переменной - Переменные, в которых сохраняются вводимые данные. Объявление переменных должно быть выполнено в начале программы.

Пример 1:

В приведенной ниже программе вводятся значения трех переменных — height!, breadth!, length!.
Результат вычислений выводится на экран.

'Пример 1
DIM height!, breadth!, length!
CLS
INPUT height!
INPUT breadth!
INPUT length!
PRINT
PRINT "Результат "; height! * breadth! * length!
'Конец программы

Пример 2:

Предыдущая программа имеет очевидный недостаток, так как на экране не видно, что собственно требуется вводить. Однако в операторе INPUT имеется возможность перед каждым вводом данных выводить на экран текст.

'Пример 2
DIM height!, breadth!, length!
CLS
INPUT "Введите, пожалуйста, высоту :"; height!
INPUT "Введите, пожалуйста, ширину :"; breadth!
INPUT "Введите, пожалуйста, длину :"; length!
PRINT
PRINT "Результат V="; height! * breadth! * length!
'Конец программы

Применение точки с запятой приводит к тому, что после вывода текста на экране появляется знак вопроса, вывод которого можно отменить, если точку с запятой заменить запятой. Предложение INPUT будет выглядеть так:

INPUT "Введите, пожалуйста, высоту :", height!

Примечание: Оператор INPUT проверяет, соответствует ли тип вводимой величины типу указанной переменной. Если число с плавающей запятой записать в переменную типа INTEGER, то вводимая величина будет округлена до ближайшего большего целого числа. Если текст вводится в числовую переменную, QBASIC отказывается воспринимать данные и выдает сообщение об ошибке — "Redo from start" (Начните еще раз).