Урок по теме "Ветвление и выбор в Turbo Pascal"

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

альтернативных путей выполнения программы. Несмотря на то, что такой выбор

можно организовать с помощью оператора If ...Then, удобнее воспользоваться специальным оператором выбора.

вариант : оператор;
end;

целые значения 1,2,3.
Program n3;
Uses crt;
Var x, y: Real;
N:

Integer;
Begin
Readln(‘x’, x);
Readln(‘N (1,2,3)’, N);
x:=1+x+x*x;
Case N of
1: Writeln(‘y=‘, x);
2: Writeln(‘y=‘, x*x);
3: Writeln(‘y=‘, x*x*x)
Else Writeln(‘Нет данных’);
End;
Readln
End.

7) выдает название дня недели.
Program nedelja;
Uses crt;
Var x:

Integer;
Begin
Write (‘Введите день недели (1-7)’);
Readln(x);
Case х of
1: Writeln(‘понедельник‘);
2: Writeln(‘вторник’);
3: Writeln(‘среда‘);
4: Writeln(‘четверг‘);
5: Writeln(‘пятница’);
6: Writeln(‘суббота‘);
7: Writeln(‘воскресенье‘);
Else Writeln (‘В неделе 7 дней’);
End;
End.

недели выводит на экран рабочий он или выходной.

Program Week;
Uses crt;

Var x: Integer;
Begin
Readln(‘Введите номер дня в неделе 1 до 7’, x);
Case x of
1..5: Writeln(‘рабочий день‘);
7,6: Writeln(‘выходной день’);
Else Writeln (‘В неделе 7 дней!');
End;
Readln
End.

12) выдает название месяца.
Задача2. Написать программу, которая по номеру

месяца(от 1 до 12) выдает название времени года.