Add to Favorites    Make Home Page 8346 Online
 Language Categories
 Source Codes Home Project Ideas New! Interview Questions FAQs Home ASP Home ASP Source Codes ASP Script Directory New! ASP .Net Script Directory New! ASP Interview Questions ASP FAQs ASP How Tos C Home C Source Codes C Script Directory New! C Interview Questions C FAQs C How Tos C++ Home C++ Source Codes C++ Script Directory New! C++ Interview Questions C++ FAQs C++ How Tos Java Home Java Source Codes Java Directory New! Java Interview Questions Java FAQs Java How Tos JavaScript Home JavaScript Directory New! JavaScript Source Codes JavaScript FAQs JavaScript How Tos COBOL Home COBOL Source Codes COBOL FAQs COBOL How Tos Pascal Home Pascal Source Codes Pascal FAQs Pascal How Tos PHP Script Directory New! Python Script Directory New! Perl & CGI Script Directory New! Flash Script Directory New! CFML Script Directory New! Remotely Hosted Scripts New! Tools & Utilities Directory New! XML Script Directory New! Best Programmers Amit Mathur Vishal Bhardwaj Deepesh Jain Vyom NetWork
 Our Services

Home » Pascal Home » Pascal Projects Home » Randomizes two 3x3 arrays and indicates the numbers whih are common in both the arrays otherwise an cross 'x' is shown instead.

A D V E R T I S E M E N T

Search Projects & Source Codes:

 Title Randomizes two 3x3 arrays and indicates the numbers whih are common in both the arrays otherwise an cross 'x' is shown instead. Description Category Pascal » Pascal Projects Hits 341383 Code Select and Copy the Code { 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.

Related Source Codes

 Script Name Author Calendar date to day number and back Nicky McLean Matrix Multiple Cirruse Salehnasab Function Power Recursive Cirruse Salehnasab swim brian colston tetris (Mini Project) mehdi farrokhzad Macsi - space fighting game. Macsi PÚter Recursive Monkey Puzzle Solution - Project Maxim C.L. Wrne Maze Game Project In Pascal Mahmood Excellent Rat in a Maze Program. VyomWorld A car game. You have to drive the car in such a way that you dont strike a barrier on the road. VyomWorld Student Database Information System. VyomWorld Tic Tac Toe Game implemented in Pascal. VyomWorld Game to Gain more blocks by drawing appropriate lines from correct places(dots). VyomWorld To Find The Coinage Of The Amount Entered. VyomWorld Program that checks the space on drive a: and also gives a graphical representation of memory. VyomWorld

A D V E R T I S E M E N T

Subscribe to SourceCodesWorld - Techies Talk
Email:

 Free eBook - Interview Questions: Get over 1,000 Interview Questions in an eBook for free when you join JobsAssist. Just click on the button below to join JobsAssist and you will immediately receive the Free eBook with thousands of Interview Questions in an ebook when you join.

ASP Home | C Home | C++ Home | COBOL Home | Java Home | Pascal Home