Если пишу в основной программе нахождение следа матрицы то все работает, но с процедурой что-то не получается, может кто посмотрит что не так?
Код вставлять не буду - слишком длинный, я файл прикрепил.
Полная версия: Процедура нахождения следа матрицы
Напиши что конкретно не получается!
Вызываю процедуру, она ошибок не показывает но и не подсчитывает, выводит ноль.
Вот как она выглядит:
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);
Что тут не правильно?
Вот как она выглядит:
Код
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);
Что тут не правильно?
Я так понял "l:real" - возвращаемый параметр. Может VAR поставить перед ним?
А перед "c: massiv" убрать.
А перед "c: massiv" убрать.
Большое спасибо, все работает!
Не за что! Заходи еще! 
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.