Rabu, 11 Januari 2012

Bentuk Segitiga dalam Pascal

Hai semuanya, kali ini saya akan memberikan posting tentang Pascal. Udah lama ga update tentang bahasa pascal. Yang dibahas kali ini adalah salah satu bentuk segitiga dalam Pascal. Hal ini diawali dari pertanyaan seorang mahasiswa junior yang bertanya bagaimana cara membuatnya. Tapi waktu itu lagi banyak tugas, jadi ga sempat deh, maaf ya aisah hehehe :).

Bentuk segitiga yang dimaksud adalah :

1
121
12321
1234321
123454321

Berikut adalah coding programnya :


uses crt;
var
   n,i,j,k : integer;
begin
     clrscr;
     write('Input n : ');
     readln(n);


     for i:=1 to n do
     begin
          for j:=1 to i do
          write(j);
          begin
               for k:=j-1 downto 1 do
               write(k);
               writeln;
          end;
     end;
     readln;
end.


Output Programnya :


Algoritmanya sederhana. Pertama buat for yang memberikan batasan dari i=1 sampai n yang merupakan inputan awal. Lalu buat looping bersarang, yaitu for kedua, yang memberikan batasan j=1 sampai i, dan cetak j. Hasilnya akan menampilkan bilangan 1, 1 2, 1 2 3, dst. Lalu for ketiga diberi nilai k=j-1 sampai turun ke (downto) 1, dan cetak k. Maksud j-1 agar hasil yang ditampilkan tidak mengikuti nilai j sebelumnya sehingga hasilnya adalah - (tidak ada), 1, 2 1, dst. Lalu writeln berfungsi untuk pindah ke baris selanjutnya. Sehingga hasi yang ditampilkan berbentuk :

1
1 2 1
1 2 3 2 1


Semoga bermanfaat :)

4 komentar: