7.2. Пример разветвляющейся программы

Задача. Ввести в ЭВМ 3 целых числа. Расположить их в порядке возрастания.

Алгоритм

1. Ввести числа.

2. Расположить по порядку.

3. Вывести числа.

Уточняем п. 2.

2.1. Если первое число больше второго, то поменять их местами (выполнить их перестановку).

2.2. Если второе больше третьего, то выполнить их перестановку.

2.3. Если первое больше второго, то выполнить их перестановку.

Проверим правильность алгоритма для чисел: 125 67 3

Тогда после выполнения пунктов алгоритма должны получаться следующие результаты:

после пункта 1: 125 67 3

после пункта 2.1: 67 125 3

после пункта 2.2: 67 3 125

После пункта 2.3: 3 67 125

Программа будет иметь вид

Program Order;

Var

A,B,C : Integer; {основные переменные}

X : Integer; {вспомогательная (рабочая) переменная}

Begin

Writeln('Введите 3 целых числа');

Read(А,В,С);

{п. 2.1}

IF A>B Then

Begin {перестановка}

X:= A;

A:= B;

B:= X;

End;

{п. 2.2}

IF B>C Then

Begin {перестановка}

X:= B;

B:= C;

B:= X;

End;

{п. 2.3}

IF A>B Then

Begin {перестановка}

X:= A;

A:= B;

B:= X;

End;

Writeln('Результат:', A:5,B:5,C:5);

End.

7.3. Оператор case

Оператор If позволяет выбрать один из двух возможных путей решения. В ряде случаев таких путей бывает гораздо больше. При этом также необходимо выбрать один из них. Применение оператора If для таких задач неэффективно.

В Паскале для выбора одного из нескольких путей решения используется оператор Case (вариант из) – обобщение условного оператора. В общем виде он записывается так:

Case выражение Of

Значения₁ : Оператор1;

Значения₂ : Оператор2;

. . . . . . . . . .

Значения_N : ОператорN;

End; { Конец списка выбора }

Выражение записывается относительно специальной переменной выбора (селектора), которая может быть любого перечисляемого типа (Integer, Char).

Значения₁, . . . , Значения _N – значения выражения, при которых выполняются Оператор1, . . . , Оператор N соответственно.

Если селектор принял значение, не принадлежащее ни одному из перечисленных, то оператор Case пропускается и выполняется следующий за ним оператор (как при неполном If).

Пример.

Case Num Mod 2 Of

0 : Writeln('Четное');

1 : Writeln('Нечетное');

End;

или

Case Month Of

1,2,3 : Writeln('Первый квартал');

4,5,6 : Writeln('Второй квартал');

End;

Если после Значений _i необходимо выполнять несколько операторов, они заключаются в блок:

Значения_i: Begin

операторы_i

End;

Рассмотрим еще одну задачу, демонстрирующую эффективность применения оператора Case.

Пример. Перевести цифру римской системы счисления в ее десятичный эквивалент. Римская цифра вводится c клавиатуры (в виде похожей на нее латинской буквы), а затем на экране должен появиться ее десятичный эквивалент.

Программа будет иметь вид

Program Rim;

Var

R : Char;

N : Integer;

Begin

Writeln('Введите римскую цифру');

Readln(R);

Case R Of

'M': N:= 1000;

'D': N:= 500;

'C': N:= 100;

'L': N:= 50;

'X': N:= 10;

'V': N:= 5;

‘I': N:= 1

End; { Case }

Write ('Десятичное число:', N);

End.