Правила форума
Прочтите прежде чем задавать вопрос!
но что-то не очень получается пока...
Суть : модуль содержит процедуру заполнения двумерного массива случайными числами и вывод на экран массива в виде матрицы.
При попытке использования модуля выдавал разные ошибки
Вот последняя : Unit name mismatch ну что ему не нравится в имени ???
Скажите ,что я сделал не правильно ?
Код
unit matr;
interface
type
mass=array[1..100,1..100] of integer;
var
x:mass;
i,j:integer;
rnd:word;
n,m:integer;
num:integer;
procedure InputOutput;
implementation
procedure InputOutput;
begin
randomize;
writeln('Case Matrix Size Of : ');
writeln('1). N*N');
writeln('2). N*M');
write('Input number 1 or 2 ');readln(num);
write('rnd=');readln(rnd);
case num of
1: begin
write('N=');readln(n);
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
x[i,j]:=random(rnd);
write(x[i,j]:3);
write(' ');
end;
writeln;
end;
end;
end;
2: begin
write('N=');readln(n);
write('M=');readln(m);
for i:=1 to n do
begin
for j:=1 to n do
begin
x[i,j]:=random(rnd);
write(x[i,j]:3);
write(' ');
end;
writeln;
end;
end;
end;
end;
End.
interface
type
mass=array[1..100,1..100] of integer;
var
x:mass;
i,j:integer;
rnd:word;
n,m:integer;
num:integer;
procedure InputOutput;
implementation
procedure InputOutput;
begin
randomize;
writeln('Case Matrix Size Of : ');
writeln('1). N*N');
writeln('2). N*M');
write('Input number 1 or 2 ');readln(num);
write('rnd=');readln(rnd);
case num of
1: begin
write('N=');readln(n);
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
x[i,j]:=random(rnd);
write(x[i,j]:3);
write(' ');
end;
writeln;
end;
end;
end;
2: begin
write('N=');readln(n);
write('M=');readln(m);
for i:=1 to n do
begin
for j:=1 to n do
begin
x[i,j]:=random(rnd);
write(x[i,j]:3);
write(' ');
end;
writeln;
end;
end;
end;
end;
End.
Сообщение отредактировано: klem4 -
