- •Интегрированная среда qbasic Запуск и завершение qbasic
- •Главное меню qbasic
- •Встроенный справочник qbasic
- •Формальные сведения о qbasic Алфавит qbasic
- •Д Данные Переменные анные в языке qbasic
- •Длинная целая –2147483647 до 2147483648 (&)
- •Переменные
- •Переменные
- •Defint X-X (целые числа, inTeger)
- •Константы
- •Выражения в языке qbasic
- •Арифметические выражения
- •Условные выражения
- •Логические выражения
- •Символьные выражения
- •Встроенные функции
- •Input "Сообщение", список переменных
- •Оператор вывода данных
- •Статический ввод данных
- •Команды управления ходом выполнения программы
- •Безусловная передача управления
- •Условная передача управления
- •Формат записи вложенных условных операторов
- •Множественный выбор (select case)
- •Работа с датой и временем
- •Цикл со счетчиком (for…next)
- •Цикл while … wend
- •Вложенные циклы
- •Массивы
- •Одномерные массивы
- •Определение массивов
- •Заполнение массива
- •Порядок работы с массивами
- •Действия над элементами одномерного массива
- •Двумерные массивы Основные понятия
- •Заполнение массива
- •Действия над элементами двумерного массива
- •Подпрограммы
- •Функции, определяемые пользователем
- •1 Вариант
- •2 Вариант
- •Работа со строковыми типами данных Оператор line input
- •Операции со строковыми данными
- •Функции для работы с текстами
- •Графическая обработка данных
- •Оператор screen
- •Оператор color
- •Операторы pset, preset
- •Прямые линии – отрезки
- •Рисование прямоугольников
- •Оператор circle
- •Оператор paint
- •Вывод текста в графическом режиме
- •Графическое “перо” draw
Команды управления ходом выполнения программы
Очень часто, в зависимости от некоторых условий, приходится изменять последовательность выполнения команд действия.
Команды управления ходом выполнения программы делятся на три группы:
-
Команды безусловного перехода;
-
Команды условного перехода;
-
Команды организации циклов.
Безусловная передача управления
Формат:
GOTO номер строки или метка
Управление передается команде, помеченной номером строки или меткой.
Например:
GOTO W
…
W: PRINT"Решение получено"
Примечание.В среде программистов употребление GOTO принято считать дурным тоном. Чрезмерное пристрастие к GOTO запутывает программу.
Условная передача управления
Конструкцию условной передачи управления можно записать в одном из двух форматов - блочном (в несколько строк) или линейном (в одной строке).
Линейный формат:
IF логическое выражение THEN <блок команд 1> [ELSE <блок команд 2>]
Блочный формат:
IF логическое выражение THEN
<блок команд 1>
[ELSE
<блок команд 2>]
END IF
Выполнение. Если логическое выражение принимает значение "Истина", выполняется блок команд 1, если логическое выражение - "Ложь", выполняется блок команд 2. Если ELSE отсутствует, то выполняется команда, стоящая за END IF.
Пример1
INPUT "Сколько будет 2x2 ",X
IF X=4 THEN PRINT "Правильно" ELSE PRINT "Не правильно"
END
Пример2
Вычислить значение функции Y
Линейный формат:
INPUT "Введите значение аргумента Х ",X
IF X<=1 THEN Y=X-1/2*X^2+3 ELSE Y=1.05*(X-1)^2
PRINT "При значении Х=";X;" функция Y=";Y
END
Блочный формат:
INPUT "Введите значение аргумента Х ",X
IF X<=1 THEN
Y=X-1/2*X^2+3
ELSE
Y=1.05*(X-1)^2
END IF
PRINT "При значении Х=";X;" функция Y=";Y
END
Возможна вложенность одного условного оператора в другой.
Формат записи вложенных условных операторов
IF логическое выражение THEN
<блок команд 1>
[ELSEIF логическое выражение THEN
<блок команд 2>]
……………………..
[ELSE
<блок команд n>]
END IF
Пример3
Составить программу вычисления функции:
1 вариант
IF Z<0 THEN
F=Z-5/Z^2
ELSEIF Z<=1 THEN
F=Z^2-1
ELSE
F=1/(1-Z)
ENDIF
PRINT "F=";F
END
2 вариант
IF Z<0 THEN F=Z-5/Z^2
IF Z<=1 AND Z>=0 THEN F=Z^2-1
IF Z>1 THEN F=1/(1-Z)
PRINT "F=";F
END
Для самостоятельного решения:
Составить программу определения кислотности раствора с помощью лакмусовой бумажки. Напомним, что, если бумажка окрашивается в красный цвет - раствор кислотный; синий - раствор щелочной; не меняет цвет - раствор нейтральный.
Множественный выбор (select case)
Формат
SELECT CASE арифм_выражение или симв_выражение
CASE условие 1
<блок команд 1>
CASE условие 2
<блок команд 2>
……………….
[CASE ELSE
<блок команд n>]
END SELECT
Условие оператора CASE можно указать в одном из трех форматов:
-
CASE константа 1, константа 2, …
-
CASE IS знак_отношения константа
-
CASE константа 1 TO константа 2
Константы в условии должны быть того же типа, что и выражение в SELECT CASE.
Алгоритм множественного выбора заключается в следующем:
-
вычисляется значение выражения, записанного в SELECT CASE.
-
проверяется, удовлетворяет ли это значение одному из указанных в CASE условий
-
если значение удовлетворяет какому-то условию, выполняется блок команд, следующий за данным CASE.
Пример
INPUT "Введите значение ",A
SELECT CASE A
CASE 1,5
PRINT "А равно 1 или 5"
CASE IS >5
PRINT "А больше 5"
CASE -8 TO 2.5
PRINT "А не меньше -8, но не больше 2.5"
CASE else
PRINT "Ни одно условие не выполняется"
END SELECT
После выполнения того или иного блока команд управление передается команде, следующей за END SELECT.