[Pascal] Array 2 Dimensi Dengan Prosedur

Berikut ini adalah syntax program pascal dengan menggunakan array 2 dimensi dan prosedur :

program aritmatika_matrix;
uses crt;
{deklarasi variabel}
var
matrix1, matrix2, hasil : array[1..3,1..3] of integer;
i,j, pilihan : integer;
{prosedur untuk input matrixs pertama}
procedure input_matrix1;
begin
clrscr;
writeln('Silahkan input anggota matrixs pertama');
writeln;
for i := 1 to 3 do
 begin
 for j := 1 to 3 do
  begin
  write('Anggota baris ',i,' kolom ',j,' = ');
  readln(matrix1[i,j]);
  end;
 end;
end; {akhir dari prosedur input_matrix1}

{prosedur untuk input matrix kedua}
procedure input_matrix2;
begin
clrscr;
writeln('Silahkan input anggota matrixs kedua');
writeln;
for i := 1 to 3 do
 begin
 for j := 1 to 3 do
  begin
  write('Anggota baris ',i,' kolom ',j,' = ');
  readln(matrix2[i,j]);
  end;
 end;
end; {akhir dari prosedur input_matrix2}

{prosedur untuk cetak matrix pertama}
procedure cetak_matrix1;
begin
 for i := 1 to 3 do
 begin
 for j := 1 to 3 do
  begin
  write(' ',matrix1[i,j]);
  end;
  writeln;
 end;
end; {akhir dari prosedur cetak_matrix1}

{prosedur untuk cetak matrix kedua}
procedure cetak_matrix2;
begin
 for i := 1 to 3 do
 begin
 for j := 1 to 3 do
  begin
  write(' ',matrix2[i,j]);
  end;
  writeln;
 end;
end; {akhir dari prosedur cetak_matrix1}

{prosedur untuk Penjumlahan matrix}
procedure Penjumlahan;
begin
clrscr;
input_matrix1;
clrscr;
input_matrix2;
clrscr;
cetak_matrix1;
writeln;
cetak_matrix2;
writeln;
 begin
 writeln('Matrix 1 + Matrix 2 =');
 for i := 1 to 3 do
  begin
  for j := 1 to 3 do
   begin
   hasil[i,j]:=matrix1[i,j]+matrix2[i,j];
   write(' ',hasil[i,j]);
   end;
  writeln;
  end;
 end;
readln;
end; {akhir dari prosedur Penjumlahan}

{prosedur untuk Pengurangan matrix}
procedure Pengurangan;
begin
clrscr;
input_matrix1;
clrscr;
input_matrix2;
clrscr;
cetak_matrix1;
writeln;
cetak_matrix2;
writeln;
 begin
 ('Matrix 1 - Matrix 2 =');
 for i := 1 to 3 do
  begin
  for j := 1 to 3 do
   begin
   hasil[i,j]:=matrix1[i,j]-matrix2[i,j];
   write(' ',hasil[i,j]);
   end;
  writeln;
  end;
 end;
readln;
end; {akhir dari prosedur Pengurangan}

{prosedur untuk Perkalian matrix}
procedure Perkalian;
begin
clrscr;
input_matrix1;
clrscr;
input_matrix2;
clrscr;
cetak_matrix1;
writeln;
cetak_matrix2;
writeln;
 begin
 writeln('Matrix 1 x Matrix 2 =');
 for i := 1 to 3 do
  begin
  for j := 1 to 3 do
   begin
   hasil[i,j]:=matrix1[i,j]*matrix2[i,j];
   write(' ',hasil[i,j]);
   end;
  writeln;
  end;
 end;
readln;
end; {akhir dari prosedur Perkalian}

{prosedur untuk tampilan}
procedure menu;
begin
writeln('----------------------------------------------');
writeln('| Program Aritmatika Matrix |');
writeln('----------------------------------------------');
writeln;
writeln('Pilih program yang ingin dijalankan');
writeln;
{pilihan menu}
writeln('1. Penjumlahan Matrix.');
writeln('2. Pengurangan Matrix.');
writeln('3. Perkalian Matrix.');
writeln('4. Keluar.');
writeln;
write ('Masukan pilihan anda = ');
readln(pilihan);
 case pilihan of
  1 : Penjumlahan; {panggil prosedur Penjumlahan jika memilih no. 1}
  2 : Pengurangan; {panggil prosedur Pengurangan jika memilih no. 2}
  3 : Perkalian; {panggil prosedur Perkalian jika memilih no. 3}
  4 : exit; {keluar program jika memilih no. 4}
 end;
end; {akhir dari prosedur menu}

{program utama}
begin
 clrscr;
 menu
end. {program berakhir}

Untuk download syntax diatas dengan format .pdf, anda bisa klik tombol download dibawah ini.

Download