- uses crt; ==> sintaks yang diharuskan pada turbo pascal
- var x, y : integer; ==> untuk memasukan variabel numerik yang akan dijalankan, yaitu x dan y
- var z : real; ==> untuk memasukan perhitungan pada variabel z
- procedure input; ==> sebagai langkah pemasukan nilai
- begin ==> untuk mengawali procedure input
- write (‘Nilai UTS = ‘); ==> menampilkan Nilai UTS =
- readln (x); ==> untuk membaca nilai dari variabel x
- write (‘Nilai UAS = ‘); ==> menampilkan Nilai UAS =
- readln (y); ==> untuk membaca nilai dari variabel y
- end; ==> untuk mengakhiri procedure input
- procedure output; ==> sebagai langkah pengeluaran nilai
- begin ==> untuk mengawali procedure output
- z:= ((x*70/100)+(y*30/100)); ==> perhitungan pada variabel z
- write (‘total = ‘,z:3:2); ==> menampilkan total dari variabel z
- readln; ==> untuk membaca nilai dari suatu variabel
- if z >= 85 then ==> jika z lebih atau sama dengan 85 maka
- write (‘Grade A’) ==> menampilkan Grade A
- else if z >= 70 then ==> lainnya jika z lebih atau sama dengan 70 maka
- write (‘Grade B’) ==> menampilkan Grade B
- else if z >= 55 then ==> lainnya jika z lebih atau sama dengan 55 maka
- write (‘Grade C’) ==> menampilkan Grade C
- else ==> lainnya
- write (‘Grade D’) ==> menampilkan Grade D
- 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
