Menampilkan Matriks Berpola Menggunakan Array

Haii Sweabyers...

Pada postingan sebelumnya membahas tentang dasar~dasar pemrograman bertipe array.
Kali ini juga masih mengulas tentang tipe pemrograman array, namun yang kita bahas adalah program untuk menampilkan matriks berpola menggunakan array. Pasti penasaran bukan bagaimana sih caranya? Berpola seperti apa sih yang akan dibahas?
Oke, kali ini aku kasih program beberapa pola untuk kalian semua...
Langsung saja kita mulai...

CONTOH KASUS !!!

[1,1]    [1,2]    [1,3]    [1,4]    [1,5]
[2,1]    [2,2]    [2,3]    [2,4]    [2,5]
[3,1]    [3,2]    [3,3]    [3,4]    [3,5]
[4,1]    [4,2]    [4,3]    [4,4]    [4,5]
[5,1]    [5,2]    [5,3]    [5,4]    [5,5]

* * * * * * * * * * * * * * * Pola Pertama * * * * * * * * * * * * * * *

     1   0   0   0   0

     0   1   0   0   0

     0   0   1   0   0

     0   0   0   1   0

     0   0   0   0   1

Untuk menampilkan matrik berpola seperti di atas, berikut ini scriptnya.

uses

  SysUtils;

Var

mat: Array[1..10,1..10] of Integer;

x,y: Integer;

Begin

writeln('MENAMPILKAN MATRIK DENGAN POLA');

  writeln('==============================');

  For x := 1 to 5 Do

  Begin

    For y := 1 to 5 Do

    Begin

      mat [x,y] :=0;

      if x=y then mat[x,y] :=1;

      Write(mat[x,y]:5);

    end;

    writeln

  End;

  readln;

End.

Salin script diatas pada Delphi kalian. Setelah selesai, Jalankan programnya.

Dan hasilnya akan seperti ini.

 Selesai.

* * * * * * * * * * * * * * * Pola Kedua * * * * * * * * * * * * * * * 

 

   0   0   0   0   1

   0   0   0   1   0

   0   0   1   0   0

   0   1   0   0   0

   1   0   0   0   0 

Untuk menampilkan matrik berpola seperti diatas, salinlah script dibawah ini.

uses

  SysUtils;

Var

mat: Array[1..10,1..10] of Integer;

x,y: Integer;

Begin

  writeln('MENAMPILKAN MATRIK DENGAN POLA');

  writeln('==============================');

  For x := 1 to 5 Do

  Begin

    For y := 1 to 5 Do

    Begin

      mat [x,y] :=0;

      if x+y=6 then mat[x,y] :=1;

      Write(mat[x,y]:5);

    end;

    writeln

  End;

  readln;

End.

Setelah selesai disalin ke delphi, seperti berikut ini jalankan programnya.

Dan seperti inilah tampilan hasilnya.

* * * * * * * * * * * * * * * Pola Ketiga * * * * * * * * * * * * * * *

   0   0   1   0   0

   0   0   1   0   0

   1   1   1   1   1

   0   0   1   0   0

   0   0   1   0   0

Salin script dibawah ini untuk mendapatkan matriks berpola seperti diatas.

uses

  SysUtils;

Var

mat: Array[1..10,1..10] of Integer;

x,y: Integer;

Begin

writeln('MENAMPILKAN MATRIK DENGAN POLA');

  writeln('==============================');

  For x := 1 to 5 Do

  Begin

    For y := 1 to 5 Do

    Begin

      mat [x,y] :=0;

      if x=3 then mat[x,y] :=1;

      if y=3 then mat[x,y] :=1;

      Write(mat[x,y]:5);

    end;

    writeln

  End;

  readln;

End.

Jalankan programnya, dan hasilnya seperti berikut ini.

 

Jika tampilan sesuai maka program kalian benar. Dan selesai deh !

* * * * * * * * * * * * * * * Pola Keempat * * * * * * * * * * * * * * *

1   0   0   0   0

2   2   0   0   0

3   3   3   0   0

4   4   4   4   0

5   5   5   5   5

Untuk menampilkan pola keempat seperti diatas, salin script dibawah ini.

uses

  SysUtils;

Var

mat: Array[1..10,1..10] of Integer;

x,y: Integer;

Begin

writeln('MENAMPILKAN MATRIK DENGAN POLA');

  writeln('==============================');

  For x := 1 to 5 Do

  Begin

    For y := 1 to 5 Do

    Begin

      mat [x,y] :=x;

      if x<y then mat[x,y] :=0;

      Write(mat[x,y]:5);

    end;

    writeln

  End;

  readln;

End.

 

Setelah tersalin, dan menurut kalian scriptnya sudah lengkap seperti diatas, maka jalankan program tersebut. 

 Jika program kalian benar, maka tampilannya akan seperti ini.

  Selesai.

 

* * * * * * * * * * * * * * * Pola Kelima * * * * * * * * * * * * * * *

1   3   5   7   9

1   3   5   7   0

1   3   5   0   0

1   3   0   0   0

1   0   0   0   0

Salin script dibawah ini pada Delphi kalian.

uses

  SysUtils;

Var

mat: Array[1..10,1..10] of Integer;

x,y: Integer;

Begin

writeln('MENAMPILKAN MATRIK DENGAN POLA');

  writeln('==============================');

  For x := 1 to 5 Do

  Begin

    For y := 1 to 5 Do

    Begin

      mat [x,y] :=0;

      if x+y<7 then mat[x,y] :=2*y-1;

      Write(mat[x,y]:5);

    end;

    writeln

  End;

  readln;

End.

Setelah tersalin, jalankan programnya dan tampilan akan seperti pada gambar dibawah ini.

* * * * * * * * * * * * * * * Pola Keenam * * * * * * * * * * * * * * *

*

*    *

*    *    *

*    *    *    *

*    *    *    *    *

Untuk mendapatkan matriks berpola bintang seperti diatas, salin script berikut ini.

uses

  SysUtils;

Var

mat: Array[1..10,1..10] of Integer;

x,y: Integer;

Begin

writeln('MENAMPILKAN MATRIK DENGAN POLA');

  writeln('==============================');

  For x := 1 to 5 Do

  Begin

    For y := 1 to 5 Do

    Begin

      mat [x,y] :=0;

      if x>=y then write( '*' :5);

    end;

    writeln

  End;

  readln;

End.

Jalankan Programnya. dan hasilnya akan tampil seperti berikut ini.

Selesai...

Nah, itu tadi beberapa pola yang dapat ditampilkan pada matrik denan menggunakan tipe data Array. Sebenarnya sih masih banyak? Tapi segitu sudah cukuplah buat belajar hehe..

Oke guyysss, sekian dulu postingan aku kali ini semoga bermafaat.

Jangan lupa tinggalkan pesan kalian untuk kritik dan saran agar postingan selanjutnya bisa lebih baik lagi. Dadaaahhh!!!! XD