123 Eng

### Engineering the engineers™

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

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