Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Процедура нахождения следа матрицы
Автор: Павел 15.05.2004 12:34
Если пишу в основной программе нахождение следа матрицы то все работает, но с процедурой что-то не получается, может кто посмотрит что не так?
Код вставлять не буду - слишком длинный, я файл прикрепил.
Прикрепленные файлы
KURS2.PAS ( 10.45 килобайт )
Кол-во скачиваний: 311
Автор: 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
Не за что! Заходи еще! 