Процедура нахождения следа матрицы Опции

[Павел]

Если пишу в основной программе нахождение следа матрицы то все работает, но с процедурой что-то не получается, может кто посмотрит что не так?
Код вставлять не буду - слишком длинный, я файл прикрепил.

[AlaRic]

Напиши что конкретно не получается!

[Павел]

Вызываю процедуру, она ошибок не показывает но и не подсчитывает, выводит ноль.
Вот как она выглядит:

Код

procedure sled (a, b: integer; l: real; var c: massiv);
    var i, j: integer;
    begin
        l:=0;
        for i:=1 to a do
        l:=l+c[i,i];
    end; {sled}

Вот так вызываю процедуру:

Код

sled (a1, b2, l12, c12);
writeln('Sled matrici c12 =', l12:4:0);

Что тут не правильно?

[APAL]

Я так понял "l:real" - возвращаемый параметр. Может VAR поставить перед ним?
А перед "c: massiv" убрать.

Сообщение отредактировано: APAL - 15.05.2004 14:21

[Павел]

Большое спасибо, все работает!

[APAL]

Не за что! Заходи еще!