задача..сижу на экзамене ..спасайте

[viper52rus]

Создать модуль ,содержащий подпрограммы:
1.Определение суммы элементов каждого столбца квадратной матрицы.
2.Определение суммы элементов главной диаганали квадратной матрицы.

Написать программу в которой требуется сформировать двумерный массив размерности 4*4.Определить номер столбца массива,в котором сумма элементов будет меньше суммы главной диаганали.Использовать созданный модуль.

[NiCola999]

язык какой

[viper52rus]

я зык программирования делфи(консолька)

[Snejnaya]

код модуля

Unit1;
interface 
function summa_stolbca(n:integer, matr:array [1..20, 1..20] of real, index:integer):real;
function summa_diag(n:integer, matr:array [1..20, 1..20] of real):real;

implementation 

function summa_stolbca
var i:integer;
     s:real;
begin
s:=0;
for i:=1 to n do s:=s+matr[i,index];
result:=s;
end;

function summa_diag
var i:integer;
     s:real;
begin
s:=0;
for i:=1 to n do s:=s+matr[i,i];
result:=s;
end;
end.

Написать программу в которой требуется сформировать двумерный массив размерности 4*4.Определить номер столбца массива,в котором сумма элементов будет меньше суммы главной диаганали.Использовать созданный модуль

программа

Uses crt, Unit1;

var index_st,i,j:integer;
     matrica:array [1..4,1..4] of real;
    sum_st,sum_d:real;
    flag:boolean;
begin
randomize;
for i:=1 to 4 do
for j:=1 to 4 do
matrica[i,j]:=random(10);//случайное число в диапазоне 0-10

sum_d:=summa_diag(4, matrica);

flag=false;
j:=1;
while(!flag)and(j<=4) do
begin
sum_st=summa_stolbca(4, matrica, j);
if sum_st<sum_d then
        begin 
        flag:=true;
        index_st:=j;
        end;
j:=j+1;
end;
if flag then writeln ('v stolbce', index_st,'summa elementov menshe')
else writeln('net takih stolbcov');

end.

[viper52rus]

всё я тоже модуль создал но прогу так и немогу..помогите либо с первым модулем либо с этим

unit wet_cunt; 

interface 

cоnst cMatrixSize=4; 

Type TMatrixType=integer; 
TSquareMatrix=array[1..cMatrixSize, 1..cMatrixSize] of TMatrixType; 

function SumColumn(a:TSquareMatrix; Column:integer):TMatrixType; 
function SumDiagonal(a:TSquareMatrix):TMatrixType; 

implementation 

function SumColumn(a:TSquareMatrix; Column:integer):TMatrixType; 
var j:integer; 
//result:TMatrixType; 
begin 
result:=0; 
for j:=1 to cMatrixSize do 
result:=result+a[Column,j]; 
//SumColumn:=result; 
end; 

function SumDiagonal(a:TSquareMatrix):TMatrixType; 
var j:integer; 
//result:TMatrixType; 
begin 
result:=0; 
for j:=1 to cMatrixSize do 
result:=result+a[j,j]; 
//SumDiagonal:=result; 
end; 

end.

[viper52rus]

flag:boolean;

ЧТО ЭТО ТАКОЕ??И ЧТО ОН ДЕЛАЕТ?

[Snejnaya]

модули по смыслу идентичны.Разница лишь в том, что размер матрицы(4) я передаю в модуль, как параметр, а ты определяешь размер матрицы в модуле. Код программы есть выше. Если захочешь использовать свой модуль, просто поменяешь вызов функции.
т.е. вместо предложенной мной
sum_st:=summa_stolbca(4, matrica, j);
нужно будет
sum_st:=SumColumn(matrica, j)

и вместо
sum_d:=summa_diag(4, matrica);
просто
sum_d:=SumDiagonal(matrica);

Я склоняюсь к варианту, что размер матрицы (4) нужно передавать в модуль, как параметр, так как в задаче сказано, что именно программа формирует матрицу 4*4 - есть повод думать, что модуль должен уметь работать и с матрицами других размеров.

[viper52rus]

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

программа
[CODE]Uses crt, Unit1;



sum_d:=summa_diag(4, matrica);

flag=false;
j:=1;
while(!flag)and(j<=4) do
begin
sum_st=summa_stolbca(4, matrica, j);
i/CODE]

вот этот отрезок мне не понятен..поясни плиз,а то препод докапается

[Rusl92]

while(!flag)and(j<=4) do

здесь
while (not flag) and (j<=4) do

while(not flag)and(j<=4) do
begin
sum_st=summa_stolbca(4, matrica, j);
if sum_st<sum_d then
        begin 
        flag:=true;
        index_st:=j;
        end;
j:=j+1;
end;
if flag then writeln ('v stolbce', index_st,'summa elementov menshe')
else writeln('net takih stolbcov');

end.

в данном цикле вызывается подпрограмма из Unit1
и если сумма столбца < сумма диагонали - то флажок меняем и выходим из цикла и печатаем в каком столбце, иначе выходим из цикла когда j станет 5 и выведем, что нет таких столбцов!

[viper52rus]

sum_d:=summa_d(4, matrica);

вот эту строку подчеркивает

[Pascal Error] Project1.dpr(19): E2034 Too many actual parameters
[Pascal Error] Project1.dpr(21): E2029 ':=' expected but '=' found
[Pascal Error] Project1.dpr(25): E2029 ':=' expected but '=' found
[Pascal Error] Project1.dpr(25): E2010 Incompatible types: 'Integer' and 'Array'