Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:2004 ИС (Илюшечкин) / ВМИП / Labs / laba3(moduls)var24 / GetMatrix
.pas 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.
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.
Соседние файлы в папке laba3(moduls)var24