twitter



-          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

0 komentar:

Posting Komentar