Составить программу для вычисления суммы: 2!+4!+6!+…+n!

[tweeker]

Составить программу для вычисления суммы: 2!+4!+6!+…+n! с подпрограммой процедурой.Заранее спасибо.
P.S. нужно сделать очень все по-простому.Заранее спасибо

[Кольша]

functin factorial(const n:integer):integer;
var
 i:integer;
begin
 result:=1;
  for i:=2 to n do
    result:=result*i;
end;
var
n,i,c:integer;
begin
readln(n);
c:=0;
for i:=2 to n do
c:=c+factorial(i);
writeln(c);
end.

[tweeker]

functin factorial(const n:integer):integer;
var
i:integer;
begin
В этой части пишет "неизвестный идентификатор".нужно добавить в Var?

[type_Oleg]

Кстати, на данном этапе развития человечества, тип Integer это число от -2147483648 до 2147483647.
А факториал всего от 13 уже равен 13!=6227020800
Так что лучше Double, если конечно n не ограничено числом 12.
И лучше последующее слагаемое вычислять через предыдущее.
А то получается, вычисляем 5! : 1*2*3* и т.д, потом 6! - и снова 1*2*3 и т.д.

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

f пишет "неизвестный идентификатор"

Наверное, не нравится Result.
Смотря, в чем вы работаете. Не все компиляторы понимают этот Result.
Некотрые нет. Вместо него надо имя функции.

[tweeker]

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

Кстати, на данном этапе развития человечества, тип Integer это число от -2147483648 до 2147483647.
А факториал всего от 13 уже равен 13!=6227020800
Так что лучше Double, если конечно n не ограничено числом 12.
И лучше последующее слагаемое вычислять через предыдущее.
А то получается, вычисляем 5! : 1*2*3* и т.д, потом 6! - и снова 1*2*3 и т.д.

Да,это короче будет,но к сожалению,я еще не дошел до этого так что буду через integer

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

Наверное, не нравится Result.
Смотря, в чем вы работаете. Не все компиляторы понимают этот Result.
Некотрые нет. Вместо него надо имя функции.

Тааак,а теперь для псевдопрограммиста объясни

[Кольша]

functin factorial(const n:integer):Double;
var
 i:integer;
begin
 result:=1;
  for i:=2 to n do
    factorial:=factorial*i;
end;
var
n,i,c:integer;
begin
readln(n);
c:=0;
for i:=2 to n do
c:=c+factorial(i);
writeln(c);
end.

[type_Oleg]

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

Тааак,а теперь для псевдопрограммиста объясни

Вместо
result:=1;
вот это
factorial:=1;

PS А вообще в задании подпрограммой процедурой, то есть надо не function, а procedure
Хотя, мне кажется, с функцией логичнее. Или как? Можно и то и то?

Кстати, на чем пишите? Я понял, что не Delphi, не Lazarus, а что ?

И еще, n может быть нечетным?

[tweeker]

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

Вместо
result:=1;
вот это
factorial:=1;

PS А вообще в задании подпрограммой процедурой, то есть надо не function, а procedure
Хотя, мне кажется, с функцией логичнее. Или как? Можно и то и то?

Кстати, на чем пишите? Я понял, что не Delphi, не Lazarus, а что ?

И еще, n может быть нечетным?

Мы еще только в самом начале-Turbo Pascal.Можно только функц.Я сделал с помощью цикла,без подпрограмм,меня заставили переделывать -_-

[type_Oleg]

n может быть нечетным?

Вот, и функция и процедура. Надеюсь, что ввод n, вывод результата, сами сможете.

function fact(n:Integer):Double;
begin
 if n=0 then fact:=1 else fact:=n*fact(n-1); // рекурсия однако, то есть самовызов функции
end;
procedure sumFact(n:Integer;var sum:Double);
var i:Integer;
begin
 sum:=0;
 if n<2 then Exit;
 for i:=2 to n do 
   if (not Odd(i))or(i=n)then sum:=sum+fact(i);
end;

Не оптимальный по быстродействию, но работает.