Иллюстрированный самоучитель по Turbo Pascal для начинающих

Case

Приступая к решению задач этого раздела, следует вспомнить, что:

  • инструкция case используется для выбора одного из нескольких направлений дальнейшего хода программы (последовательности инструкций, которые должны быть выполнены);
  • выбор последовательности инструкций осуществляется во время выполнения программы в зависимости от равенства значения переменной-селектора константе, указанной перед группой инструкций;
  • в качестве переменной-селектора можно использовать переменную целого (integer) или символьного (char) типа.

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

Введите номер месяца (число от 1 до 12) и нажмите Enter
 › 11
Зима.

94. Написать программу, которая запрашивает у пользователя номер дня недели и выводит одно из сообщений: "Рабочий день", "Суббота" или "Воскресенье".

95. Написать программу, вычисляющую стоимость междугороднего телефонного разговора (цена одной минуты определяется расстоянием до города, в котором находится абонент). Исходными данными для программы являются код города и продолжительность разговора. Ниже представлен рекомендуемый вид экрана во время работы программы.

Вычисление стоимости разговора по телефону.

Введите исходные данные:
Код города › 812
Город Код Цена минуты, руб.
Владивосток 423 2.2
Москва 095 1.0
Мурманск 815 1.2
Самара 846 1.4
Длительность (целое количество минут) › 3
Город: Владивосток
Цена минуты: 2.20 руб.
Стоимость разговора: 6.60 руб.

96. Написать программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 999), обозначающего денежную единицу, дописывает слово "рубль" в правильной форме. Например, 12 рублей, 21 рубль и т. д.

97. Написать программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово "копейка" в правильной форме. Например, 5 копеек, 41 копейка и т. д.

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

Введите цифрами сегодняшнюю дату (число месяц год)
 › 31 12 1999.
Последний день месяца!
С наступающим новым годом!
Завтра 1.1.2000.
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.