паскаль цикл for + факториал

[Jon1kus]

Помогите пожалуиста решить задачку

Дано целое число N (>0), используя цикл For, наити сумму 1+1/(1!)+1/(2!)...1/(N!), (N!) - факториал произведение всех чисел от 1 до N, !!!Полученное число являеться приблеженному значению константы e=exp(1)

[VadikV]

f := 1;
s := 1;
for i := 1 to n do begin
   f := f * i;
   s := s + 1 / f;
end;

[Jon1kus]

Спасибо , но как приближенно к e=exp(1) сделать?

Program lab9;
Uses crt;
Var f,n,s,i:integer;
begin
f := 1;
s := 1;
for i := 1 to n do
begin
f := f * i;
s := s + 1;
end;
writeln('-------------')
end.

составил по вашему образцу, только вот ответ он мне никакой не выдает

[tools]

так вы и не выводите в конце ничего, допустим, так:

writeln(s:3:2)

а чтобы сопоставлять результат с экспонентой числа, загоните вычисления в цикл while или repeat

[Jon1kus]

Вот я подправил, как вы говорили , но увы ответа так и не получил=(

Program lab9;
Uses crt;
Var f,n,s,i:integer;
begin
f := 1;
s := 1;
for i := 1 to n do
begin
f := f * i;
s := s + 1;
writeln('i',i:2,'f=',f:4,'s=',s:5);
end;
writeln('-------------')
end.

а можете кратко показать через повтор repeat как с экспонентои сравнить? Я в прогромирываний плохо разбираюсь, так как с компьютерами моя проффесия не связана, а информатик такое выдает

[Sanek-MU]

Сообщение от Jon1kus

Вот я подправил, как вы говорили , но увы ответа так и не получил=(
Program lab9;
Uses crt;
Var f,n,s,i:integer;
begin
f := 1;
s := 1;
for i := 1 to n do
begin
f := f * i;
s := s + 1;
writeln('i',i:2,'f=',f:4,'s=',s:5);
end;
writeln('-------------')
end.

а можете кратко показать через повтор repeat как с экспонентои сравнить? Я в прогромирываний плохо разбираюсь, так как с компьютерами моя проффесия не связана, а информатик такое выдает

Не s := s + 1, а

S := S + 1 / F

Данная сумма и есть разложение числа e в ряд Маклорена.
Я бы сделал так:

Program lab9;
Uses crt;
Var f,n,s,i:integer;
begin
  f := 1;
  s := 1;
  for i := 1 to n do
  begin
    f := f * i;
    s := s + 1 / f;
  end;
  WriteLn('N = ',n,', S = ',s);
  ReadLn;
end.

[Jon1kus]

Program lab9;
Uses crt;
Var f,n,s,i:integer;
begin
  f := 1;
  s := 1;
  for i := 1 to n do
  begin
    f := f * i;
    s := s + 1 / f;
  end;
  WriteLn('N = ',n,', S = ',s);
  ReadLn;
end.

Ошибка: попытка присвоить переменнои типа интенжер типа real

[GetMax]

Ошибка: попытка присвоить переменнои типа интенжер типа real

Ну и че сразу паникуете? Объявите сумму как вещественную переменную:

Var
  S:Real;

[Jon1kus]

Сделал все работает, спасибо=) Осталось только как то с экспонентой сравнить =/
ибо вот это "Данная сумма и есть разложение числа e в ряд Маклорена." думаю не устроит препода=(

[GetMax]

очень даже просто

e:=exp(1);
WriteLn('N = ',n,', S = ',s:4:2,' E =',e:4:2);