Помогите, пожалуйста, найти ошибку в коде (найти сумму факториалов чётных чисел в заданном диапазоне)

[kris14]

Здравствуйте, только начала разбираться, как программировать в Паскале. Встретила такую задачу: составить программу для вычисления суммы факториалов всех четных чисел от m до n. Причем нужно это сделать с помощью процедур. Написала вот такой код, но у меня почему-то данная программа так и не проверяет на чётность, а просто считает факториал последнего числа в заданном диапазоне. Думала над этим уже не знай сколько, а всё равно не понимаю, где именно косяк. Буду очень благодарна за помощь!

program p3; 
var 
n1, m1, i1, k, s, f1: integer; 

procedure fact(n,m:integer; var f:integer); 
var i:integer; 

begin 
f:=1; 
for i:=n to m do 
f:=f*i; 
end; 

begin 
write ('Введите N & M: '); 
readln (n1, m1); 
for i1:=n1 to m1 do 
write (i1:4); 

for i1:=n1 to m1 do 
begin 
k:=i1 mod 2; 
if k=0 then 
fact(n1,m1,f1); 
writeln(''); 
writeln('Факториал = ', f1); 
end; 

begin 
s:=0; 
s:=s+f1; 
writeln(''); 
writeln('Сумма факториалов всех чётных чисел в данном диапазоне = ', s); 
end; 

end.

[p51x]

А где сумма факториалов-то?

s:=s+f1;

Тут вы прибавляете единственный последний и все...

[kris14]

Простите за глупые вопросы, но я только разбираюсь и хочу понять, как именно это работает. Вот этот момент с суммой у меня вечно вызывает трудности, пока не могу понять, как именно сделать так, чтобы он считал всю сумму, а не просто прибавлял 1 последний элемент.Если объясните, то буду очень благодарна. Я уже перепробовала все, что пришло на ум, но ничего не получается

[Aleksandr H.]

s:=0;
for i1:=n1 to m1 do 
begin 
k:=i1 mod 2; 
if k=0 then 
fact(n1,m1,f1); 
writeln(''); 
writeln('Факториал = ', f1); 
s:=s+f1; 
end; 
writeln(''); 
writeln('Сумма факториалов всех чётных чисел в данном диапазоне = ', s);

[kris14]

Спасибо. Вот еще такой вопрос: почему он всё также продолжает вычислять факториал последнего числа в заданном диапазоне? Вот этот момент тоже непонятен, вроде прописываю, что для каждого числа в заданном диапазоне должен вычислять, а в итоге получается, что только для последнего...

[Аватар]

А он и вычислял, только не сохранял результат

[Aleksandr H.]

о5 фигню написал
Вот так надо, не?

s:=0;
for i1:=n1 to m1 do 
 begin 
  k:=i1 mod 2; 
  if k=0 then 
   begin
     fact(1,i1,f1); 
     writeln(''); 
     writeln('Факториал = ', f1); 
     s:=s+f1; 
   end;
 end; 
writeln; 
writeln('Сумма факториалов всех чётных чисел в данном диапазоне = ', s);

[Serge_Bliznykov]

Сообщение от Aleksandr H.

Вот так надо, не?

я бы без проверки условия в цикле обошёлся.
примерно так:

  s:=0;
  i:=n1;
  if odd(i) then Inc(i);
  while i<=m1 do begin
     fact(2,i,f1); 
     writeln('Факториал ',i,'! = ', f1);
     s:=s+f1; 
     Inc(i,2);
 end; 
 writeln('Сумма факториалов всех чётных чисел в данном диапазоне = ', s);

[kris14]

Спасибо огромное! Разобралась благодаря Вам!