|
Displaying Source Code(s)
|
|
Randomizes two 3x3 arrays and indicates the numbers whih are
common in both the arrays otherwise an
--------------------------------------------------------------------------------
{
Description: Randomizes two 3x3 arrays and indicates the numbers
whih are common in both the arrays otherwise an cross 'x' is
shown instead.
}
program randomarray;
uses crt;
type
arr1 = array [1..3,1..3] of integer;
var
a1, a2, a3 : arr1;
i, j : integer;
procedure initialise1(var a_1 : arr1);
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
a_1[i][j]:=random(10);
end;
end;
end;
procedure initialise2(var a_2 : arr1);
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
a_2[i][j]:=random(10);
end;
end;
end;
procedure output1(var a_1 : arr1);
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(a_1[i][j],' ');
end;
writeln;
end;
end;
procedure output2(var a_2 : arr1);
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(a_2[i][j],' ');
end;
writeln;
end;
end;
procedure same(var a_1, a_2 : arr1);
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
if a_1[i][j] = a_2[i][j] then
write(a_1[i][j],' ')
else
write('x ');
end;
writeln;
end;
end;
begin
clrscr;
randomize;
initialise1(a1);
initialise2(a2);
output1(a1);
writeln;
output2(a2);
writeln;
same(a1,a2);
readln;
end.
-------------------------------------------------------------------------------- |
|
|
123
Eng