Пример 3. В этом примере демонстрируется использование списка констант в операторе выбора.
Программа сообщает, сдал студент экзамен или не сдал. Если оценка одна из следующих: 3, 4, 5, то экзамен сдан; если 2, то не сдан.
Case N of
3, 4, 5: WriteLn('Экзамен сдан');
2: WriteLn('Экзамен не сдан');
Else WriteLn('Нет такой оценки')
End
If (N=3) or (N=4) or (N=5)
Then WriteLn('Экзамен сдан')
Else If N=2
Then WriteLn('Экзамен не сдан')
Else WriteLn('Нет такой оценки');
Если применить условный оператор, то эта программа запишется так:
Если применить оператор выбора, то эта программа запишется так: