7. МНОЖЕСТВЕННЫЙ ВЫБОР

«Направо ехати — коня теряти,
налево ехати — женату быть,
прямо ехати — убиту быть»
Русская народная сказка.


Начнем сразу с задачи:
ЗАДАЧА: Написать программу, которая выводит название дня недели по его порядковому номеру

В голову сразу приходит конструкция неполного ветвления If … Then
Такой вариант имеет право на существование (см. ниже)…

if_mn1

Program If_mn;
Var a:integer;
Begin
  Write (‘Введите порядковый номер дня недели: ‘);
  Readln(a);
  If a=1 Then Write(‘Понедельник’)
  If a=2 Then Write(‘Вторник’);
  If a=3 Then Write(‘Среда’);
  If a=4 Then Write(‘Четверг’);
  If a=5 Then Write(‘Пятница’);
  If a=6 Then Write(‘Суббота’);
  If a=7 Then Write(‘Воскресенье’)
End.

…Но есть вариант намного изящнее, да и к тому же с защитой от дурака. Это конструкция Case … of … End
if_mnProgram If_mn;
Var a:integer;
Begin
  Write (‘Введите порядковый номер дня недели: ‘);
  Readln(a);
  Case a of
    1: Write(‘Понедельник’);
    2: Write(‘Вторник’);
    3: Write(‘Среда’);
    4: Write(‘Четверг’);
    5: Write(‘Пятница’);
    6: Write(‘Суббота’);
    7: Write(‘Воскресенье’)
    Else Write(‘Такого дня нет!!!’);
  End;
End. 

Как говорится, комментарии излишни!!!