READLN(S);

CASE S OF

‘b’: WRITELN(‘bird’);

'c': WRITELN(‘cat’);

‘d’: WRITELN('dog')

ELSE WRITELN(‘Неверная буква’);

END;

END.

 

Любому из операторов списка выбора может предшествовать несколько констант выбора, разделенных запятыми, а часть оператора CASE, начиная со слова ELSE, может быть опущена:

 

VAR

S:CHAR;

BEGIN

WRITE(‘введите b, c или d: ’);

READLN(S);

CASE S OF

‘B’,‘b’: WRITELN(‘bird’);

‘C’,'c': WRITELN(‘cat’);

‘D’,‘d’: WRITELN('dog')

END;

END.

 

Можно также указать диапазон, которому принадлежит константа выбора для некоторого оператора:

 

VAR

X:INTEGER;

BEGIN

WRITE(‘введите X= ’);

READLN(X);

CASE X OF

0..99: WRITELN(‘Первая сотня’);

100..199: WRITELN(‘Вторая сотня’);

200..299: WRITELN('Третья сотня')

END;

END.

Оператор CASE иногда называют развитием условного оператора IF. Оба этих оператора осуществляют ветвление вычислительного процесса на несколько направлений. Но, если оператор IF может осуществить ветвление вычислительного процесса только на два направления, то оператор CASE – на много направлений.

 

Операторы циклических повторений

В Турбо Паскале имеются три оператора циклов: FOR, WHILE и REPEAT, позволяющие организовать повторение каких-то вычислительных операций. Оператор цикла FOR используется в тех случаях, когда заранее известно число повторений. Если же число повторений заранее не известно. то используют операторы цикла WHILE или REPEAT. В них на каждом этапе повторения (итерации) вычисляется условие выхода из цикла (условие повторения цикла) и в зависимости от его значения цикл повторяется или заканчивает свою работу.

 

 

Оператор цикла FOR

 

Его структура:

 

FOR <счётчик цикла>:=<нач. зн.> TO <кон. зн.> DO <оператор>;

 

где <счётчик цикла>;- переменная порядкового типа, чаще всего INTEGER. Его работу можно пояснить блок-схемой (рис.3):

 

 

Рис. 3

 

Пример: Вычислить сумму заданного числа целых чисел.