Задание 4. Циклические вычислительные процессы. Решение задач, содержащих вычисление конечных сумм и произведений

Условие задачи:

Вычислите конечное значение суммы функции

Для решения задачи использовать разные способы организации цикла:

1) Цикл с предусловием (WHILE);

2) Цикл с постусловием (REPEAT … UNTIL);

3) Цикл с параметром (FOR) со счётчиком (с шагом 1).

Пояснение:

1 способ: Цикл с предусловием (WHILE)

Обозначения:

А – вспомогательная переменная, в которой вычисляется слагаемое;

S – переменная, в которой происходит накапливание значений сумм.

Первое значение переменной S=0.

Program Summa1; Var X: integer; S, A: real; Begin X:=1; S:=0; While X<=20 do begin A:=1/(X*X); S:=S+A; X:=X+1; end; Writeln ('S=', S:4:2); readln; End.

2 способ: Цикл с постусловием (REPEAT … UNTIL)

Program Summa2; Var X: integer; S, A: real; Begin X:=1; S:=0; repeat A:=1/(X*X); S:=S+A; X:=X+1; until Х>20; Writeln ('S=', S:4:2); readln; End.

3 способ: Цикл с параметром (FOR) со счётчиком (с шагом 1)

Program Summa3; Var X: integer; S, A: real; Begin S:=0; for X:=1 to 20 do begin A:=1/(X*X); S:=S+A; end; Writeln ('S=', S:4:2); readln; End.

Условие задачи:

Вычислите конечное значение произведения функции

Пояснение:

1способ: Цикл с предусловием (WHILE)

Обозначения:

А – вспомогательная переменная, в которой вычисляется множитель;

P – переменная, в которой происходит накапливание значений произведения.

Первое значение переменной P=1.

Program Summa1; Var N: integer; P, A: real; Begin N:=1; P:=1; While N<=10 do begin A:=N*N/(3+N); P:=P*A; N:=N+1; end; Writeln ('P=', P:4:2); readln; End.

Остальные способы аналогично вычислению конечной суммы.