Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:2004 ИС (Илюшечкин) / ВМИП / Labs / laba3(moduls)var24 / ViewMatrix
.pas unit ViewMatrix;
interface
uses
GLOBAL;
procedure prViewMatrix(CurrentMatrix:matrix;MatrixName:string);
implementation
procedure prViewMatrix(CurrentMatrix:matrix;MatrixName:string);
var
i,j:byte ;
begin
writeln( MatrixName,'= ');
for i:=1 to MatrixDimI do
begin
write(#10);
for j :=1 to MatrixDimJ do
write(' ',CurrentMatrix[i,j]:5:1);
end;
readln;
end;
end.
interface
uses
GLOBAL;
procedure prViewMatrix(CurrentMatrix:matrix;MatrixName:string);
implementation
procedure prViewMatrix(CurrentMatrix:matrix;MatrixName:string);
var
i,j:byte ;
begin
writeln( MatrixName,'= ');
for i:=1 to MatrixDimI do
begin
write(#10);
for j :=1 to MatrixDimJ do
write(' ',CurrentMatrix[i,j]:5:1);
end;
readln;
end;
end.