Условный оператор
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
а на 12.
Program Goroskop;
Var Year : Integer;
Begin
Write(Введите год ); ReadLn(Year);
CASE Year MOD 12 OF
0 : WriteLn(Год Обезьяны);
1 : WriteLn(Год Петуха);
2 : WriteLn(Год Собаки);
3 : WriteLn(Год Свиньи);
4 : WriteLn(Год Крысы);
5 : WriteLn(Год Коровы);
6 : WriteLn(Год Тигра);
7 : WriteLn(Год Зайца);
8 : WriteLn(Год Дракона);
9 : WriteLn(Год Змеи);
10 : WriteLn(Год Лошади);
11 : WriteLn(Год Овцы)
END;
END.
Задача 2. Найти наибольшее из двух действительных чисел, используя оператор выбора.
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.
Как видно из примера, в качестве метки может выступать не только отдельное значение, но и диапазон значений. Кроме того, в качестве метки может выступать перечень значений выражения (значения перечисляются через запятую).
Список литературы
Для подготовки данной работы были использованы материалы с сайта