ряды в паскале

[narco3]

как найти сумму ряда 1/N! (1;+бескон.) с точностью 0,001 ?

[JUDAS]

program Project2;
var s,dx : double;
     n,i : integer;
begin
 n:=1;
 repeat
   dx:=1;
   for i:=1 to n do
   dx:=dx*i;
   dx:=1/dx;
   s:=s+dx;
   inc(n);
 until dx<0.001;
 writeln(s);
end.

[Serge_Bliznykov]

JUDAS, позволите пару маленьких замечаний?...

Код БЕЗУСЛОВНО рабочий и правильный.

Но я бы
1) всё же перед циклом repeat задал начальное значение суммы s := 0;
я знаю, что в данном случае начальное значение s будет обнулено автоматически (компилятор + загрузчик ОС).
Но тем не менее иницилизировать все переменные перед тем как из них что-то читается в коде - правила хорошего тона (а в некоторых языках несоблюдение этого правила даже считается ошибкой. например, C#).
Ведь мы же хотим привить хороший стиль программирования новичкам, не правда ли?..

2) в подобных задачах эффективнее не считать факториал каждый раз с 1 до N, а завести дополнительную переменную, в которой "накапливать факториал". тогда в цикле будет достаточно умножить эту переменную на N, чтобы получить значение N!. Это и эффективнее, да и код получается проще...

var s,dx, factorial : double;
    n,i : integer;
begin
 n:=1;
 factorial := 1.0;
 s:=0.0;
 repeat
   factorial := factorial * n;
   dx:=1/factorial;
   s:=s+dx;
   inc(n);
 until dx<0.001;
 writeln(s:0:16);
 readln
end.