- uses crt; ==> sintaks yang diharuskan pada turbo pascal
- var i,j,k,l,m : integer; ==> untuk memasukan variabel numerik yang akan dijalankan, yaitu i, j, k dan l
- begin ==> untuk mengawali suatu procedure
- clrscr; ==> untuk membersihkan layar pada turbo pascal
- write (‘Masukan Nilai = ‘); ==> untuk menampilkan Masukan Nilai = pada saat program dijalankan
- readln (k); ==> untuk membaca nilai dari variabel k
- for i := k downto 1 do ==> untuk i sama dengan k kebawah sampai 1 dan selanjutnya
- begin ==> untuk mengawali suatu procedure
- for j := 1 to i do ==> untuk j sama dengan 1 sampai k dan selanjutnya
- write (j); ==> untuk membaca nilai dari variabel j
- writeln (‘ ‘) ==> untuk memberikan harga/nilai pada variabel j
- end; ==> untuk mengakhiri procedure dari variabel j
- for 1 := 2 to k do ==> untuk l sama dengan 2 sampai k dan selanjutnya
- begin ==> untuk memulai suatu procedure
- for m := 1 to l do ==> untuk m sama dengan 1 sampai l dan selanjutnya
- write (m); ==> untuk membaca nilai dari variabel m
- writeln (‘ ‘) ==> untuk memberikan harga/nilai pada variabel m
- end; ==> untuk mengakhiri procedure dari variabel m
- readln; ==> untuk membaca suatu procedure
- end. ==> sebagai tanda selesai pada turbo pascal
Postingan
