Pascal. Задача.
Как водится сессия подкралась незаметно. Горим.
Помогите написать программу.
Найти суммы первых 10 членов числового ряда, заданного формулой общего члена
An = n+1/(n+1)!
лови и проверяй )
сумма первых 10 членов ряда при i=1..10
!!!!если i от 0 до 9, то цыкл замени на
for i:=0 to N-1 do
E:=E + (i+1) / fack (i+1) ;
=====================================
function fack(n :integer) : real;
var
i :integer;
z :real;
begin
z:=1;
for i:=1 to n do z:=z*i;
fack:= z;
end;
var
i, n :integer;
x, E :real;
BEGIN
writeln('========');
n:=10; { vvod kolva 4lenov ryada }
E:=0;
for i:=1 to n do
E:=E + (i+1) / fack (i+1) ;
writeln('fnc= ', E:1:8);
readln; readln;
END.
===================================
РЕЗУЛЬТАТ:
========
fnc= 1.71828180
function Fuct( value:integer) : integer;
var
x:integer;
begin
Result:=1;
for x:=1 to value do
Result:=Result*x;
end;
var
x:integer; sum:real;
begin
sum:=0;
for x:=1 to 10 do
sum :=sum + x + 1/Fuct(x+1);
end.
