передача параметров

@David_Villa7 · Регистрация: 24.11.2010

Студворк — интернет-сервис помощи студентам

подскажите пожалуйста почему в программе во второй процедуре var A:matrix передаем по ссылке а не по значению, чем это лучше?

Pascal

program jkl;
const MAX = 100;
type Matrix = array[1..MAX, 1..MAX] of integer;
var A: matrix;
    n, i, j: integer;
    b:boolean;
procedure Vvod(var A:matrix; var n:integer);
begin
   readln(n);
   for i:=1 to n do
      for j:=1 to n do
         read(a[i,j]);
end;
procedure Proverka(var A:matrix; var b:boolean);
begin
b:=true;
   for i:=1 to n do
      for j:=1 to n do
      if (i=j) and (A[i,j]=0) or (i<>j) and (A[i,j]<>0) then
      b:=false;
      end;
procedure vivod (var A:matrix; b:boolean);
begin
if b=true then writeln ('matrica diagon') else
writeln ('matr ne diagon');
end;
begin
   Vvod(A, n);
   Proverka(A,b);
   vivod (A,b);
   readln;
end.

@Просто_Юлия · 14.01.2011, 17:30

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

а вот n бы лучше во вторую передать как параметр.

@Просто_Юлия 134 / 47 / 11 Регистрация: 27.05.2008 Сообщений: 246
	14.01.2011, 17:30	2
	в первой процедуре в этом есть смысл во второй и третьей - никакого. матрица внутри них не изменяется.... точнее, в третьей матрица вообще не нужна ни в каком виде. а вот n бы лучше во вторую передать как параметр. 0

Опции темы