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

Рейтинг:   / 0
ПлохоОтлично 

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

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.

 

Критические заметки

Здесь представлены комментарии некоторых спортивных состязаний, а также оценка вопросов, сыгранных в телевизионных клубах "Что? Где? Когда?" России и Беларуси.  Особое внимание будет уделено игровым видам спорта (футбол, хоккей). Найдут для себя полезное и любители шахмат и шахматной композиции. 

Читать

Лучшие книги

Здесь представлены лучшие, на наш взгляд, книги по математике, физике, астрономии, информатике, и некоторым другим предметам. Также предлагается подборка научно-популярной литературы и книг по интеллектуальным играм. Здесь указаны ссылки, по которым Вы можете их скачать.

Перейти к книгам