MEMBUAT PROGRAM LULUS ATAU TIDAK LULUS

uses crt ;
var
nilai : integer ;
begin
clrscr ;
write ('masukkan nilai:'); readln (nilai);
if (nilai >60)and (nilai <=100) then write ('anda lulus')
else if (nilai >=50) and (nilai <=59) then write ('anda tidak lulus');
readln ;
end.

Logika :

• Var (variabel) adalah nilai dari satuan data yang dapat bersifat berubah-ubah . 
• Ketik var nilai:integer ; 
• Ketik write (‘masukkan nilai:’) ; readln (nilai) ; 

Perintah write digunakan untuk mencetak tulisan “masukkan nilai” ke dalam layar monitor Perintah readln digunakan untuk membaca data yang dimasukkan oleh programmer. Pernyataan readln digunakan untuk membaca data dan memindahkan kursor satu baris ke baris berikutnya .

• Ketik if (nilai > 60 ) and (nilai < = 100 ) Salah satu jenis kondisi dalam turbo pascal adalah IF THEN ELSE .

Statemen ini digunakan untuk menetapkan dua pilihan yang harus dipilih salah satu cabangnya , untuk dilaksanakan sebagai tindakan dari statemen keputusan ini . maka secara otomatis di layar akan muncul pesan "anda lulus" .

• Ketik else if (nilai > = 50) and (‘nilai < = 59)

maka secara otomatis di layar akan muncul pesan "anda tidak lulus" .