Алгоритми і програми з розгалуженнями

Зауваження. На місці команди 1 та команди 2 може бути теж команда розгалуження if.

Приклад. Визначимо більше число з-поміж двох чисел:

If a>=b then c:=a else c:=b;

де a i b - два числа, а с - проміжна змінна куди заносимо більше з 2-х чисел.

Оператор вибору case.

Якщо потрібно здійснити вибір з великої кількості варіантів, зручно використовувати оператор (команду) вибору case:

case <вираз-селектор>of <список 1>:<команда 1>; <список 2>:<команда 2>; … <список n>:<команда n>; else <команда> end;

Виконання оператора:

Якщо значення виразу збігається зі значенням з найбільшого списку чи діапазону, то виконується відповідна команда, що записана після двокрапки “:” і на цьому виконання команди case закінчується, якщо ні, то виконується команда після слова else. Складової частини else <команди> може бути.

Задача. У багатьох університетах поточні знання студентів протягом семестру оцінюють за стобальною системою. Потім бали переводять в оцінки: <<відмінно>>,<<добре>>,<<задовільно>>,<<незадовільно>>.

Оцінки визначають так:

Бали Оцінка88-100 <<відмінно>>

71-87 <<добре>>

50-70 <<задовільно>>

0-49 <<незадовільно>>

Скласти програму, яка для конкретного студента (name) і його кількості балів (bal) виводить його оцінку (mark).

program Marks;

var bal: integer; name, mark: string;

begin

write ('Введіть прізвище');

readln (name);

write ('Введіть бали');

readln (bal);

case bal of