Penjumlahan Matrik pada Pascal

Berikut adalah contoh program penjumlahan matrik pada pascal...

program matrik; 

uses wincrt; 

type data = array[1..5,1..5] of integer; 

var 

matrikI,matrikII : data; 

baris,kolom,pil : integer; 

procedure isi; 

var i,j :integer; 

begin

writeln('Penentuan ORDO MATRIK I');     

write('Masukan banyak baris matrik I : ');    

readln(baris);     

write('Masukan banyak kolom matrik I : ');    

readln(kolom);     

for i:=1 to baris do    

for j:=1 to kolom do     

begin gotoxy(j*10,i*5);           

readln(matrikI[i,j]);     

end;     

clrscr;     

writeln('Penentuan ORDO MATRIK II');     

write('Masukan banyak baris matrik II : ');     

readln(baris);     

write('Masukan banyak kolom matrik II : ');     

readln(kolom);     

for i:=1 to baris do     

for j:=1 to kolom do     

begin gotoxy(j*10,i*5);           

readln(matrikII[i,j]);     

end; 

end; 

procedure jumlah(a1,a2 : data); 

var  

hasil:data;i,j:integer;

begin     

for i:=1 to baris do     

for j:=1 to kolom do     

begin          

hasil[i,j]:=a1[i,j]+a2[i,j];     

end;     

clrscr;     

writeln('Hasil Penjumlahan');     

for i:=1 to baris do     

for j:=1 to kolom do     

begin 

gotoxy(j*10,i*5);           

write(hasil[i,j]);     

end; 

end; 

begin     

writeln('Penjumlahan Matrik');     

begin     

isi;     

jumlah(matrikI,matrikII);     

end; 

end.

Selamat mencoba.... :)