Написание программы через процедуры и функции

[Руслан56]

Нужно напечатать программы процедуры и функции с параметрами.Паскаль


1)Дано натуральное число. Верно ли, что произведение нечетных цифр данного числа меньше некоторого заданного числа.
2)Составьте программу получения в порядке убывания всех делителей данного числа.
3)Задано целое число N. Найти ближайшее к нему совершенное число.

То что написал, но требуют что бы процедуры и функции были написаны с параметрами:

1)

program pro1;
procedure max;
var
   a, i: integer;
   p: real;
begin
     writeln('Введите число');
     readln(a);
     p := 1;
     for i := 1 to a do begin
                        if (i mod 2 <> 0) then p := p * i;
                        end;
     writeln('произведение нечетных чисел = ', p);
     if (p < a) then writeln('Произведение меньше')
                else writeln('Произведение больше введенного числа');
end;

begin max;
end.

2)

program pro2;
function max:integer;
var
   a,i: integer;
begin
     writeln('Введите число');
     readln(a);
     for i:=a downto 1 do if a mod i = 0 then writeln('=', i);
end;
begin max();
end.

3)

program pro2;
procedure max;
var
   sum: longint;
   a,i: integer;
begin
     writeln('Введите число');
     readln(a);
     for i:=a downto 1 do if a mod i = 0 then sum:=sum+i ;
     writeln ('совершенное число = ', sum);
end;
begin max;
end.

[type_Oleg]

Сообщение от Руслан56

1)Дано натуральное число. Верно ли, что произведение нечетных цифр данного числа меньше некоторого заданного числа.

Ответ на вопрос верно ли ... - или Истина, или Ложь.
Так и напрашивается создать функцию, возвращающую значение логического типа.
И использовать данное натуральное и некоторое заданное числа в качестве входных параметров.

function fmax(aNatur,Zadan:Integer):Boolean;
var p:Integer;
begin
 // здесь вычисляется произведение p
 fmax:=p<Zadan;
end;

Или как процедуру:

procedure max(aNatur,Zadan:Integer;var Verno_Li:Boolean);

[Poma][a]

#3 Бросилось в глаза..
Нет инициализации sum..
И что за задача? Совершенное число - это число, которое равно сумме всех своих делителей (не сщитая само число).. А то что Вы делаете - ересь..

#2

begin max();
end.

А max функция? Чур меня, чур

[Руслан56]

Исправил третью

program pro3;

var
   sum: longint;
   a,i: integer;
begin
     writeln('Введите число');
     readln(a);
     for i:=1 to a div 2 do if a mod i=0  then sum:=sum+i ;
     writeln ('Совершенное число ', sum);
end.

Первую пробую прописать. Он пишет неверное количество фактических параметров. Вторую и третью я не знаю как прописать с параметрами, постоянно какие то ошибки

[Serge_Bliznykov]

Исправил третью

допишите иницилизацию sum!

rogram pro3;

var
   sum: longint;
   a,i: integer;
begin
     writeln('Введите число');
     readln(a);
     sum := 0;
     for i:=1 to a div 2 do if a mod i=0  then sum:=sum+i ;
....

Первую пробую прописать. Он пишет неверное количество фактических параметров.

угу. точно так. Вы почитайте книжки/погуглите, как описываются процедуры/функции.
грубо говоря это должно выглядеть так:

function ИмяФункции( перечень формальных параметров) : возвращаемый_тип;
описание типов/переменных
begin
    ..... тут тело функции. в нём обязательно должно быть 
             присвоение возвращаемого значения: ИмяФункции  := результат;
end;

когда вызывается функция, то в неё нужно передавать фактические параметры, которые по количеству, порядку указания и типу должны в точности соответствать перечню формальных параметров! допускается функция без параметров, тогда, разумеется, её нужно вызывать так же без параметров!