twitter




-          uses crt; ==> sintaks yang diharuskan pada turbo pascal
-          var x, y : integer; ==> untuk memasukan variabel numerik yang akan dijalankan, yaitu x dan y
-          procedure input; ==> sebagai langkah pemasukan nilai
-          begin ==> untuk mengawali procedure input
-          write (‘Masukan Angka = ‘); ==> menampilkan Masukan Angka =
-          readln (x); ==> untuk membaca nilai dari variabel x
-          end; ==> untuk mengakhiri procedure input
-          procedure output; ==> sebagai langkah pengeluaran nilai
-          begin ==> untuk mengawali procedure output
-          y:= x mod 2; ==> y = sisa hasil bagi dari nilai x dibagi 2
-          if y = 0 then ==> jika hasil dari y = 0 maka
-          writeln (x,’ adalah bilangan genap’) ==> menampilkan ... adalah bilangan genap
-          else ==> lainnya
-          writeln (x,’ adalah bilangan ganjil’); ==> menampilkan ... adalah bilangan ganjil
-          end; ==> untuk mengakhiri procedure output
-          begin ==> untuk mengawali suatu procedure
-          clrscr; ==> untuk membersihkan layar pada turbo pascal
-          input; ==> masukan dari procedure
-          output; ==> keluaran dari procedure
-          readln; ==> untuk membaca nilai dari suatu variabel
-          end. ==> sebagai tanda selesai pada turbo pascal

0 komentar:

Posting Komentar