twitter



-          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

0 komentar:

Posting Komentar