- uses crt; ==> sintaks yang diharuskan pada turbo pascal
- var i,j,k,l : 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 := 1 to k do ==> untuk i sama dengan 1 sampai k dan selanjutnya
- begin ==> untuk mengawali suatu procedure
- for j := 1 to k-i do ==> untuk j sama dengan 1 sampai k diambil dari for i dan selanjutnya
- begin ==> untuk mengawali suatu procedure
- write (‘ ‘); ==> untuk memberikan harga/nilai pada suatu variabel
- end; ==> untuk mengakhiri procedure dari write (‘ ‘);
- for l := i downto 1 do ==> untuk l sama dengan i kebawah sampai 1 dan selanjutnya
- begin ==> untuk mengawali suatu procedure
- write (l); ==> untuk membaca nilai dari variabel k
- end; ==> untuk mengakhiri procedure pada dari write (l);
- writeln; ==> untuk menampilkan hasil dari suatu procedure
- end; ==> untuk mengakhiri suatu procedure
- readln; ==> untuk membaca suatu procedure
- end. ==> sebagai tanda selesai pada turbo pascal
Postingan
