Лабораторная работа № 3

Вычисление с неизвестным количеством циклов

Циклические процессы в которых заранее не известно число повторений, а проверка выхода из цикла ведется по достижении требуемой точности называется итерационными. Условие прекращения является заданное число.

Задание: разработать алгоритм вычисления суммы с неизвестным числом повторов.

program summa3;

var k:integer;e,x,y,s:real;

Begin

writeln('vvedi x,e');

readln(x);

readln(e);

k:=1;

s:=0;

Repeat

y:=1/(x*x*x*sqr(k));

s:=s+y;

k:=k+1;

until abs(y)<e;

writeln(s:10:3,' ',k-1);

end.

Результат:

x=2, e=0.001, s=0.195, k-1=12

Блок-схема

начало

x, e

k=1

s=0

Y=1/x*x*x*sqr(k)

s=s+y

k=k+1

|y|<e

s, k-1

конец

нет

да