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

[mMAg]

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

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

должно быть

type matrix = array [1..20,1..20] of real;
function summa_diag(n:integer, matr:matrix):real;

[Stilet]

Snejnaya

Поправлю твой коктейль Молотова, ато парнишка не сдаст.
Модуль:

unit Unit2;
interface
 type tmatr=array [1..20, 1..20] of real;
function summa_stolbca(n:integer; matr:tmatr; index:integer):real;
function summa_diag(n:integer; matr:tmatr):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.

Программа:

program Project1;

uses crt,
  Unit2;

var index_st,i,j:integer;
     matrica:tmatr;
    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(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');
 readln;
end.

Проверил - результ выдает справно.

Ругается, потому что массивы в качестве параметров передавать нельзя

И не только поэтому.

[Rusl92]

............

[viper52rus]

при запуске пишет exception EInOutError in module project2.exe

[Snejnaya]

viper52rus
про flag тебе написали - это переменная булевского типа, которая проверяет, есть ли вообще в матрице такой столбец. Если столбца нет, то выводится соответствующее сообщение. Если таких столбцов несколько, выведется только первый из них.


По поводу ошибок:

1)[Pascal Error] Project1.dpr(21): E2029 ':=' expected but '=' found
[Pascal Error] Project1.dpr(25): E2029 ':=' expected but '=' found

flag=false;

sum_st=summa_stolbca(4, matrica, j);

здесь просто вместо = нужен оператор присваивания := (flag:=false), исправь опечатки.


Что касается ошибок

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

сдается мне, ты взял свой модуль, а мою программу оставил без исправлений. ищи, где у тебя идет обращение к функции модуля и проверяй, все ли параметры правильно передаются.

type matrix = array [1..20,1..20] of real;

ну по идее так и нужно, но я почему-то думала, что и без этого заведется.

[Stilet]

EInOutError

а как ты запускаешь?
Оба файла должны лежать в одной папке

[viper52rus]

sum_d:=summa_diag(matrica , 4 );
пишет ошибку [Pascal Error] Project2.dpr(17): E2034 Too many actual parameters

препод сказал нужно параметры подобрать

[Snejnaya]

sum_d:=summa_diag(4 , matrica);

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

[viper52rus]

всё исправил сдал...всем спасибо век не забуду!

[viper52rus]

всё сдал исправил спасибо..