Javascript must be enabled in your browser to use this page.
Please enable Javascript under your Tools menu in your browser.
Once javascript is enabled Click here to go back to �нтеллектуальная Кобринщина

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

Case выражение of

Список значений 1 : оператор 1;

Список значений 2 : оператор 2;

Список значений n : оператор n;

else оператор;

end;

Программа, определяющая этаж по введённому с клавиатуры номеру квартиры (в пятиэтажном доме один подъезд по четыре квартиры на каждом этаже). 

 Program dom;

Uses Crt;

var х : Integer;                       

Begin                                    

   Clrscr;

   write('Введите номер квартиры: ');

   readln(x);

Case x of

      1, 2, 3, 4: writeln(‘Первый этаж’);

      5, 6, 7, 8: writeln(‘Второй этаж’);

      9, 10, 11, 12: writeln(‘Третий этаж’);

      13, 14, 15, 16: writeln(‘Четвёртый этаж’);

      17, 18, 19, 20: writeln(‘Пятый этаж’);

end;

else writeln(‘Квартиры с таким номером в доме нет’);

  readln;

End.

 

Программа, определяющая номер подъезда и этаж по введённому с клавиатуры номеру квартиры (в пятиэтажном доме два подъезда по четыре квартиры на каждом этаже). 

 Program dom;

Uses Crt;

var х : Integer;                       

Begin                                    

   Clrscr;

   write('Введите номер квартиры: ');

   readln(x);

Case x of

      1, 2, 3, 4: writeln(‘Первый подъезд. Первый этаж’);

      5, 6, 7, 8: writeln(‘Первый подъезд. Второй этаж’);

      9, 10, 11, 12: writeln(‘Первый подъезд. Третий этаж’);

      13, 14, 15, 16: writeln(‘Первый подъезд. Четвёртый этаж’);

      17, 18, 19, 20: writeln(‘Первый подъезд. Пятый этаж’);

      21, 22, 23, 24: writeln(‘Второй подъезд. Первый этаж’);

      25, 26, 27, 28: writeln(‘Второй подъезд. Второй этаж’);

      29, 30, 31, 32: writeln(‘Второй подъезд. Третий этаж’);

      33, 34, 35, 36: writeln(‘Второй подъезд. Четвёртый этаж’);

      37, 38, 39, 40: writeln(‘Второй подъезд. Пятый этаж’);

else writeln(‘Квартиры с таким номером в доме нет’);

end;

  readln;

End.

 

Программа, определяющая по номеру месяца – время года.

Program year;

Uses Crt;

var х : Integer;                       

Begin                                    

   Clrscr;

   write('Введите номер месяца: ');

   readln(x);

Case x of

      12, 1, 2: writeln(‘Зима’);

      3, 4, 5: writeln(‘Весна’);

      6, 7, 8: writeln(‘Лето’);

      9, 10, 11: writeln(‘Осень’);

end;

  readln;

End.

 

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

Справка: 1996 г. — Год Крысы — начало очередного цикла.

Program Goroskop;

Uses Crt;

var Year : integers;

Begin

      Clrscr;

    write('Введите год ');

    readln(Year);

Case Year mod 12 of 

         0:      writeln('Год Обезьяны');

         1:      writeln('Год Петуха');

         2:      writeln('Год Собаки');

         3:      writeln('Год Свиньи');

         4:       writeln(‘Год Крысы');

         5:       writeln(‘Год Коровы');

         6:       writeln(‘Год Тигра');

         7:       writeln(‘Год Зайца');

         8:       writeln(‘Год Дракона');

         9:       writeln(‘Год Змеи');

        10:      writeln(‘Год Лошади');

        11:      writeln(‘ Год Овцы');

          end;

     readln;

End.