LOOPING (BY PASCAL)

Langkah :

· Buka program Turbo pascal, lalu buka lembar baru.

· Ketikan syntak seperti pada gambar dibawah ini.

· Save program agar program yang telah kita buat dapat aman bila terjadi error pada Turbo Pascal, dan kita dapat membuka program ini bila kita ingin mengubah program ini.

· Pada program kali ini, variable yang digunakan adalah Integer seperti pada baris 2.

Variable angka, i, dan j merupakan variable bertipe Integer.

Logika program :

Dari syntak yang diberikan pada program diatas, kegunaan dari “clrscr” adalah untuk membersihkan layar sebelum program dijalankan.

“write(‘masukkan angka anda : ‘);”

Kegunaan dari syntak diatas agar pada program tertulis “Masukkan angka anda = “, hal ini bertujuan sebagai tempat bagi user untuk memasukan nilai yang akan di Loop.

Readln(angka);

Digunakan agar user dapat memasukan angka yang akan di Loop pada program.

For i := 1 to angka do

Ini merupakan pemberian nilai kepada variable, nilai “i” 1 sampai nilai yang kita masukkan.

For j := 1 to i do

Merupakan syntak pemberian nilai variable, pada variable “j” bernilai 1 sampai dengan nilai variable “i”.

Write(j); writeln;

Syntak ini merupakan perintah untuk mencetak nilai variable j, digunakan writeln, sebab agar program mencetak pada garis baru paragraf.

j:=j + 1;readln;

syntak diatas merupakan fungsi looping dimana nilai variable “j” akan bertambah 1, sesuai dengan yang jumlah angka yang kita masukkan. Sampai angka yang kita masukkan terpenuhi. Angka akan dicetak pada program.

i:=i + 1;

syntak diatas merupakan fungsi looping dimana nilai variable “i” akan bertambah 1, sesuai dengan yang jumlah angka yang kita masukkan. Sampai angka yang kita masukkan terpenuhi.

Penempatan “readln;” dalam satu baris dengan “end;” dimaksudkan agar looping hanya akan berjalan jika kita sudah menekan “Enter” pada keyboard, maka program Looping ini akan berjalan.