Директива REM или апостроф ' — обозначает комментарий к программе или команде. Вся строка (как правило, это поясняющий текст), что идет после знака комментария, не исполняется. Этот знак используется при отладке программ.
Оператор CLS — оператор очистки экрана. С него часто начинаются программы, работающие в текстовом режиме.
Директива END означает конец программы. Применение этой команды в конце программы не является обязательным.
Все формулы в QBasic записываются в строку, при этом используются следующие математические знаки:
"+" и "-" — сложение и вычитание;
"*" и "/" — умножение и деление;
"^" — возведение в любую степень;
В арифметических выражениях используются только круглые скобки и десятичная точка вместо запятой.
В QBasic применяются следующие встроенные функции:
SQR(X) — извлечение квадратного корня;
ABS(X) — модуль (абсолютная величина) числа;
SIN(X); COS(X); TAN(X) — тригонометрические функции синус, косинус и тангенс угла в радианах;
ATN(X) — арктангенс числа в радианах;
INT(X) — округление числа (дробная часть числа отбрасывается);
RND(X) — случайное число;
y MOD x — целый остаток от деления y на x.
LOG(X) — логарифмическая функция (натуральный логарифм по основанию e=2.71828);
EXP(X) — показательная (экспоненциальная) функция.
Для вывода (печати) информации на экран применяется оператор PRINT. Пример:
PRINT X — вывод на экран значения числа X.
PRINT "Скорость тела равна: V="; V; "м/с" — выводимый на экран текст указывается в кавычках. Вместо знака ";" можно ставить знак ",". Просто оператор PRINT без текста и знаков дает пустую строку на экране. Если при работе в среде QBasic 4.5 вместо слова PRINT ставить знак вопроса "?", а затем нажать Enter, то слово PRINT само появится на экране. Это упрощает работу программиста.
Ввод данных с клавиатуры осуществляется с помощью оператора INPUT
Пример: INPUT X — ввод числа X. На экране появится знак "?" и компьютер ждет ввода переменной Х (это приглашение ввести число). INPUT "Введите число Х="; X - можно вводить в кавычках подсказку, она будет выводиться на экран. После подсказки можно ставить знак "," вместо знака ";", но тогда знака вопроса "?" на экране не будет, а вместо него в качестве приглашения будет мигать курсор.
Пример 1: Вычислить площадь треугольника по формуле Герона.
CLS
'Определите площадь треугольника по формуле Герона.
INPUT "Введите величину стороны a: a=", a
INPUT "Введите величину стороны b: b=", b
INPUT "Введите величину стороны c: c=", c
p = (a + b + c) / 2
S = SQR(p * (p - a) * (p - b) * (p - c))
PRINT "Ответ: площадь треугольника равна: S="; S
Пример 2 (с использованием строковых переменных). Напечатайте на экране введенные с клавиатуры фамилию, имя и класс ученика.
CLS
INPUT "Введите свою фамилию: ", f$
INPUT "Введите свое имя: ", i$
INPUT "Введите свой класс: ", k$
PRINT f$; " "; i$; ", "; k$
END
Оператор безусловного перехода GOTO N, где N — метка. В качестве N можно взять любое число, не обязательно совпадающее с номером строки, так как строки можно не нумеровать. Но двух одинаковых меток в одной программе не должно быть. Исполнение программы будет продолжено с той ее части, которая начинается с указанной метки.
Пример:
.......
GOTO 10
.......
10 PRINT "Текст"
.......
Условный оператор IF...THEN...ELSE (Если...Тогда...Иначе):
IF <условие> THEN <список операторов> ELSE <список операторов>
Если заданное условие истинно, выполняется список операторов, стоящий после THEN, в противном случае выполняется список операторов, стоящий после ELSE. Слово ELSE может и отсутствовать. Тогда происходит переход к строке, следующей за оператором IF...THEN. Условия представляют собой логические соотношения: равенства или неравенства = равно, <> неравно, > больше, < меньше, >= больше или равно, <= меньше или равно. При использовании сложных условий (объединении двух и более условий) применяют слова AND (И) и OR (ИЛИ): Условие1 AND (или OR) Условие2...
Условный оператор позволяет реализовать алгоритм с ветвлением.
Пример:
CLS
INPUT "Введите год основания Москвы: M="; M
IF M = 1147 THEN PRINT "Вы правы!" ELSE PRINT "Вы ошиблись!"
Пример
CLS
PRINT "Вычислите y=1/(x-2) для всех x"
INPUT "Введите x=", x
IF x = 2 THEN PRINT "При x=2 функция не определена!": END
y = 1 / (x - 2)
PRINT "y="; y
Применяется также частный случай условного оператора - оператор условного перехода: IF <условие> GOTO N ELSE <список операторов> Число N - метка. Если условие выполняется, то происходит переход по метке N, а иначе выполняется список операторов, стоящих после ELSE. Слово ELSE может и отсутствовать. Тогда происходит переход к строке, следующей за оператором IF...GOTO.
Пример
CLS
INPUT "Если хочешь каникулы, вводи 1. Если нет, любое число. n=", n
IF n = 1 THEN GOTO 10 ELSE GOTO 20
10 PRINT "Хочу каникулы!": END
20 PRINT "Хочу учиться!"
Оператор цикла FOR...TO...NEXT... позволяет реализовать циклический алгоритм, когда часть программы может быть выполнена много раз подряд. FOR...TO... - начало цикла, NEXT... - конец цикла. То, что стоит между началом и концом цикла, называется телом цикла. Иногда также применяются вложенные циклы, то есть циклы могут быть вложенными один в другой.
FOR X=A TO B STEP H
...................
NEXT X
Здесь X — переменная, A — начальное значение переменной, B — конечное значение переменной, H - шаг, с которым меняется переменная. Если шаг STEP H отсутствует, то по умолчанию шаг H=1. При этом переменная X называется счетчиком цикла. Повторение участка программы с шагом H происходит до тех пор, пока X<B. Число повторений цикла равно (B-A)/H. При X=B цикл заканчивается и выполняется оператор, следующий за оператором конца цикла NEXT. Возможно, что шаг H<0, но тогда A>B.
Пример. Напечатать на экране текст 20 раз.
CLS
FOR X=1 TO 20
PRINT "С Новым Годом!"
NEXT X
Пример. Вычислить сумму n первых членов ряда S=1+1/4+1/9+...+1/n2
CLS
INPUT "Введите число членов ряда: n=", n
FOR i = 1 TO n
S = S + 1 / i ^ 2
NEXT i
PRINT "Сумма n первых членов ряда равна: S=", S
Пример. Нарисуйте 15 разноцветных концентрических окружностей.
SCREEN 7
FOR i = 1 TO 15
CIRCLE (160, 100), i * 6, i
NEXT i
Пример. Разлинуйте экран в клеточку.
SCREEN 7
FOR i = 1 TO 32
LINE (0, 10 * i)-(320, 10 * i), 15
LINE (10 * i, 0)-(10 * i, 200), 15
NEXT i
