Оператор безусловного перехода.

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

 

    Общий вид оператора:              GOTO N

 

где N - номер строки или метки оператора, на который происходит переход в программе.

Примеры:

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 циклическое повторение блока команд, пока выполняется (или не выполняется) некоторое условие.