Занятие № 7. Множественное ветвление. Безусловный переход.

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

if <условие> then

if <условие> then

if <условие> then

...

или

if <условие> then

<оператор 1>

else

if <условие> then

<оператор 2>

...

В случае присутствия в условиях вещественного типа ничего не остаётся, как пользоваться подобными структурами. Если же в условии используется только перечислимые типы (целочисленные), то появляется возможность использования конструкции множественного ветвления:

case <выражение> of

<значение 1>: <оператор 1>;

<значение 2>: <оператор 2>;

...

end

или

case <выражение> of

<значение 1>: <оператор 1>;

<значение 2>: <оператор 2>;

else

<оператор>

end

В данной структуре выполняется тот оператор, значение перед которым совпадает с выражением, находящимся после служебного слова case. Во втором случае существует ветвь выполнения действия, в случае если выражение не совпало не с одним из значений.

При указании значения, которому должно соответствовать выражение возможно использование списков, в этом случае значения перечисляются через запятую.

Пример: Составить программу определения количества дней в указанном месяце указанного года (Високосным является год номер которого делится нацело на 4 – это правило не относится к годам, являющимся окончанием столетия (например 1800). Последний год любого столетия считается високосным только в том случае, если его номер делится на 400).

Program DayInMonth;

uses crt;

var y,m,d:integer;

BEGIN

ClrScr;

write('Введите номер месяца и года (через пробел): ');

readln(m,y);

case m of

1,3,5,7,8,10,12: d:=31;

4,6,9,11: d:=30;

else

if y mod 4<>0 then d:=28

else

if (y mod 100=0) and (y mod 400<>0) then d:=28

else d:=29;

end;

writeln('Количество дней ',d);

readkey;

END.

Безусловный переход применяется в том случае, если требуется осуществить скачкообразный переход в любое место программы и продолжить выполнение программы именно с этого места. Следует отметить, что безусловный переход является анахронизмом в программировании, поэтому от его использования следует воздержаться, либо свести к минимуму. Данную структуры мы приводим только для общности рассмотрения языка.

Для осуществления безусловного перехода следует завести текстовую метку, которую требуется описать в разделе label описательной части программы. Имена меткам даются по правилам именования переменных. Метка, на которую осуществляется переход, пишется в начале строки и заканчивается двоеточием:

<метка>:

Для перехода на метку используется следующий оператор:

goto <метка>

Пример: Составить программу, запрашивающую возраст пользователя. Считать, что возраст пользователя находится в интервале от 4 до 130 лет. В случае неправильного ввода повторить запрос заново.

Program Age;

uses crt;

label l1;

var a:byte;

BEGIN

l1: ClrScr;

write('Введите свой возраст: ');

readln(a);

if (a<4) or (a>130) then

begin

writeln('Ошибка ввода.');

writeln('Нажмите любую клавишу и повторите ввод.');

readkey;

goto l1;

end;

writeln('Ввод принят. Ваш возраст ',a,' лет (год(а))');

readkey;

END.

Контрольные вопросы:

1. Что такое множественное ветвление?

2. Какие виды множественного ветвления существуют?

3. Что такое безусловный переход?

4. Как описывается метка для безусловного перехода?

Задания:

1. Составить программу, требующую ответ на вопрос «Умеете ли вы плавать» - «да» или «нет». Вопрос повторять до тех пор, пока не будет введён требуемый ответ.