Задачи по Pascal. Оператор case в задаче выбора

pascal Условие задачи :  Вывести на экран , в зависимости от введенного пользователем числа, время года.

Сложность : легкая .

Я решил добавить эту задачу чтобы показать как работает оператор case.
Стоит сказать что это тот же самой оператор if , только оператор case используется для выбора одного из нескольких направлений, т.е. удобно использовать когда мы выбираем из большого количества вариантов . На примере вы сейчас это увидите.

Для программы нам понадобиться две переменные :
1. Под число, которое будет вводить пользователь
2. Под слово, которое будет у нас выводиться(будет тип string)

Давайте создадим каркас и попросим пользователя ввести число :

uses crt ;
var 
    month : integer;
    season : string;
begin
write('Введите номер месяца : '); readln(month);
end.

Мы объявили две переменные. Теперь давайте напишем как у нас будет работать наш оператор case:

case month of 

end;

Это общий вид нашего оператора, т.е. он работает в зависимости от значения переменной.

case month of 
     12,1,2 : season := 'Зима';
     3..5 : season := 'Весна';
     6..8 : season := 'Лето';
     9..11 : season := 'Осень';
     else 
           season := 'Такого месяца нет';
end;

Вот и весь принцип работы этого оператора. Ну и нам осталось просто вывести переменную season.

Весь код программы :

uses crt ;
var 
    month : integer;
    season : string;
begin
clrscr; {очищаем экран}
write('Введите номер месяца : '); readln(month);
case month of 
     12,1,2 : season := 'Зима';
     3..5 : season := 'Весна';
     6..8 : season := 'Лето';
     9..11 : season := 'Осень';
     else 
           season := 'Такого месяца нет';
end;
writeln(season);
readln; {чтобы программа не закрывалась}
end.

Вот результат :

ris1

Написать ответ

Ваш e-mail не будет опубликован. Обязательные поля помечены *