Задание 3. Организация циклов в программе

Используя оператор цикла, найти сумму ряда с точностью , общий член которого

Результат напечатать, снабдив соответствующим заголовком.

Первый вариант программы.

Program dom3_1;

const e=1e-3;

var

n, i:integer;

summa,a_n,chisl,znam, factorial:real;

begin

writeln('a(n)=(n!)/(n^n), e = ',e);

summa:=0;

n:=1;

chisl:=1;

znam:=Power(n,n);

a_n:=chisl/znam;

while abs(a_n)>e do

begin

factorial := 1;

for i:=2 to n do

factorial := factorial * i;

chisl:=factorial;

znam:=Power(n,n);

a_n:=chisl/znam;

summa:=summa+a_n;

writeln ('n = ',n ,', a_n =',a_n ,', summa =', summa);

n:=n+1;

end;

writeln (' Сумма = ', summa, ', Последний член ряда = ', a_n);

writeln ('-------------------------------');

readln;

end.

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

a(n)=(n!)/(n^n), e = 0.001

n = 1, a_n =1, summa =1

n = 2, a_n =0.5, summa =1.5

n = 3, a_n =0.222222222222222, summa =1.72222222222222

n = 4, a_n =0.09375, summa =1.81597222222222

n = 5, a_n =0.0384, summa =1.85437222222222

n = 6, a_n =0.0154320987654321, summa =1.86980432098765

n = 7, a_n =0.00611989902166614, summa =1.87592422000932

n = 8, a_n =0.00240325927734375, summa =1.87832747928666

n = 9, a_n =0.000936656708416885, summa =1.87926413599508

Сумма = 1.87926413599508, Последний член ряда = 0.000936656708416885

-------------------------------

Второй вариант прораммы.

Program dz3_2;

const e=0.1e-2;

var n: integer; an, summa: real;

begin

summa:=1; n:=1; an:=1;

while an>e do

begin

an:= an * (Power(n,n) * (n+1))/ (Power(n+1,n+1));

summa:= summa + an; n:=n+1;

end;

writeln(' Сумма = ', summa,' Последний член ряда = ',an);

end.

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

Сумма = 1.87926413599508 , Последний член ряда = 0.000936656708416885