Pascal. Функциии и процедуры

[Sazary]

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

Знаете, и паскаль потребовал скобку и параметр

Хм.. Действительно..
Ну значит функцию так, как в посте #7.
Просто я во Free Pascal пишу. Он поумнее будет )

[Troi666]

Стоп...моя ошибка не тот код вставил...действительно не работает...просит параметры функции

[HoLToFF]

Опять разногласия на уровне сред
Но задача нами решена, можем себя поздравить

[cudalover]

Спасибо всем!

[cudalover]

Проверьте меня пожалуйста, точнее помогите, вроде все правильно, а произведение постоянно равно 0

program kur7;
uses crt;
type arr = array[1..10,1..10] of real;
var
a: arr;
p: real;

procedure init(var m: arr; n: integer);
var i,j: integer;
begin
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        m[i,j]:=random(20);
        write(m[i,j]:5:1);
        end;
    writeln;
    end;
writeln;
end;

function proiz(m:arr; n:integer):real;
var i,j: integer;
rez:real;
begin
p:=1;
i:=n;
for j:= 1 to n do
If j mod 2=0 then
p:=p*a[i,j];
end;

begin
clrscr;
randomize;
init(a,10);
p:=proiz(a,10);
writeln('Proiz =',p:5:2);

readln;
end.

[Sazary]

вроде все правильно, а произведение постоянно равно 0

Ну если произведение все время равно нулю, то что-то, все-таки, неправильно )

Поправьте функцию.

function proiz(m:arr; n:integer):real;
var i,j: integer;
p:real;
begin
p:=1;
i:=n;
for j:= 1 to n do
 If j mod 2=0 then
 p:=p*a[i,j];
proiz := p;
end;

[cudalover]

Теперь все время 1 ))

[cudalover]

Ой нет все нормально!!! СПАСИБО большое!

[Sazary]

Теперь все время 1 ))

о_О Уверены? Проверьте еще раз. Вот полный код.
Может, случайно задели еще что-то.

program kur7;
uses crt;
type arr = array[1..10,1..10] of real;
var
a: arr;
p: real;

procedure init(var m: arr; n: integer);
var i,j: integer;
begin
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        m[i,j]:=random(20);
        write(m[i,j]:5:1);
        end;
    writeln;
    end;
writeln;
end;

function proiz(m:arr; n:integer):real;
var i,j: integer;
p:real;
begin
p:=1;
i:=n;
for j:= 1 to n do
 If j mod 2=0 then
 p:=p*a[i,j];
proiz := p;
end;

begin
clrscr;
randomize;
init(a,10);
p:=proiz(a,10);
writeln('Proiz =',p:5:2);

readln;
end.

Ой нет все нормально!!! СПАСИБО большое!

ну вот )

[Anatole]

если имя функции учавствует в выражениях (не присваивание значения имени самой функции) в теле самой функции, то это называется реурсивным вызовом функции