Программа. VAR N:INTEGER; {номер дня недели}

PROGRAM E31;

VAR N:INTEGER; {номер дня недели}

BEGIN

WRITELN('введите номер дня недели');

READ(N);

CASE N OF

1: WRITELN('понедельник - monday');

2: WRITELN('вторник - tuesday');

3: WRITELN('среда - wednesday');

4: WRITELN('четверг - thursday');

5: WRITELN('пятница - friday');

6: WRITELN('суббота - saturday');

7: WRITELN('воскресенье - sunday');

END

END.

Результат выполнения программы:

введите номер дня недели:

пятница - friday

5.8 Пример использования оператора цикла FOR

Составить программу вычисления K первых членов арифметической прогрессии, заданных рекуррентной формулой An+1 = An + 2, где A1=5, K=6.

Введем обозначения: X - член арифметической прогрессии An, K - количество членов прогрессии, N - параметр цикла.

Исходными данными задачи являются: значение первого члена арифметической прогрессии X и количество членов прогрессии - переменная K. Выходные данные - вычисленные значения членов арифметической прогрессии, начиная со второго и до последнего. Члены арифметической прогрессии вычисляются по рекуррентной формуле суммы X=X+2 в разделе операторов программы. Вычисление суммы повторяется оператором цикла FOR до тех пор, пока переменная цикла N не станет больше K.

Схема алгоритма решения задачи представлена на рис.4.

Программа:

PROGRAM PRIM1

{ раздел описания переменных }

VAR N, {параметр цикла}

K:INTEGER; {количество членов прогрессии}

X:REAL; {член прогрессии}

{раздел операторов}

BEGIN

X:=5.0; {первый член прогрессии}

K:=6;

WRITELN(' ':8,'Члены прогрессии');

WRITELN(' ':20,'X=',X:6:2);

FOR N:=2 TO K DO {начало цикла}

BEGIN

X:=X+2; {вычисление членов прогрессии}

WRITELN(' ':20,'X=',X:6:2)

END {конец цикла}

END.

Результат выполнения программы: