identifier (UTS,UAS)
reserve word (var,begin,clrscr,write,writeln,readln,end)
nilai konstanta (UTS*0,7+UAS*0.3)
operator (+,*)
contoh program:
hasil output program:
penjelasan:
var UTS,UAS : integer; ( ini mengenalkan variable, dan datanya itu bertype integer)
begin ( bagian pernyataan)
clrscr; ( fungsinya untuk menghapus)
write(‘masukkan nilai UTS:’); ( untuk menampilkan komentar "masukkan nilai UTS":)
readln(UTS); ( untuk menginput, lalu menampilkan data integer yang di masukan)
write(‘masukkan nilai UAS:’); ( untuk menampilkan komentar "masukkan nilai UAS":)
readln(UAS); ( untuk menginput, lalu menampilkan data integer yang di masukan)
TOTAL := (UTS*0.7)+(UAS*0.3); (fungsi nya sebagai rumus total pada UTS dan UAS)
writeln (‘total nilai anda = ', TOTAL:2:0); ( menampilkan total dari nilai anda:)
if TOTAL <40 then (fungsi nya adalah kondisi,jika nilai keseluruhan lebih kecil dari pada 40 maka)
writeln ('grade anda E') (akan menampilkan grade E
if TOTAL <50 then (fungsi nya adalah kondisi,jika nilai keseluruhan lebih kecil dari pada 50 maka)
writeln ('grade anda D') (akan menampilkan grade D
if TOTAL <60 then (fungsi nya adalah kondisi,jika nilai keseluruhan lebih kecil dari pada 60 maka)
writeln ('grade anda C') (akan menampilkan grade C
if TOTAL <70 then (fungsi nya adalah kondisi,jika nilai keseluruhan lebih kecil dari pada 70 maka)
writeln ('grade anda B') (akan menampilkan grade B
selebih nya jika nilai diatas 70 maka
writeln ('grade anda A') (akan menampilkan grade A
end. ( mengakhiri program ).
