Penggunaan Prosedur pada Penjumlahan Matrik (Array Multidimensi)

 Contoh Programnya :


Program larik2dimensi;  

uses wincrt;
type matriks=array [1..10,1..10] of integer;

var
m1,m2,m3:matriks;
baris:integer;
kolom:integer;
i,j:integer;

{Menentukan Jumlah baris dan kolom dan proses Penjumlahan pada Array / matrik}
procedure jumlah(baris,kolom:integer;m1,m2:matriks ;var m3:matriks);
begin
for i:=1 to kolom do
for j:=1 to baris do
m3[i,j]:=m1[i,j]+m2[i,j];
end;

{ Memasukkan Bilangan pada baris dan kolom }
procedure inputmatriks(baris,kolom:integer; var m:matriks);
begin
for i:=1 to kolom do
begin
for j:=1 to baris do
begin
write('input matriks [',i,',',j,'] : ');readln(m[i,j]);
end;
end;
end;

{ Mencetak Hasil Matrik Penjumlahan }
procedure view(baris,kolom:integer;m:matriks; nama:string);
begin
writeln('Matriks ',nama);
for i:=1 to kolom do
begin
for j:=1 to baris do
begin
write(m[i,j]:3);
end;
writeln;
end;
end;



begin
clrscr;
write('input jumlah baris matriks : ');readln(baris);
write('input jumlah kolom matriks : ');readln(kolom);
inputmatriks(baris,kolom,m1);
inputmatriks(baris,kolom,m2);
jumlah(baris,kolom,m1,m2,m3);
clrscr;
view(baris,kolom,m1,'A');
view(baris,kolom,m2,'B');
view(baris,kolom,m3,'C');
readln;
end.

Hasil Program :

note : Bilangan  di input dari Keyboard




Jika ditekan enter : Maka akan tampil berupa
Matrik A, Matrik B dan Matrik C ( adalah hasil penjumlahan )




Mudah Bukan...


Selamat Belajar