PASCAL

Kumpulan program PASCAL untuk Array Matriks

Program memasukan matriks.
Alur program :

• Masukkan dimensi matriks, misal baris = i dan kolom = j
• Gunakan perulangan sebanyak baris dan sebanyak kolom
• Masukkan nilai matriks posisi [baris,kolom]

Listing Program :

program matriks;
uses crt;
var matrik : array[1..50,1..50] of byte;
    baris, kolom, i, j : byte;

begin
  clrscr;
  {masukkan dimensi matriks}
  readln(baris,kolom);

  {masukkan nilai matriks}
  for i := 1 to baris do
     for j:= 1 to kolom do readln(matrik[i,j]);

  {cetak nilai matriks}
  for i := 1 to baris do begin
     for j:= 1 to kolom do write(matrik[i,j],'  ');
     writeln;
  end;
  readkey;
end.

Program mendeteksi bilangan matriks.
Program berikut mendeteksi bilangan yang ada disekitar posisi tertentu. Contoh, untuk bilangan matriks dimensi 3x3 dengan isi berikut :
     5     3     2
     3     4     7
     1     2     6
pada program deteksi berikut masukan posisi tertentu misalnya [2,1] (baris ke-2, kolom ke-1) maka hasilnya adalah bilangan yang mengelilinginya : 5, 3, 4, 2, 1

jika posisi yang dimasukkan [3,3] (baris ke-3, kolom ke-3) maka hasilnya adalah bilangan yang mengelilinginya : 7, 2, 4

Alur program :

• Masukkan dimensi matriks, misalnya baris = i dan kolom = j
• Gunakan perulangan sebanyak baris dan sebanyak kolom
• Masukkan nilai matriks posisi [baris,kolom]
• Masukkan posisi tertentu dari matriks
• Gunakan perulangan untuk baris dari (posisi baris - 1) hingga (posisi baris + 1)
• Perulangan untuk kolom dari (posisi kolom - 1) hingga (posisi kolom + 1)
• Jika (baris > 0) and  (kolom > 0) and (not((baris = posisi baris) and (kolom = posisi kolom))) maka
• Cetak matriks[baris, kolom]

Listing Program :

program matriks;
uses crt;
var matrik : array[1..50,1..50] of byte;
    baris, kolom, i, j, posb, posk : byte;

begin
  clrscr;
  {masukkan dimensi matriks}
  readln(baris,kolom);

  {masukkan nilai matriks}
  for i := 1 to baris do
     for j:= 1 to kolom do readln(matrik[i,j]);

  {masukkan posisi matriks}
  readln(posb,posk);

  {deteksi posisi matriks dan cetak matriks}
  for i := (posb-1) to (posb+1) do
     for j := (posk-1) to (posk+1) do begin
        if ((i>0) and (j>0)) and (not ((i=posb) and (j=posk))) then
            writeln(matrik[i,j]);
     end;

  {cetak nilai matriks}
  for i := 1 to baris do begin
     for j:= 1 to kolom do write(matrik[i,j],'  ');
     writeln;
  end;
  readkey;

end.

Operasi Matriks : Penjumlahan, Perkalian, Transpose, Invers