- uses crt; ==> sintaks yang diharuskan pada turbo pascal
- var nilai : integer; ==> untuk memasukan variabel numerik yang akan dijalankan, yaitu nilai
- begin ==> untuk mengawali suatu procedure
- clrscr; ==> untuk membersihkan layar pada turbo pascal
- write (‘Masukan Nilai Anda = ‘); ==> menampilkan Masukan Nilai Anda =
- readln (nilai); ==> untuk membaca nilai dari variabel nilai
- if nilai >= 70 then ==> jika nilai lebih besar atau sama dengan 70 maka
- writeln (‘Selamat Ya.. Anda Lulus’) ==> menampilkan Selamat Ya.. Anda Lulus
- else ==> lainnya
- writeln (‘Anda Gagal.. Jangan Bersedih Ya’); ==> menampilkan Anda Gagal.. Jangan Bersedih Ya
- readln; ==> untuk membaca nilai dari suatu variabel
- end. ==> sebagai tanda selesai pada turbo pascal
Postingan
