123 Eng

Engineering the engineers™


Latest Jobs   Forum Map

 


Home
Source Codes
Engineering Colleges

Training  Reports
Seminar Reports
Placement Papers

Forums

   Computer Science / IT
   Electronics
   Electrical
   Mechanical
   Chemical
   Civil

   CAT / MBA

   GMAT / Foreign MBA
Latest Jobs

Engineering Jobs / Technical Jobs
Management Jobs

Sitemap
Terms of use

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.

--------------------------------------------------------------------------------

 

 

Contribute content or training reports / feedback / Comments
job placement papers
All rights reserved copyright 123ENG