Delphi : Program Matriks Berpola

Nama        : ANDI KHOIRUDIN
Kelas        : I-B SMT 1
Jurusan     : Teknik Informatika
STIMIK YADIKA BANGIL 2014

 

Assamualaikum Wr. Wb.

           Pada kesempatan yang lalu saya membahas pemanfaatan Array dalam program matriks di Delphi dan pada kesempatan kali ini saya akan membahas pemanfaatan Array dan pemanfaatan looping for to do dalam program Matriks berpola tertentu. Untuk yang masih belum tahu saya sebelumnya sudah membahasnya yaitu penggunaan array dan looping for to do. Saya akan memberi 5 contoh program matriks berpola ,banyak memang tapi memang segitu tugasnya hehehe

1. Matriks berpola Slash(garis miring) dengan angka 1

2. Matriks berpola BackSlash(garis miring terbalik) dengan angka 1

3. Matriks berpola berbentuk segitiga dengan angka 1-5

4. Matriks berpola Plus(tambah) dengan angka 1

5. Matriks berpola berbentuk segitiga dengan simbol *

Contoh 1. Matriks berpola Slash(garis miring) dengan angka 1

Screenshotnya :

Script programnya :

program matriks_pola_slash;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
mat : array[1..10,1..10]of integer;
x,y :integer ;

begin
writeln ('Nama      : Andi Khoirudin');
  writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Menampilkan Matrik berpola Slash dengan angka "1" <<<');
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;
  writeln;
  writeln;
  writeln;
  writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
readln;
end.

Contoh 2. Matriks berpola BackSlash(garis miring terbalik) dengan angka 1
Screenshotnya :

Script Programnya :

program matriks_backslash;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
mat : array[1..10,1..10]of integer;
x,y :integer ;

begin
  writeln ('Nama      : Andi Khoirudin');
  writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Menampilkan Matrik berpola Backslash dengan angka "1" <<<');
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;
  writeln;
  writeln;
  writeln;
  writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
readln;
end.

Contoh  Matriks berpola berbentuk segitiga dengan angka 1-5
Screenshotnya :

Script Programnya :

program pola_1sampai5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
mat : array[1..10,1..10]of integer;
x,y :integer ;

begin
writeln ('Nama      : Andi Khoirudin');
  writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Menampilkan Matriks berpola  1-5 <<<');
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;
  writeln;
  writeln;
  writeln;
  writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
readln;
end.

Contoh 4. Matriks berpola Plus(tambah) dengan angka 1
Screenshotnya :

Script Programnya :

program matriks_pola_tambah;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
mat : array[1..10,1..10]of integer;
x,y:integer ;

begin
  writeln ('Nama      : Andi Khoirudin');
  writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Menampilkan Matriks berpola +  dengan angka "1" <<<');
writeln;
for x:=1 to 5 do
   begin
     for y:= 1 to 5 do
        begin
          mat [x,y]:= 0;
 if x-2=1 then mat [x,y]:=1;
 if y-2=1 then mat [x,y]:=1;
 write(mat[x,y]:5);
end;
writeln;
   end;
  writeln;
  writeln;
  writeln;
  writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
readln;
end.

Contoh 5. Matriks berpola berbentuk segitiga dengan simbol *
Screenshotnya :

Script Programnya :

program matriks_bintang;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
mat : array[1..10,1..10]of integer; 
x,y : integer ;

begin
  writeln ('Nama      : Andi Khoirudin');
  writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Menampilkan Matriks berpola dengan simbol "*" <<<');
writeln;
  for x:=1 to 5 do
  begin
    for y:= 1 to 5 do
      begin
        if x>= y then write('*':5);
      end; 
      writeln;
  end;
  writeln;
  writeln;
  writeln;
  writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
readln;
end.

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Kurang lebihnya mohon maaf dan terima kasih sudah berkunjung 

Wassalamualaikum Wr. Wb