- 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
Postingan
