CARVIEW

MOTORHOMES

Select Language

HTTP/2 302 server: nginx date: Sat, 09 Aug 2025 05:44:59 GMT content-type: text/plain; charset=utf-8 content-length: 0 x-archive-redirect-reason: found capture at 20080430232634 location: https://web.archive.org/web/20080430232634/https://www.daniweb.com/code/snippet837.html server-timing: captures_list;dur=0.913402, exclusion.robots;dur=0.028698, exclusion.robots.policy;dur=0.012526, esindex;dur=0.015559, cdx.remote;dur=27.623812, LoadShardBlock;dur=139.304284, PetaboxLoader3.datanode;dur=43.739768, PetaboxLoader3.resolve;dur=47.330698 x-app-server: wwwb-app224 x-ts: 302 x-tr: 220 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 set-cookie: wb-p-SERVER=wwwb-app224; path=/ x-location: All x-rl: 0 x-na: 0 x-page-cache: MISS server-timing: MISS x-nid: DigitalOcean referrer-policy: no-referrer-when-downgrade permissions-policy: interest-cohort=() HTTP/2 200 server: nginx date: Sat, 09 Aug 2025 05:44:59 GMT content-type: text/html; charset=utf-8 x-archive-orig-date: Wed, 30 Apr 2008 23:26:34 GMT x-archive-orig-server: Apache/2.2 x-archive-orig-x-powered-by: PHP/5.1.6 x-archive-orig-set-cookie: bblastactivity=0; expires=Thu, 30-Apr-2009 23:26:34 GMT; path=/; domain=.daniweb.com x-archive-orig-cache-control: private x-archive-orig-pragma: private x-archive-orig-connection: close x-archive-guessed-content-type: text/html x-archive-guessed-charset: utf-8 memento-datetime: Wed, 30 Apr 2008 23:26:34 GMT link: ; rel="original", ; rel="timemap"; type="application/link-format", ; rel="timegate", ; rel="first memento"; datetime="Thu, 27 Mar 2008 19:52:09 GMT", ; rel="prev memento"; datetime="Thu, 27 Mar 2008 19:52:09 GMT", ; rel="memento"; datetime="Wed, 30 Apr 2008 23:26:34 GMT", ; rel="next memento"; datetime="Sat, 20 Sep 2008 14:04:32 GMT", ; rel="last memento"; datetime="Thu, 12 Feb 2009 16:36:59 GMT" content-security-policy: default-src 'self' 'unsafe-eval' 'unsafe-inline' data: blob: archive.org web.archive.org web-static.archive.org wayback-api.archive.org athena.archive.org analytics.archive.org pragma.archivelab.org wwwb-events.archive.org x-archive-src: 51_3_20080430223602_crawl105-c/51_3_20080430232553_crawl104.arc.gz server-timing: captures_list;dur=0.678113, exclusion.robots;dur=0.027120, exclusion.robots.policy;dur=0.012508, esindex;dur=0.011729, cdx.remote;dur=48.501264, LoadShardBlock;dur=305.059344, PetaboxLoader3.datanode;dur=160.643740, PetaboxLoader3.resolve;dur=293.578124, load_resource;dur=188.304566 x-app-server: wwwb-app224 x-ts: 200 x-tr: 613 server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0 x-location: All x-rl: 0 x-na: 0 x-page-cache: MISS server-timing: MISS x-nid: DigitalOcean referrer-policy: no-referrer-when-downgrade permissions-policy: interest-cohort=() content-encoding: gzip Create and Read Matrix - pascal

Create and Read Matrix

•

What is DaniWeb IT Discussion Community?

You're currently browsing the Pascal and Delphi section within the Software Development category of DaniWeb, a massive community of 321,709 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,676 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

•

FAQ | Community Rules | Welcome Guide

Please support our Pascal and Delphi advertiser:

•

Mar 5th, 2008

Views: 758

Jx_Man

Simple code for matrix with pascal.

--Jery--

Show Printable Version

•

pascal Syntax |

Toggle Plain Text

program ExampleArr;         
 
 uses crt;               
 
 const ArrSize = 5;       
 
 type Tabel = array[1..ArrSize,1..ArrSize] of integer; 
 
 var Matrix : Tabel; 
 
 procedure READ_MATRIX (var Mat : Tabel; N : integer);
 var I, J : integer;  
 
 begin               
   for I := 1 to N do
     for J := 1 to N do
       read(Mat[I,J])
 end;                
 
 procedure PRINT_MATRIX (Mat : Tabel; N : integer);
 var I, J : integer;  
 
 begin               
   for I := 1 to N do
     begin
       for J := 1 to N do
         write(Mat[I,J]:8);
       writeln;
     end;
 end;                
 
 begin               
    READ_MATRIX(Matrix, ArrSize);
    PRINT_MATRIX(Matrix, ArrSize)
 end.