PERULANGAN MENGGUNAKAN FO.. TO.. DO PADA PASCAL

Oleh peistar

Tuesday, 23 February 2016

Bagikan :

Tweet

Looping atau yang lebih sering kita dengar bahasa indonesianya adalah Perulangan. Looping (Perulangan) merupakan suatu proses dimana proses ini nantinya dilakukan secara berulang-ulang. Looping dapat dikategorikan menjadi tiga jenis :

1. For.. To.. Do
2. While.. Do
3. Repeat.. Until

pada materi kali ini saya akan memberikan tutorial mengenai looping yaitu For.. To.. Do, For.. To.. Do merupakan proses perulangan yang dilakukan dari angka yang paling kecil hingga angka yang paling besar sesuai dengan perintah yang diberikan dalam program, untuk contoh program sederhanannya dapat saudara lihat dibawah ini :

- Pertama : Copykan sintax program dibawah ini kedalam area kerja pada pascal ==> Run (Ctrl + F9).

  Contoh Looping Sederhana :

    Uses Crt;

    Var A : Integer;
    Begin
    Clrscr;
    For A := 1 To 3 Do
    Writeln ('Ayo Belajar Pascal');
    Readln;
    End.

Hasil Output :

- Kedua : untuk langkah yang kedua ini kita akan membuat program input yang nantinya akan melakukan proses perulangan sebanyak tiga kali seperti  gambar dibawah ini.

Sintak Program :

Uses Crt;
Var NIS, NAMA, ALAMAT, NoTlpn : String;
    A : Integer;
Begin
    For A := 1 To 3 Do
Begin
Clrscr;
Writeln ('Halaman =',A);
Write ('------------------------------');
Write ('NIS          =');Readln(NIS);
Write ('NAMA SISWA   =');Readln(NAMA);
Write ('ALAMAT       =');Readln(ALAMAT);
Write ('No. TLPN     =');Readln(NoTlpn);
Write ('------------------------------');
end;
Readln;
End.

Demikianlah tutorial yang singkat ini semoga bermanfaat bagi kita semuanya. Wasalammm!!!

Tag : Pemrograman Pascal