Вычислить, используя функцию нахождения знаменателя:
(n слагаемых)
Решение:
Program pr7;
Var s: real;
i, n: integer;
Function Fakt(x: integer): real; {функция вычисления факториала}
Var
i: integer; f: real;
begin
f:=1;
for i:=1 to x do f:=f*i;
Fakt:=f;
end;
Begin
write('n= '); Readln(n); {вводим количество слагаемых суммы}
s:=0;
For i:=1 to n do {перебираем i от 1 до n}
s:=s+i/Fakt(i+1); {добавляем к сумме очередную дробь, вызывая}
{ функцию для вычисления знаменателя}
writeln('s=',s:6:4); {вывод результата}
Readln;
end.
Результат:
n=3
s=0.9583