Реферат: Условный оператор

Program Maximum;

Var Max, X, Y : Real;

Begin

Write('Введите два неравных числа:');

ReadLn(X, Y);

Case X > Y Of

TRUE : Max := X;

FALSE : Max := Y

End;

WriteLn('Максимальное из двух есть ', Max : 12 : 6)

End.

Задача 3. Преобразовать символ, если он является строчной русской буквой, в заглавную букву.

Так как в альтернативной системе кодировки ASCII строчные русские буквы идут не подряд, а с некоторым разрывом, то в данном случае, в зависимости от того, в какую часть таблицы попадает введенная буква, используется та или иная формула. Если введённый символ не является строчной русской буквой, он выводится без изменения.

Program UpCase;

Var C : Char;

Begin

Write('Введите символ:');

ReadLn(C);

Case C Of

'а'..'п' : C := Chr(Ord(C) - 32);

'р'..'я' : C := Chr(Ord(C) - 80)

End;

WriteLn(C);

End.

Как видно из примера, в качестве метки может выступать не только отдельное значение, но и диапазон значений. Кроме того, в качестве метки может выступать перечень значений выражения (значения перечисляются через запятую).