Программирование циклических алгоритмов

В Паскале существуют 3 оператора цикла:

Цикл с постусловием («До»)

Repeat

M1;

M2;

:

Mk;

Until N;

Блок - схема

:

:

-

+

Repeat – повторять;

Until – до;

M1, M2,…, Mk – группа операторов, они называются операторами тела цикла.

N – выражение, имеющее логическое значение (условие выхода из цикла)

Выполняется:

1. Выполняются операторы M1, M2,…, Mk;

2. Вычисляется значение N;

3. Если N – True, то оператор цикла заканчивает свою работу, иначе перейти к пункту 1

Среди операторов тела цикла обязательно должен присутствовать оператор, изменяющий значение выражения N;

Задача 1.

Найти произведение чисел от 1 до 10.

Решение:

Program Ci1;

Var K:Integer;

P:Real;

Begin

K:=0;P:=1;

Repeat

K:=K+1;

P:=P*K;

Until K=10;

Writeln(’P= ’,P:10:5);

End.

Задачи:

1. Даны числа от 1 до N. Найти:а) сумму всех чисел; б) произведение всех чисел; в) среднее арифметическое.

2. Вычислить сумму всех двузначных чисел.

3. Вычислить сумму чисел: S=1+3+5+…+R где R-нечетное.

4. Вычислить произведение чисел: P=2+4+6+…+R где R-четное.

5. Найти значения функции y=x² при х=1,3,5,…,15.

6. Найти значения функции р=(р²+15) при р=2,4,6,…,20.