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.
Результат выполнения программы: