- •Программирование на qbasic.
- •Алгоритм
- •Введение в язык программирования Qbasic
- •Среда программирования qBasic.
- •Алфавит языка
- •Выражения и операции
- •Оператор присваивания
- •Операторы ввода-вывода
- •1. Какие из следующих последовательностей символов являются идентификаторами, а какие нет.
- •2. Записать по правилам Бейсика следующие выражения:
- •3. Переписать следующие выражения, записанные по правилам Бейсика, в традиционной математической форме:
- •Операторы перехода
- •Ветвление в алгоритмах и программах. Операторы условного перехода
- •If условие then блок операторов 1 else блок операторов 2
- •Условный оператор неполной альтернативы:
- •If условие then блок операторов
- •Циклы в алгоритмах и программах
- •Строковые переменные
- •Массивы
- •Сортировка массива по возрастанию
- •Подпрограммы
- •Работа с файлами
- •Комбинированные типы.
- •Операторы графики
Ветвление в алгоритмах и программах. Операторы условного перехода
Существуют две формы ветвления: полная и неполная.
нет
да
да
нет
Блок операторов
Блок операторов 2
Блок операторов 1
неполная форма ветвления
Полная форма ветвления
Соответственно существуют и два вида операторов: полной и неполной альтернативы.
Полная альтернатива (предусмотрены команды в ветви "ДА" и в ветви "НЕТ").
Линейная форма записи (оператор записывается в одной строке)
If условие then блок операторов 1 else блок операторов 2
Работа оператора: в зависимости от того выполняется или не выполняется условие (условие - логическое выражение, которое может содержать знаки сравнения и логические операции). Если условие истинно, то выполняется блок операторов 1, если условие ложно, то выполняется блок операторов 2.
ПРИМЕР: IF A=1 THEN PRINT "ДА" ELSE PRINT "НЕТ"
PRINT "КОНЕЦ"
Здесь операторы работают следующим образом:
если условие А=1 "ИСТИННО", то выполняются операторы PRINT "ДА" и PRINT "КОНЕЦ";
если условие А=1 "ЛОЖНО", то выполняются операторы PRINT"НЕТ" и PRINT "КОНЕЦ".
Блочная форма записи:
IF условие THEN блок операторов ветви "ДА" ELSE блок операторов ветви "НЕТ"
Условный оператор неполной альтернативы:
If условие then блок операторов
Если заданное условие истинно, выполняется список операторов, стоящий после THEN, в противном случае выполняется список операторов, стоящий после ELSE.
Слово ELSE может и отсутствовать. Тогда происходит переход к строке, следующей за оператором IF...THEN.
Условия представляют собой логические соотношения: равенства или неравенства = равно, <> неравно, > больше, < меньше, >= больше или равно, <= меньше или равно.
При использовании сложных условий (объединении двух и более условий) применяют слова AND (И) и OR (ИЛИ): Условие1 AND (или OR) Условие2...
Условный оператор позволяет реализовать алгоритм с ветвлением.
Примеры решения задач.
Пример 1.Определить наибольшее из двух чисел Х и У, введенных клавиатуры.
CLS: INPUT " ";X, Y
IF X > Y THEN
PRINT "НАИБОЛЬШЕЕ ЧИСЛО X="; X
ELSE
PRINT "НАИБОЛЬШЕЕ ЧИСЛОY=";Y
END IF
END
Пример 2. Вычислите Функцию для любого значения Х.
X2
+4X-7
, X<=-2
CLS:
INPUT
"введите X";X
Y=<
IF X<=-2 THEN
X2-3X+12 , X>2 Y=X^2+4*X-7
ELSE
Y=X^2-3*X+12
END IF
PRINT "ФУНКЦИЯ =";У;" при Х=";Х
END
Пример 3. Вычислите функцию У=3Х2 -5Х+12 на отрезке (-3,3) с шагом 1.
CLS: PRINT "Y", "X"
X=-3
4 Y=3*X^2-5*X+12
PRINT Y,X
X=X+1
IF X<3 THEN GOTO 4
END
Пример 4. Вычислите сумму целых чисел от 10 до 20
S =10+11+12+...+20
CLS: S=0: X=10
5 S=S+X
X=X+1
IF X<=20 THEN GOTO 5
PRINT "сумма = ";S
END
Пример 5. Вычислите произведение нечетных чисел от 15 до 30
Р= 15*17*19*...*29
CLS:P=1:X=15
7 P=P*X
X=X+2
IF X<30 THEN GOTO 7
PRINT "произведение = "; P
END
