Kali ini Saya akan mem-posting tentang “Program Bintang Segitiga Pascal” yaitu sebuah segitiga pascal yang isinya tersusun dari beberapa bentuk bintang ( * ). Dan bahasa pemrograman yang akan saya gunakan disini yaitu bahasa pascal tentunya dengan menggunakan program Free Pascal.
Pertama saya akan gambarkan Flowchart-nya
nah setelah melihat flowchartnya mari kita buat Programnya, jangan lupa pake Free Pascal ya !!!
Program Bintang_SegitigaPascal; //judul program
Uses crt;
Var
x,y,z,n: integer; //x,y,z,n = variabel , integer = type data
Begin
Write(‘masukkan jumlah n : ‘); readln(n); //perintah input jumlah n
For x:=1 to n do // pengulangan for,, x = baris , n = jumlah baris
Begin
For y:=x to n-1 do //variabel y(untuk cetak spasi) sama dengan baris (x) ,, n-1 = jumlah baris dikurangi 1
Begin
Write(‘ ‘); //cetak spasi
End;
For z:=1 to x do // variabel z(untuk cetak *) sama dengan 1 ke x(baris)
Begin
Write(‘* ‘); //lakukan cetak * plus spasi
End;
Writeln; //cetak semua
End;
Readln; //baca proses kerja
End.
