Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
lecton.DOC
Скачиваний:
4
Добавлен:
15.04.2019
Размер:
980.99 Кб
Скачать

Input "введите номер сотрудника", n

SELECT  CASE  N

CASE  1, 5

F="Иванов"

CASE  3

F="Петров"

CASE  4

F="Сидоров"

CASE  6

F="Алексеев"

END  SELECT

PRINT  F 

5.2.21. Оператор цикла

Для за­да­ния мно­го­крат­но­го вы­пол­не­ния раз­лич­ных дей­ст­вий в язы­ке Basic име­ют­ся 5 разновидностей опе­ра­то­ра цик­ла. Раз­ли­ча­ют опе­ра­тор цик­ла со счет­чи­ком и опе­ра­то­ры цик­ла с ус­ло­ви­ем.

Су­ще­ст­ву­ет 4 раз­но­вид­но­сти опе­ра­то­ра цик­ла с ус­ло­ви­ем.

Ка­ж­дый из них со­сто­ит как ми­ни­мум из трех строк: на­чаль­ной стро­ки; од­ной или не­сколь­ких строк Груп­паОпе­ра­то­ров и за­вер­шаю­щей стро­ки. Здесь Ус­ло­вие - это ло­ги­че­ское вы­ра­же­ние.

Цикл с пре­ду­сло­ви­ем

Вна­ча­ле про­ве­ря­ет­ся Ус­ло­вие (его ис­тин­ность для цик­ла По­ка или лож­ность для цик­ла До) и за­тем, ес­ли оно не удов­ле­тво­ря­ет­ся, цикл за­вер­ша­ет свою ра­бо­ту. В слу­чае удов­ле­тво­ре­ния Ус­ло­вия вы­пол­ня­ет­ся Груп­паОпе­ра­то­ров, по­сле че­го все ­опи­сан­ные дей­ст­вия по­вто­ря­ют­ся за­но­во.

Цикл с по­сту­сло­ви­ем

Вна­ча­ле вы­пол­ня­ет­ся Груп­паОпе­ра­то­ров, и за­тем уже про­ве­ря­ет­ся Ус­ло­вие (его ис­тин­ность для цик­ла По­ка или лож­ность для цик­ла До). Ес­ли Ус­ло­вие не удов­ле­тво­ря­ет­ся, цикл за­вер­ша­ет свою ра­бо­ту. В слу­чае удов­ле­тво­ре­ния Ус­ло­вия все ­опи­сан­ные дей­ст­вия по­вто­ря­ют­ся за­но­во.

Цикл По­ка

Ус­ло­вие про­дол­же­ния есть ис­тин­ность вы­ра­же­ния Ус­ло­вие, т.е. цикл по­вто­ря­ет­ся, по­ка ис­тин­но Ус­ло­вие.

Цикл По­ка

с пре­ду­сло­ви­ем

do   while   Ус­ло­вие

      Груп­паОпе­ра­то­ров

loop

Цикл По­ка

с по­сту­сло­ви­ем

do

      Груп­паОпе­ра­то­ров

loop   while   Ус­ло­вие

Цикл До

Ус­ло­ви­ем про­дол­же­ния яв­ля­ет­ся лож­ность вы­ра­же­ния Ус­ло­вие, т.е. цикл по­вто­ря­ет­ся до тех пор, по­ка оно не ста­нет ис­тин­ным

Цикл До с пре­ду­сло­ви­ем

do   until   Ус­ло­вие

      Груп­паОпе­ра­то­ров

loop

Цикл До с по­сту­сло­ви­ем

do

      Груп­паОпе­ра­то­ров

loop   until   Ус­ло­вие

Здесь, do, while, until, loop - ключевые слова, состветствен­но, с английского - выполнять, пока, до, виток.

Груп­паОпе­ра­то­ров долж­на из­ме­нять зна­че­ния пе­ре­мен­ных, вхо­дя­щих в Ус­ло­вие, для то­го что­бы че­рез не­ко­то­рое чис­ло вы­пол­не­ний Ус­ло­вие пе­ре­ста­ло бы удов­ле­тво­рять­ся и про­изо­шел бы вы­ход из цик­ла. В про­тив­ном же слу­чае про­изой­дет так на­зы­вае­мое за­цик­ли­ва­ние - бес­ко­неч­ное вы­пол­не­ние цик­ла.

Пример. Программа нахождения остатка от деления двух целых по­ло­жи­тель­ных чисел a, b:

DIM A AS SINGLE, B AS SINGLE

INPUT A,B

DO WHILE A>=B THEN

A=A-B

LOOP

PRINT "остатком является значение",A

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]