2004 ИС (Илюшечкин) / ВМИП / Labs / Lab3Moduls(var24 or 19 ne pomnu)-похоже это доп.занятия / MOD1

unit MOD1;

interface
uses
GLOBAL ;

procedure prGetMatrix(var mCurrent:matrix; sCurrentName:string);
procedure prViewMatrix(mCurrent:matrix;sCurrentName:string);


implementation

procedure prGetMatrix(var mCurrent:matrix; sCurrentName:string);
var
CounterI,CounterJ:byte;
begin
for CounterI:=1 to DimI do
begin
for CounterJ:=1 to DimJ do
begin
writeln('Input matrix ',sCurrentName,' [',CounterI,',',CounterJ,']');
readln (mCurrent[CounterI,CounterJ]);
end;
end;
end;



procedure prViewMatrix(mCurrent:matrix;sCurrentName:string);
var
CounterI,CounterJ:byte;
begin
writeln('Output',sCurrentName);
for CounterI:=1 to DimI do
begin
writeln(#10);
for CounterJ:=1 to DimJ do
write(mCurrent[CounterI,CounterJ]:5:2);
end;
writeln(#10);
end;
end.