Програмування основних алгоритмічних структур

У ролі типу селектора можуть використовуватись всі типи, за винятком дійсного.

ПРИКЛАДИ:

1. case i of

1: write(‘понеділок’);

2: write(‘вівторок’);

3: write(‘середа’);

4: write(‘четвер’);

5: write(‘п’ятниця’);

6: write(‘субота’);

7: write(‘неділя’);

end;

2.case i of

1..5: write(‘робочий день’);

6,7: write(‘вихідний’);

end;

Розглянемо приклад запису розгалуженого алгоритму.

Задача 3. Розмір відрахувань на заробітну плату становить 1% з суми, що не перевищує 150 грн, і 2% у противному випадку. Програма має вигляд:

program vidrah;

var s:integer;

x:real;

begin

write(‘введіть значення фонду зарплати s:’);

readln(s);

if s<=150 then x:=s*0.01 else x:=s*0.02;

writeln(‘відрахування становлять x=’,x:7:2, ‘грн’)