Составить программу вычисления суммы

[Ленка]

Составить программу вычисления суммы: 2! + 4! + 6! + ... + n! (n ≤ 16, n – четное). Тип результата значения функции – LongInt .

[Stilet]

Хоть примерно представляешь себе код?

[Ленка]

вы сможете написать программу??

[DM_bite]

program Xd;
function Faq(n: integer):longint;
var i: integer;
    zn: longint;
begin
zn:= 1;
for i:= 1 to n do
 begin
  zn:= zn*i;
  end;
  Faq:= zn;
  end;
 function FFaq(n: integer): longint;
var x,sum: integer;
begin
x:= 0;
sum:= 0;
while x<n
do
begin
x:= x+2;
sum:= Faq(x)+ sum;
end;
FFaq:= sum;
end;

var x: integer;
begin
ReadLn(x);
WriteLn(FFaq(x));
ReadLn;
end.
ReadLn(n);
WriteLn(Faq(n));
ReadLn;
end.

Вот полностью программа. Если есть ошибки - поправьте.

[Ленка]

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

program Xd;
function Faq(n: integer):longint;
var i: integer;
    zn: longint;
begin
zn:= 1;
for i:= 1 to n do
 begin
  zn:= zn*i;
  end;
  Faq:= zn;
  end;
 function FFaq(n: integer): longint;
var x,sum: integer;
begin
x:= 0;
sum:= 0;
while x<n
do
begin
x:= x+2;
sum:= Faq(x)+ sum;
end;
FFaq:= sum;
end;

var x: integer;
begin
ReadLn(x);
WriteLn(FFaq(x));
ReadLn;
end.
ReadLn(n);
WriteLn(Faq(n));
ReadLn;
end.

Вот полностью программа. Если есть ошибки - поправьте.

Спасибо огромное

[Serge_Bliznykov]

DM_bite, я понимаю, что уже задача решена и все довольны.
Но хочу сделать одно маленькое замечание.
Учитывая, что факториал, это произведение последовательных натуральных чисел вычислять его каждый раз от начала - это неэффективно!

сравните с Вашим решением:

program Xd;

function FFaq(n: integer): longint;
var x, sum: integer;
  CurFaq : LongInt;
begin
  x := 0;
  sum := 0;
  CurFaq := 1;
  while x < n do
  begin
    CurFaq := CurFaq * (x+1) * (x+2);
    x := x + 2;
    sum := CurFaq + sum;
  end;
  FFaq := sum;
end;

var x: integer;
begin
  ReadLn(x);
  WriteLn(FFaq(x));
  ReadLn;
end.
  ReadLn(n);
  WriteLn(Faq(n));
  ReadLn;
end.

[Инспектор ГУЛ]

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

[DM_bite]

Но хочу сделать одно маленькое замечание.

Если бы ТС могла сделать хотябы как я, то она не стала бы писать сюда.Само собой, если можешь решить одну задачу несколькими способами - это похвально, но, все таки, новичкам лучше попроще.
Ps: Сори за флуд.

[Serge_Bliznykov]

хм... т.е. Вы хотите сказать, что видели, что можно решить без использования функции вычисления факториала, но специально сделали так, чтобы новичку было понятнее?...
тогда хорошо.
потому что я свой пост адресовал Вам и тем, кто уже разбирается в алгоритмах (и тем, кто эту тему найдёт по поиску).

p.s. я ни в малейшей степени не собирался начитать флейм, флуд или, тем паче, кого-то обидеть!