паскаль.Прога из 2ух частей .факториалы массива

[SeNeMka]

1) составить программу из 2 ух частей, в основной программе ввести значения чисел m и n , в функции вычислить сумму факториалов всех чётных чисел от m до n .Результат вывести в основной программе

Я так понял сначала надо сделать проверку чёт/нечёт...затем каждому элементу массива присваивоить факториал его...И потом сложить ВСЕ элементы массива...

ВОт мой вариант программы...Только он не совсем работает

Program name;
uses crt;
var
s,i,j,M,N:integer;
a:array[1..100] of integer;
BEGIN
s:=0;
Writeln('3agauTe M');
Readln(M);
Writeln('3agauTe N');
Readln(N);
for i:=1 to M-N do
if a[i] mod 2=0 //проверка на чёт/нечёт
then
begin
for j:=1 to (M-N/2) do //для всех чётных чисел ,которых будет Round(M-N) и тут M-N ошибка в данных
a[i]:=a[i]*j; //элементу массива присвоить факториал его...
end;
for i:=1 to Round((M-N)/2) do // сумма факториалов всех чёт чисел.
s:=s+a[i];
Writeln('Symma =',s);
END.

На Строке 16 ошибка..
Возможно наверно и через процедуры делать ??
В чём ошибка :?

[alex_fcsm]

1. Прочитайте что такое факториал
2.

for j:=1 to (M-N/2) do

Здесь ошибка, при чем не только синтаксическая сколько логическая. Вам надо взять четные числа из M до N

for i:=M to N do
 if i mod 2 = 0 then
     begin
      ........
     end;

Функций в программе вообще не вижу. Напишите функцию факториала отдельно а в цикле по условию будите считать сумму

P.S. Массив можно и не использовать

[SeNeMka]

Program name;
uses crt;
var
s,i,j,M,N:integer;
a:array[1..100] of integer;
function fact(n : integer) : longint;
begin
if n <= 1 then
fact := 1
else
a[i] := n * a[i-1]
end;
BEGIN
s:=0;
Writeln('3agauTe M');
Readln(M);
Writeln('3agauTe N');
Readln(N);
for i:=M to N do
if i mod 2 = 0 then
fact(a[i]);
for i:=1 to Round((M-N)/2) do
s:=s+a[i];
Writeln('Symma =',s);
END.


Ну я решил через массив так как по другому мыслей не было...

[alex_fcsm]

Оформляй код в теги - читать невозможно. Да к тому же это правило)

Program name;
uses crt;
var
s,i,j,M,N:integer;

function fact(n : integer) : longint;
begin

end;

BEGIN
clrscr;// ты вроде объявил модуль crt и забыл про него
s:=0;
Writeln('3agauTe M');
Readln(M);
Writeln('3agauTe N');
Readln(N);
for i:=M to N do
if i mod 2 = 0 then s:=s+fact(i);
Writeln('Symma =',s);
END.

Тебе осталось все-таки написать функцию факториала)
З.Ы. Еще можно было проверку поставить чтобы M<=N, ну это уже так понты

[SeNeMka]

Program name;
uses crt;
var
f,s,i,j,M,N:integer;
a,b:array[1..100] of integer;
function fact(n : integer) : longint;
begin
for i:=1 to M-N do
b[i]:=1;
for i:=1 to M-N do
a[i]:=1;
for i:=1 to a[i] do
b[i]:=b[i]*i;
end;
BEGIN
s:=0;
Writeln('3agauTe M');
Readln(M);
Writeln('3agauTe N');
Readln(N);
for i:=M to N do
if i mod 2 = 0
then s:=s+fact(i);
Writeln('Symma =',s);
end.

Cумма нуль по прежнему...

[alex_fcsm]

Я повторяю что массивы не нужны!!!
Факториа́л числа n — произведение всех натуральных чисел до n включительно. 3!=3*2*1, факториал 0!=1 - это правило

Напиши функцию, куда передаешь N а возвращаешь N!.

[SeNeMka]

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

Я повторяю что массивы не нужны!!!
Факториа́л числа n — произведение всех натуральных чисел до n включительно. 3!=3*2*1, факториал 0!=1 - это правило

Напиши функцию, куда передаешь N а возвращаешь N!.

А ...понял идею....
Только не понял где взять другие числа ?! Например M=6 и N=2...... M!=720
N!=2 А вот 4!=24 Даже Незнай как вернуть...Вот я почему через массивы решил делать.

[alex_fcsm]

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

А ...понял идею....
Только не понял где взять другие числа ?! Например M=6 и N=2...... M!=720
N!=2 А вот 4!=24 Даже Незнай как вернуть...Вот я почему через массивы решил делать.

Возвращать должна функция.
Есть цикл например от 4 до 9
1. 4 - четное? Да s:=s+fact(4);
2. 5 - Четное? нет
3. 6 - четное? Да s:=s+fact(6);
...............

Я так подозреваю что ты не совсем понимаешь что такое функция?

[SeNeMka]

Ну я с процедурами больше заданий делал чем с функциями....

[alex_fcsm]

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

Ну я с процедурами больше заданий делал чем с функциями....

в принципе можно и в процедуре все сделать...
http://www.pascal.helpov.net/index/pascal_Function