Циклы.Паскаль.

[Jeckee]

написать программу:
1) n
Σ 1/i! ,где n вводит пользователь.
i=1
это,как нам объяснили,i на промежутке [1,n].
У меня не получается связать цикл для i с циклом для факториала.компилятор ошибок не видит,а программа не работает.

[maxionans]

не работает как? ничего не показывает? может факториальчик долго вычисляется?

[Naive]

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

У меня не получается связать цикл для i с циклом для факториала.компилятор ошибок не видит,а программа не работает.

цикл для факториала нужно поставить внутрь цикла "для i"

[Grag]

А не лучши ли вычисление факториала оформить функцией?

[Jeckee]

ой,вы меня только запутали!)))
напишите,пожалуйста,саму программу.
там ведь немного.

[Jeckee]

он показывал ошибку,когда нажимаю run.
появляется Error номер какой-то.преподаватель не захотел говорить,что за ошибка

[Hacker19_90]

Покажите свою программу

[Jeckee]

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

цикл для факториала нужно поставить внутрь цикла "для i"

я так и делала.

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

Покажите свою программу

ой,знаете... не могу я ее на учебе сразу в паскале писала.сейчас уже не вспомню,что писала.
я сейчас скину,как написала другую программу!проверьте пожалуйста

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

А не лучши ли вычисление факториала оформить функцией?

в смысле?? это как??
нам в универе ничего не объясняют,никакого материала не дают.
как со школы помню,так и пишу

[GetMax]

Должно работать.

Var
  i,n:Byte;
  Summa,Slog:Real;
Begin
   Readln(N);
   Summa:=1;
   i:=1;
   Repeat
      Inc(i);
      Slog:=1/(i*(i-1));
      Summa:=Summa+Slog
  Until i >=N;
  Writeln(Summa);
  Readln
End.

[Hacker19_90]

(i*(i-1))

Это факториал так считается?

Мож так поробывать

sum := 0;
for i := 1 to n do
begin
     fact := 1;
     for j := 1 to i do
         fact := fact*j;
     sum := sum + 1/fact;
end;

P.S.: ЗА правильность не ручаюсь