X=3 2. GOTO W

1. X=3 2. GOTO W

GOTO 7  . . .

Y=2*X W PRINT "решение получено"

7 Z=5*X

Операторы условного перехода

Существуют две формы ветвления: полная и неполная.

		Полная форма ветвления				неполная форма ветвления

Соответственно существуют и два вида операторов: полной и неполной альтернативы.

I.   Полная альтернатива (предусмотрены команды в ветви "ДА" и в ветви "НЕТ").

1) Линейная форма записи (оператор записывается в одной строке)

Условие выполняется "ДА"

 

IF условие THEN блок операторов 1 ELSE блок операторов 2

Условие не выполняется "НЕТ"

Работа оператора: в зависимости от того выполняется или не выполняется условие (условие - логическое выражение, которое может содержать знаки сравнения и логические операции). Если условие истинно, то выполняется блок операторов 1, если условие ложно, то выполняется блок операторов 2.

ПРИМЕР: IF A=1 THEN PRINT "ДА" ELSE PRINT "НЕТ"

 PRINT "КОНЕЦ"

Здесь операторы работают следующим образом:

n если условие А=1 "ИСТИННО", то выполняются операторы PRINT "ДА" и PRINT "КОНЕЦ";

n если условие А=1 "ЛОЖНО", то выполняются операторы PRINT"НЕТ" и PRINT "КОНЕЦ".

2) Блочная форма записи:

IF условие THEN  ПРИМЕР:

блок операторов CLS: INPUT a

ветви "ДА" IF a=1 THEN

ELSE PRINT "работает ветвь ДА "

блок операторов PRINT a

ветви "НЕТ" ELSE

END IF PRINT "работает ветвь НЕТ"

PRINT a

 END IF

II. Условный оператор неполной альтернативы:

IF условие THEN блок операторов

Примеры решения задач.

Пример 1.Определить наибольшее из двух чисел Х и У, введенных клавиатуры.

CLS: INPUT " ";X, Y

IF X > Y THEN

PRINT "НАИБОЛЬШЕЕ ЧИСЛО X="; X

ELSE

PRINT "НАИБОЛЬШЕЕ ЧИСЛОY=";Y

END IF

END

Пример 2. Вычислите Функцию для любого значения Х.

X² +4X-7 , X<=-2 CLS: INPUT "введите X";X

Y=< IF X<=-2 THEN

X²-3X+12 , X>2 Y=X^2+4*X-7

ELSE

Y=X^2-3*X+12

END IF

PRINT "ФУНКЦИЯ =";У;" при Х=";Х

END

Пример 3. Вычислите функцию У=3Х² -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

Циклы.

В языке QBASIC предусмотрено два основных способа организации циклов:

n повторение блока команд заданное количество (число) раз (цикл со счетчиком);

n циклическое повторение блока команд, пока выполняется (или не выполняется) некоторое условие.

Цикл со счетчиком (FOR... NEXT) ДЛЯ... СЛЕДУЮЩИЙ

Оператор цикла реализует алгоритмическую конструкцию, в которой определенные действия повторяются многократно.

Общий вид оператора цикла со счетчиком:

FOR K=K1 TO K2 STEP K3 - заголовок цикла

- тело цикла -

NEXT K - конец цикла

Здесь FOR - имя оператора (переводится "для"); К - переменная (обычно целого типа), называемая переменная управления циклом ; К1, К2, К3 - начальное, конечное значения и шаг изменения величины К соответственно, могут быть представлены любыми арифметическими выражениями; ТО, SТЕР - переводится - "до", "шаг"; тело цикла - любые операторы языка Бейсик; NEXT - оператор (переводится "следующий").

Совместная работа операторов и определяется схемой:

где

 K < K2, если K3 > 0

< условие > = <

 K > K2 ,если K3 < 0

Иначе говоря, операторы FOR и NEXT обеспечивают изменение значения К от К1 до К2 с шагом К3 и выполнение оператора (операторов), заключенных между FOR и NEXT, при каждом значении К.

Ограничения: