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 2 1
1 2 3 2 1
Semoga bermanfaat :)
mantap ^^v
BalasHapusmakasih :)
BalasHapusasseeeeekkk.. :D
BalasHapusshare what we can share. ^^
iya fin, berbagi itu indah :)
BalasHapus