Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
29
Добавлен:
16.04.2013
Размер:
414 б
Скачать
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.
Соседние файлы в папке laba3(moduls)var24