CONTOH LOOPING PASCAL

·         Saya akan membuat sebuah contoh program sederhana LOOPING PASCAL. Saya membuat contoh programnya adalah nilai uts dan nilai uas. Dibawah ini adalah program Inputnya:

·         Dan di bawah ini saya akan menjelaskan logika program nya, yaitu :

1.      Pada (Uses crt), yaitu fungsinya adalah untuk mengaktifkan fungsi-fungsi yang berhubungan dengan pengontrolan pada PC yang terdiri (layarpada monitor, keyboard, warna dan suara).

2.      Pada (Var uts, uas, total : integer;) ,yaitu kita memasukkan variabel “uts”, “uas” dan dengan jenis tipe data integer.

3.      Pada (Begin), yaitu kita Memulai suatu program pada pascal

4.      Pada (Clrscr;), yaitu fungsinya adalah untuk membersihkan layar ketika kita run.

5.      Pada (Write(‘masukkan nilai uts : ‘); readln(uts); ), yaitu kita Menuliskan “masukkan nilai uts :” dan kemudian membaca input sebagai variabel “uts”

6.      Pada (Write(‘masukkan nilai uas : ‘); readln(uas); ) ,yaitu kita Menuliskan “masukkan nilai uas :” dan kemudian membaca input sebagai variabel “uas”

7.      Pada (total := (uts+uas) div 2 : ), yaitu fungsinya untuk menghitung jumlah dari nilai uts dan nilai uas yang kita masukkan, kemudian di bagi 2. Dan di bagi 2 supaya pada saat kita tampilkan di layar output nya tidak terjadi bilangan yang sifatnya +) dan lain lain.

8.      Pada (writeln(‘total nilai =’total); ), yaitu jika kita sudah memasukkan nilai uas dan uts nya maka akan di total menjadi hasilnya dari nilai uas dan uts.

9.      Pada (if  and then else), yaitu untuk penentu grade berapa yang nantinya akan kita dapatkan. Jika total nilai uts dan nilai uas sudah di bagi 2.

10.  Pada (Readln;) ,yaitu berfungsi untuk Membuat layar menjadi tetap ketika kita run.

Pada (End.) ,yaitu berfungsi untuk Mengakhiri sebuah program