Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Процедура нахождения следа матрицы

Автор: Павел 15.05.2004 12:34

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


Прикрепленные файлы
Прикрепленный файл  KURS2.PAS ( 10.45 килобайт ) Кол-во скачиваний: 242

Автор: AlaRic 15.05.2004 12:56

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

Автор: Павел 15.05.2004 13:03

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

Код

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 15.05.2004 14:20

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

Автор: Павел 15.05.2004 16:08

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

Автор: APAL 15.05.2004 19:38

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