yandex rtb 1
ГоловнаЗворотній зв'язок
yande share

Основы программирования

Команда выбора case

  1. . Команда выбора case выглядит так:

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

          <список значений 1>: <команда 1>;

          …

          <список значений n>: <команда n>

          else <команда n+1>

end;

где выражение - это простая переменная целого, символьного, перечислимого или логического типов; списки значений - константы или диапазоны, тип которых должен совпадать с типом выражения. Если список значений состоит из нескольких элементов, то они перечисляются через запятую. Составную часть else <команда n+1> можно не писать, тогда получаем короткую форму команды case.

Действие команды. Если значение выражения совпадает с некоторым значением из і-го списка, то выполняется команда с номером і, а другие команды этой конструкции не выполняются. Если значение выражения не совпадает ни с одним значением из

любого списка, то выполняется команда n+1. В случае короткой формы - следующая команда после команды case.

Задача 3. Пусть населенные пункты обозначены номерами от 1 до 8. Стоимость одного билета к пункту k определяется так:

             22, k = 1

Cena =  25, k = 2,3,4,

             30, k = 5,6,

             35, k = 7,8

 

Сколько стрит т билетов к населенному пункту, номер которого пользователь должен ввести с клавиатуры?

program Bilety;

uses Crt;

var k, m, cena : integer;

begin

      clrscr;

       writeln(‘Введите номер пункта и количество билетов:’);

 readln(k, m);

case k of

1        :    cena:=22;

2..4    :   cena:=25;

5,6     :   cena;=30

else         cena:=35

end;

write(m,   ‘ билетов к пункту ‘,  k,   ‘стоят’);

writeln(m * cena);

 readln

end.

 

Если во время выполнения программы данные ввести так: 3   5, то на экране получим:

5 билетов к пункту 3 стоят 125.

 Задание 5. Решить задачу № 4 своего варианта.

 

 

10