Практическая работа №6.

Тема: Программирование задач многозначного выбора (оператор CASE).

Цель: Разобрать структуры многозначного выбора (оператор выбора CASE в языке Pascal).

План занятия:

§ обсуждение операторов;

§ эксперименты с программой;

§ выполнение самостоятельной работы.

Ход работы:

Теоретические сведения:

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

Синтаксическая диаграмма:

Case <переключатель> Of

константа 1, …, константа N: <оператор1> ;

константа 11, …, константа 1M: <оператор2> ;

. . . . . .

Else <операторN> ;

End;

- где переключатель (выражение) и константы одного и того же целочисленного типа.

Выполнение оператора варианта начинается с вычисления значения переключателя (селектора). Затем оператор выбора передает управление тому оператору, перед которым стоит константа, совпадающая со значением переключателя. Если совпадений не обнаружено, выполняется оператор, стоящий после Else. Ветвь Else в операторе варианта может отсутствовать, тогда такая форма называется сокращенной.

Рекомендации по использованию. Константы в операторе выбора не являются метками, поэтому не описываются в разделе Label и их нельзя использовать в операторе Goto.

Экспериментальный раздел работы:

1. Разбор оператора можно выполнить на следующем простом примере:

В старояпонском календаре принят шестидесятилетний цикл, который состоит из пяти подциклов. Подцикл обозначаются названием цвета: зеленый, красный, желтый, белый, черный. Внутри двенадцатилетнего подцикла годы, носят названия животных крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. Составить программу, которая читает год и выводит название этого года по старояпонском календарю.

Program Years;

Varyear: integer;

i : 0 . . 11;

k: 0..4; название подциклов
Begin

Read (year);

Write (year);

i: = (year - 3) Mod 12;

k: = (3010 - year) Mod 60 Div 12;

Write (' - это год ') ;

Case k Of

0 - Write (' зелен ') ;

1 - Write (' крас ') ;
2 - Write (' желт ') ;
3 - Write (' бел ') ;
4 - Write (' черный ') ;

End;

Case i Of {окончание прилагательного}

0, 1, 2, 6, 7, 8, 9, 10, 11: Write (‘ой’);

3, 4, 5: Write(‘oro’) ;

End;

Case i Of

1 - Write (' крысы ');

2 - Write (' коровы ');

3 - Write (' тигра ');

4 - Write (' зайца ');

5 - Write (' дракона ');

6 - Write (' змеи ');

7 - Write (' лошади');

8 - Write (' овцы') ;

9 - Write (' обезьяны');

10 - Write (' курицы');

11 - Write (' обаки');

0 - Write (' свиньи');

End;

End;

2. Выполнение самостоятельной работы:

1. (четные компьютеры)

· Написать программу, которая по введенному номеру дня недели выводит на экран сообщение дня недели на русском языке. Если введенное значение не совпадает со значением переключателя выдавать сообщение об ошибке.

Рекомендуем: 1 – понедельник, 2 – вторник, . . . и т.д.

· Написать программу, которая вычисляет стоимость междугородних переговоров. Исходными данными (вводимые с клавиатуры) являются: код города и продолжительность разговора. В базу данных внести не меньше пяти населенных пунктов и стоимость разговора одной минуты для каждого города.

2. (нечетные компьютеры)

· Написать программу, которая запрашивает у пользователя оценку в цифровом виде и выводит соответствующее ее название в буквенном виде. Если введенное значение не совпадает со значением переключателя выдавать сообщение об ошибке.

Рекомендуем: 5 – отлично, 4 – хорошо, . . . и т.д.

· Написать программу, которая после введенного с клавиатуры числа в диапазоне от 1 до 999, обозначающего денежную единицу, дописывает слово рубль в правильной форме. Пример: 1 рубль, 5 рублей, 3 рубля и т.д.

Дополнительная задача:

3. Написать программу, которая вычисляет дату следующего дня. С клавиатуры вводим число сегодняшнего дня, пример:

введите сегодняшнюю дату: 31 12 2003

Последний день месяца!

С Новым годом!

Завтра: 1 1 2004