факториал числа (Pascal)

[Тапочек]

спасибо =)

[Besidnuk]

var i,j,n,a,sum:LongInt;
begin
readln(n);
sum:=0;
for i:=1 to n
 do begin
  a:=1;
  for j:=1 to i
   do a:=a*j;
  sum:=sum+a;
 end;
writeln(sum);
readln;
end.

[Intermediate]

Это ужасный алгоритм! Ты высчитываешь факториал числа в каждой итерации цикла снова и снова. Эта задачка решается за линейное время. Вот посмотри: топик

Факториал нужно считать только 1 раз. На каждой итерации ты домножаешь факториал, увеличивая значение аргумента на 1 и добавляешь новое слагаемое. Не нужно каждый раз высчитывать его заново. Нужно запоминать старое значение (i - 1)!. На новой итерации умножаешь его на i, получая i! И т. д.

[Тапочек]

Besidnuk, спасибо!

[Besidnuk]

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

Это ужасный алгоритм! Ты высчитываешь факториал числа в каждой итерации цикла снова и снова. Эта задачка решается за линейное время. Вот посмотри: топик

Факториал нужно считать только 1 раз. На каждой итерации ты домножаешь факториал, увеличивая значение аргумента на 1 и добавляешь новое слагаемое. Не нужно каждый раз высчитывать его заново. Нужно запоминать старое значение (i - 1)!. На новой итерации умножаешь его на i, получая i! И т. д.

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

[Intermediate]

Ну знаешь, может ты и сумму натуральных чисел от 1 до 100000 будешь в цикле высчитывать? Тогда я в уме посчитаю результат быстрее твоей программы.