Penjumlahan Matriks 3x3 dengan delphi atau pascal

Assalamualaikum Wr. Wb.
Yaa sesuai dengan judul diatas, silahkan teman-teman lihat langsung syntax programnya dibawah ini:
Pada postingan ini saya ingin berbagi tentang pemrograman khususnya bahasa pemrograman delphi atau pascal, bedanya terletak pada usesnya... kalau pascal menggunakan uses crt; dan atau clrscr;  sedangkan untuk bahasa pemrograman delphi menggunakan uses SysUtils; pada console application dan tidak butuh clrscr; seperti pada pascal.

Dalam mendeklarasikan sebuah variabel berindeks, selain mendefinisikan tipe larik, juga harus menentukan banyaknya indeks yang akan mengisi larik tersebut, yaitu dengan menuliskan : Array[index] of tipe_data.

Larik padat adalah salah satu bentuk array untuk mengatasi pemakaian memori utama yang besar pada array atau larik umumnya, yaitu dengan menambah kata packet di depan kata array atau larik umumnya.

Larik juga dimungkinkan untuk digunakan pada variabel berindeks yang berdimensi banyak, misalnya untuk dimensi dua adalah : matriks : array[1..100,1..100] of integer, yang artinya matriks tersebut disediakan tempat sebanyak 100 baris dan 100 kolom. (berordo 100X100).

Untuk Syntaxnya bisa dilihat dibawah ini:

program penjumlahan_matriks;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
  maxordo = 3;

type
  ordomatrix = array [1..maxordo, 1..maxordo] of integer;
var
  matA, matB, matC  : ordomatrix;
  loopI, loopJ : integer;
  brsA, klmA, brsB, klmB, brsC, klmC : integer;
begin
  brsA := 3; klmA := 3;
  brsB := 3; klmB := 3;
  brsC := 3; klmC := 3;
  writeln ('Masukkan data matriks A');
  for loopI := 1 to brsA do
      for loopJ := 1 to klmA do
      begin
        write ('data [',loopI,',',loopJ,']=');
        readln (matA[loopI, loopJ])
      end;
  writeln ('Masukkan data matriks B');
      for loopI := 1 to brsB do
        for loopJ := 1 to klmB do
        begin
          write ('data [',loopI,',',loopJ,']=');
          readln (matB[loopI, loopJ])
        end;
  writeln ('Hasil Penjumlahan Matriks C=A + B');
  for loopI := 1 to brsC do
      for loopJ:=1 to klmC do
      begin
matC[loopI,loopJ]:= matA[loopI,loopJ]+matB[loopI,loopJ];
 end;
writeln ('Matriks A');
for loopI := 1 to brsA do
begin
   for loopJ := 1 to klmA do
   write (matA[loopI, loopJ]:3); writeln;
end;
 writeln ('Matriks B');
 for loopI := 1 to brsB do
 begin
   for loopJ := 1 to klmB do
   write (matB[loopI, loopJ]:3); writeln;
 end;
 writeln ('Matriks C');
 for loopI := 1 to brsC do
 begin
   for loopJ := 1 to klmC do
   write (matC[loopI, loopJ]:3); writeln;
 end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
 

Terimakasih telah berkunjung,,,
Selamat beraktifitas,,
Have Fun...

Sumber:
Supriyono dan Farikhah Indriani. 2007. Modul Praktikum Algoritma Pemrograman. Yogyakarta: Universitas Islam Indonesia

Related Posts:

Tweet