3.3. Программирование на языке Quick Basic
Рассмотрим подробно язык программирования Quick Basic.
Алфавит данного языка содержит в себе следующие символы:
Заглавные буквы латинского алфавита. При наборе программы, впрочем, нет нужды следить за тем, чтобы буквы были заглавными. Интерпретатор сам изменит строчные буквы на заглавные.
Арабские цифры.
Разделители: , (запятая), ; (точка с запятой), . (точка), : (двоеточие), ` (апостроф), “ (кавычки), ( ) (скобки), символ <Пробел>.
Знаки арифметических операций: + (сложение), - (вычитание), * (умножение), / (деление), ^ (возведение в степень).
Знаки операций отношений: > (больше), < (меньше), = (равно), <> (не равно), >= (больше либо равно), <= (меньше либо равно).
Для создания программ довольно часто требуются переменные, то есть такие области оперативной памяти, которые имеют имя, данное программистом, и значения, которые могут меняться. Имя переменной в ходе выполнения программы постоянно, а значение может меняться многократно. Существуют ограничения на имена переменных:
имя переменной должно состоять не боле чем из сорока символов;
в качестве символов можно использовать только латинские буквы и цифры;
имя переменной не может начинаться с цифры;
запрещены в именах символы точки, запятой, звездочки, вопросительного знака, пробела.
Переменные различаются по типу хранимой в них информации. Два наиболее крупных типа – числовой (для хранения чисел) и строковый (для хранения символов и строк). Во втором случае к имени переменной добавляется обязательный символ $.
Чтобы вычислять элементарные арифметические выражения, необходимо представить выражение в понятном для компьютера виде, а именно:
в отличие от арифметики, выражение должно быть записано в одну строку без числителей и знаменателей;
для записи арифметических действий допустимо использовать только перечисленные ниже знаки:
+ (сложение);
– (вычитание);
* (умножение);
/ (деление);
^ (возведение в степень);
( ) (скобки);
недопустим пропуск знака умножения между коэффициентом и переменной, как это возможно в алгебре;
дробная часть отделяется от целой точкой, а не запятой;
допустимо опускать в записи десятичной дроби ноль, стоящий перед точкой (вместо 0.561 можно .561).
Чтобы компьютер вычислил выражение правильно, необходимо помнить о приоритете выполнения действий:
сначала выполняются действия в скобках;
далее вычисляются функции, если они есть;
затем выполняется возведение в степень;
потом умножение и деление;
в последнюю очередь – сложение и вычитание.
Действия одинаковой очередности выполняются слева направо.
При решении различных задач с помощью компьютера бывает необходимо вычислить логарифм или модуль числа, синус или тангенс угла и т.п. Вычисления часто употребляемых функций осуществляются посредством подпрограмм, называемых стандартными функциями, которые заранее запрограммированы и встроены в транслятор языка.
Числовые функции
Функция
|
Описание
|
ABS (X)
ATN (X)
CDBL (X)
CINT (X)
CLNG (X)
COS (X)
CSNG (X)
EXP (X)
FIX (X)
INT (X)
LOG (X)
RND (X)
SCN (X)
SIN (X)
SQR (X)
TAN (X)
|
Возвращает абсолютное значение (модуль) аргумента
Арктангенс (в радианах)
Переводит числовое выражение в значение с двойной точностью
Округление
Округление числового выражения до длинного (4 байта) целого значения
Косинус
Переводит числовое выражение в значение с одинарной точностью
Экспонента ех
Округление выражения с плавающей запятой до его целой части
Возвращает наибольшее целое, меньшее либо равное числовому выражению
Натуральный логарифм числового выражения
Случайное число одинарной точности между 0 и 1
Возвращает значение знака числового выражения (1, если выражение положительное; 0, если равно 0 и – 1, если отрицательно)
Синус
Корень квадратный
Тангенс
|
Приведем список основных операторов языка Quick Basic.
Операторы выбора и перехода
Оператор
|
Описание
|
GOTO
IF … THEN … ELSE
SELECT CASE
|
Безусловный переход на метку
Переход в зависимости от истинности или ложности проверяемого условия
Переход в зависимости от значения выражения
|
Операторы и функции для работы с файлами
Оператор,
функция
|
Описание
|
CLOSE
FIELD
FILEATTR
GET
INPUT #
IOCTL
LINE INPUT #
LOCK
OPEN
PRINT #
PRINT # USING
PUT
RESET
SEEK
UNLOCK
WRITE #
|
Закрывает один или несколько файлов или устройств
Отводит место под переменные в буфере файлов прямого доступа
Возвращает информацию об открытом файле
Считывает из файла в буфер прямого доступа или в переменную
Считывает данные из файла
Посылает управляющую строку драйверу устройства
Считывает строку до 255 символов с клавиатуры или из файла
Ограничивает или закрывает доступ к файлу при работе в сети
Открывает файл или устройства
Записывает данные в файл
Записывает отформатированные данные в файл
Записывает содержимое переменной или буфера прямого доступа в файл
Закрывает все открытые файлы и устройства
Устанавливает позицию файла для последующей записи или считывания
Снимает ограничения, наложенные последним оператором LOCK
Записывает данные в последовательный файл
|
Переменные
Конструкция
|
Описание
|
CLEAR
CONST
DATA
INPUT
LET
RANDOMIZE
READ
RESTORE
SWAP
|
Закрывает все файлы, освобождает буферы файлов, очищает все общие переменные, устанавливает числовые переменные и массивы в ноль, устанавливает строковые переменные в ноль и инициализирует стек. Кроме того, CLEAR может изменять размер стека
Описывает одну или несколько символьных переменных
Указывает значение данных для последующего считывания у оператора READ
Считывает входные данные с клавиатуры или из файлов
Присваивает значение выражения переменной
Инициализирует генератор случайных чисел
Считывает данные, указанные в операторе DATA
Восстанавливает считанные значения в операторе DATA
Обменивает значения двух переменных
|
Массивы
Конструкция
|
Описание
|
DIM
ERASE
OPTION BASE
REDIM
|
Оператор объявления массива
Для статических массивов каждому элементу присваивается ноль. Для стокового – определяются строки нулевой длины. Для динамического – освобождает память, используемую массивом
Устанавливает нижнюю границу индекса массива
Описывает или изменяет размер динамического массива
|
Циклы
Оператор
|
Описание
|
DO … LOOP
END
FOR … NEXT
WHILE … WEND
|
Повторяет блок операторов, пока условие верно, или пока оно не станет верным
Заканчивает программу, процедуру или блок
Цикл с параметром, заранее известным числом повторений
Выполняет блок операторов, пока указанное условие верно
|
Подпрограммы и функции
Оператор
|
Описание
|
CALL
DECLARE
DEF FN
FUNCTION
GOSUB
ON GOSUB
RETURN
SUB
|
Передает управление в процедуру типа SUB
Описывает процедуру типа FUNCTION или SUB
Определяет функцию
Определяет процедуру FUNCTION
Переходит в подпрограмму и возвращается из нее
Выполняет переход к одной из нескольких подпрограмм в зависимости от выражения
Возвращает из подпрограммы в основную программу
Определяет процедуру SUB
|
Пример 1. В стене существует квадратное отверстие N х N см. Имеется кирпич с измерениями А, В и С. Определить, пройдет он в отверстие или нет, если подавать его можно только параллельно стенкам отверстия.
Решение. Понятно, что кирпич пройдет в отверстие только в случае, если хотя бы два его измерения меньше N. Программа будет выглядеть следующим образом:
INPUT «Введите сторону отверстия N»; N
1: INPUT «Введите стороны кирпича A, B и C»; A, B, C
IF A
«Кирпич проходит в отверстие» ELSE PRINT «Кирпич не проходит в отверстие»
INPUT «Рассмотрим еще один кирпич? 1 – да, 0 –нет»; X
IF X=1 THEN GOTO 1 ELSE PRINT «Спасибо за работу!»
Объясняется данная программа следующим образом. Если А и В меньше N, или А и С меньше N, или В и С меньше N, тогда печатать «Кирпич проходит в отверстие», иначе печатать «Кирпич не проходит в отверстие». Кроме того, в данной программе применен достаточно простой, но эффективный ход, управляющий совместной работой пользователя и программы. Чтобы каждый раз не запускать программу (если пользователь хочет рассмотреть несколько вариантов исходных данных), применен запрос с клавиатуры вариантов продолжения: либо рассматриваем еще один кирпич, либо – конец программы. Там же использовано применение безусловного перехода в условном операторе.
Пример 2. Напечатать значения y = sin x в интервале -30; 30 с шагом 5.
Решение. Начальное, конечное значения параметра и шаг указаны в задании. Примем параметр как x.
FOR X=-30 TO 30 STEP 5
Y=SIN (X*3.14/180)
PRINT «SIN («; X; »)=»; Y
NEXT X
Пример 3. Вычислить значение функции:
x3 , x < -1
y = x2 , -1 x 1
x3 , x > 1
Решение:
INPUT «Введите значение X»; X
IF X < -1 OR X >= 1 THEN Y = X^3 ELSE Y = X^ 2
PRINT «Y (X) = »; Y
Пример 4. Вычислить сумму всех четных чисел от 1 до 100 включительно.
Решение:
S = 0 `Обнуление переменной, где будет накапливаться сумма`
FOR I = 2 TO 100 STEP 2
S = S + I
NEXT I
PRINT «Сумма четных чисел от 1 до 100 равна»; S
Задачи для самостоятельного решения
Осуществите запрос трех целых различных чисел с клавиатуры. Выведите на экран наибольшее и наименьшее.
Напишите программу, выводящую на экран степени числа 2 от 2 до 10 включительно.
Напишите программу для нахождения суммы пяти произвольных чисел, вводимых с клавиатуры.
Напишите программу вычисления среднего балла при поступлении в вуз по результатам четырех экзаменов, которые вводятся с клавиатуры.
Вычислить количество прожитых составителем программы дней. Учесть, что в високосном году 366 дней.
Вычислить, какая сумма будет лежать на вкладе в банке через 5, 10, 15, 20 лет, если положить сегодня 1000 рублей под 3 % годовых?
Литература
Информатика. Базовый курс / Симонович С.В. и др. – СПб: Питер, 2005. – 640 с.
Сафронов И.К. Бейсик в задачах и примерах / И.К. Сафронов. – СПб.: БХВ-Петербург, 2003. – 224 с.
|
