2004 ИС (Илюшечкин) / ВМИП / Labs / laba3(moduls)var24 / GetMatrix

unit GetMatrix;

interface
uses
GLOBAL ;
procedure prGetMatrix(var CurrentMatrix:matrix;MatrixName:string);


implementation

procedure prGetMatrix(var CurrentMatrix:matrix;MatrixName:string);
var
InputType,i,j:byte ;
begin
randomize;
writeln(' Matrix ',MatrixName,' input type :0-manual,1-auto ');
readln (InputType) ;
case InputType of
0:begin
for i:=1 to MatrixDimI do
for j :=1 to MatrixDimJ do
begin
writeln('input ',MatrixName,'[',i,',',j,']');
readln(CurrentMatrix[i,j]);
end;
end;
1:begin
for i:=1 to MatrixDimI do
for j :=1 to MatrixDimJ do
CurrentMatrix[i,j]:=5-random*10;
end;
end;
end;
end.