Case (Month) Of

4,6,9,11: WriteLn(’30 дней’);

1,3,5,7,8,10,12: WriteLn(’31 день’);

2: WriteLn(’28 дней’);

Else WriteLn(‘Такого месяца нет’);

End;

ReadLn;

End.

Часто встречающиея ошибки программирования:

1. Использование в качестве селектора выражения логического типа:

Case (n > m) Of. . .

2. Использование в качестве селектора выражения вещественного типа:

Case (n + 2.5) Of. . .

3. Использование в качестве меток вещественных чисел:

Case (n + m) Of

0.5 : n:=1;

1.5 : n:=2;

Else n:=3;

End;

4. Использование двоеточия или точки с запятой после слова Of:

Case (n + m) Of:

. . . . . . . . .

5. Повторение меток:

Case (n + m) Of

0..3 : n:=1;

3, 4 : n:=2;

Else n:=3;

End;

6. Отсутствие в конце оператора слова End:

Case (n + m) Of

0..2 : n:=1;

3, 4 : n:=2;

Else n:=3;

7. Отсутствие точки с запятой в конце каждой ветви переключателя:

Case (n + m) Of

0..3 : n:=1

3, 4 : n:=2;

Else n:=3;

End;

Внимание! Перед веткой Else точка с запятой может ставиться, а может и не ставиться.

8. При задании меток интервалом используются не две, а три точки:

Case (n + m) Of

0...3 : n:=1;

3, 4 : n:=2

Else n:=3;

End;

Внимание! Перед словом End точка с запятой может ставиться, а может и не ставиться.

9. При перечислении меток используются не запятые, а точки с запятой:

Case (n + m) Of

0...3 : n:=1;

3; 4 : n:=2

Else n:=3;

End;

Циклы

Одним из самых ценных свойств компьютеров является их способность многократно повторять последовательность одинаковых или похожих действий - циклов. Являясь наиболее мощными структурами алгоритмических языков, циклы подразделяются на:

1. бесконечные циклы,

2. циклы с предусловием (циклы типа ПОКА),

3. циклы с постусловием (циклы типа ДО),

4. циклы с параметром (циклы типа ДЛЯ).