Contoh Turbo Pascal

Hari ini saya akan memberikan rumus yang digunakan dalam aplikasi turbo pascal dalam menentukan output nilai yang pernah saya kerjakan saat praktek SI, semoga bermanfaat ^_^

 

Logika        :writeln digunakan untuk menampilkan tulisan yang dibuat oleh user/pengguna, Readln untuk menampilkan variabel UTS, UAS dan total. Untuk melakukan perhitungan pada pascal disertai dengan tanda (:=). Pada (‘total nilai anda =’,total) total akan diisi secara otomatis karena merupakan suatu variabel. IF total digunakan jika nilai kurang dari 60 mendapat grade D, lalu jika nilai kurang dari 71 grade C, jika nilai kurang dari 81 grade B, dan jika semua kondisi tidak terpenuhi (nilai lebih dari 81) maka secara otomatis akan terisi Grade A.