Minggu, 04 Januari 2015
Haii Guys...
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]
[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. 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, 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.
SELAMAT MENCOBAAAA GUYS……..
