Оператор выбора на языке Pascal

Цели урока:
Познакомиться с понятием «оператор выбора (варианта)»;
Рассмотреть особенности организации выбора на языке Pascal;
Закрепить полученные знания при решении задач на оператор варианта.

Найдите ошибки:
If a<>b и c<>a then writeln(‘треугольник – произвольный);
else begin
If (a=b) or (b=c) or a=c then end; writeln(‘треугольник – равнобедренный’)
else; writeln(‘треугольник – равносторонний’);

Ошибки:
If (a<>b) и (c<>a) then writeln(‘треугольник – произвольный’);
else begin
If (a=b) or (b=c) or (a=c) then end; writeln(‘треугольник – равнобедренный’)
else;
writeln(‘треугольник – равносторонний’);

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

Организация оператора выбора на языке Pascal:
case <селектор выбора> of
<список выбора>
else <оператор>
end;
селектор выбора – переменная любого порядкового типа по которой делается выбор (integer, char).
список выбора – состоит из констант выбора (т.е. значения, которые может принимать переменная выбора).

Задачи:
Написать программу, которая позволяет запросить цифру, а вывести на экран ее письменное название.
Написать программу, которая позволяет по номеру месяца определить сколько в нем дней.
В зависимости от введенного номера класса, определить к какой школе он относится (начальная, основная, средняя);
Написать программу – калькулятор на 4 арифметические операции.

Пример 1:
Написать программу, которая позволяет запросить цифру, а вывести на экран ее письменное название
program cifri;
var b:integer;
begin
writeln(‘Введите число от 0 до 9’);
readln(b);
case b of
0: writeln(‘ноль’);
1: writeln(‘один’);
2: writeln(‘два’);
3: writeln(‘три’);
4: writeln(‘четыре’);
5: writeln(‘пять’);
6: writeln(‘шесть’);
7: writeln(‘семь’);
8: writeln(‘восемь’);
9: writeln(‘девять’)
else writeln (‘Такой цифры нет’);
end;
end.

Пример 2:
Написать программу, которая позволяет по номеру месяца определить сколько в нем дней
program month;
var m:integer;
begin
writeln(‘Введите номер месяца’);readln(m);
case m of
1,3,5,7,8,10,12: writeln(‘В этом месяце 31 день’);
4,6,9,11: writeln(‘В этом месяце 30 дней’);
2: writeln(‘В этом месяце или 28 или 29 дней’)
else writeln(‘Такого месяца нет’);
end;
end.

Пример 3:
Написать программу – калькулятор
program kalkylator;
var a,b:real; c:char;
begin
writeln (‘Введите первое число’); readln(a);
writeln (‘Введите действие’); readln(c);
writeln (‘Введите второе число’); readln(b);
case c of
‘+’: writeln (a,’+’,b,’=’,a+b:7:3);
‘-’: writeln (a,’-’,b,’=’,a-b:7:3);
‘*’: writeln (a,’*’,b,’=’,a*b:7:3);
‘/’: writeln (a,’/’,b,’=’,a/b:7:3)
else writeln (‘Такого действия нет’); end; end.