Оператор выбора case

Оператор выбора case

Для программирования разветвлений в алгоритме чаще всего используется условный оператор if…then или if…then…else.

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

В таких случаях намного удобнее использовать оператор выбора case.

Этот оператор имеет следующую форму:

case <выражение> of

значение 1: оператор 1;

значение 2: оператор 2;

………………………………………

значение n: оператор n;

else begin

операторы ветви else;

end;

end;

В этой конструкции операторы могут быть составными, <выражение> должно быть порядкового типа, т.е. integer, char, boolean.

Тип <значение> должен совпадать с типом <выражение>, может быть одно или несколько, разделенных запятыми, а также может представлять собой

некоторый диапазон значений.

Вся конструкция должна завершаться ключевым словом end .

Ветвь else вместе с оператором может отсутствовать.

Оператор работает следующим образом:

1. вычисляется значение <выражения>.

2. выполняется оператор, метка которого <значение> совпадает со значе-нием <выражение>.

3. Если ни одно<значение> не совпадает со значением <выражение>, вы-полняется оператор после else.

Примеры:

Пример использования инструкции case для организации меню (схема)

program menu1;

var

vybor:integer;

begin

writeln('1 - Максимальная температура');

writeln('2 - Минимальная температура');

writeln('3 - Средняя температура');

writeln;

writeln('Введите номер задачи и нажмите <Enter>');

write(' Ваш выбор -> ');

readln(vybor);

case vybor of

1: begin

{ вычисление максимальной температуры }

end;

2: begin

{ вычисление минимальной температуры }

end;

3: begin

{ вычисление средней температуры }

end;

end;

end.

С клавиатуры вводим номер месяца и компьютер определяет время года

program Prim2;

uses CRT;

var month: integer;

begin

writeln ('Введите номер месяца и нажмите < Enter >');

write('->');

readln(month);

case month of

1,2,12 : writeln(' ЗИМА ');

3,4,5 : writeln(' ВЕСНА ');

6,7,8 : writeln(' ЛЕТО ');

9,10,11: writeln ('ОСЕНЬ');

else writeln ('Число должно быть от 1 до 12');

end;

readln;

end.

3. Написать программу, которая вычисляет стоимость междугороднего телефонного разговора.

Формула: цена минуты * количество минут разговора

(в зависимости от кода города – цена минуты разная)

program Prim3;

uses CRT;

var

kod: integer;

cena: real;

dlit: integer;

summ: real;

begin

writeln ('Вычисление стоимости разговора по телефону');

writeln ('Введите исходные данные:');

write(' код города ->');

readln (Kod);

write ('Длительность разговора (целое количество минут ->');

readln(dlit);

write(' Код города : ');

case kod of

432: Begin

writeln(' Владивосток ');

cena:=2.2;

end;

495: begin

writeln('Moc кв a');

cena:=1;

end;

815: begin

writeln(' Мурманск ');

cena:=1.2;

end;

812: begin

writeln(' Санкт - Петербург ');

cena:=0.00000;

Writeln(' У нас бесплатно ');

end;

846: begin

writeln('Ca м apa');

cena:=1.4;

end;

end;

summ:= cena * dlit;

writeln(' Цена минуты :', cena:6:2,'pyb.');

writeln ('Стоимость разговора:', summ :6:2,' pyb .');

readln;

readln;

end.

4. Написать программу, которая вычисляет дату следующего дня. Рекомендуемый вывод на экран:

Введите цифрами сегодняшнюю дату (число месяц год) -> 31 12 2010

Последний день мес

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать