Instruksi Pengulangan Bahasa Pascal : Materi dan Contoh

Instruksi Pengulangan Bahasa Pascal

Sebelumnya kita telah mengetahui bagaimana membangun loop pengulangan menggunakan alat pernyataan percabangan seperti GOTO untuk mentransfer kontrol program ke titik awal berulang kali.

Kondisi ini dapat digunakan untuk menguji nilai input dan untuk mengakhiri loop ketika nilai tertentu diterima. Anda mungkin juga ingin mengulangi proses dalam loop beberapa kali, dalam hal ini Anda memerlukan penghitung. Kondisi dalam hal ini digunakan untuk menguji penghitung dengan setiap putaran loop. Jenis loop ini disebut loop hitung. Dalam program berikut, alat dasar ini digunakan untuk menampilkan pesan "Sorry, say again.." lima kali.

Algoritma yang digunakan dalam program ini adalah sebagai berikut:
1. Inisialisasi penghitung ke nol.
2. Naikkan penghitung sebesar 1.
3. Uji penghitung untuk melihat apakah kurang dari atau sama dengan 5.
4. Tampilkan pernyataan.
5. Lanjutkan ke langkah 2.
6. Pengulangan berhenti saat uji penghitungan lebih besar dari 5

{ ------------------------------ CONTOH ------------------------------ }

PROGRAM GoToLoop(OUTPUT);
LABEL
    1000; { label declaration }
VAR
    Kounter :INTEGER;
BEGIN
    Kounter := 0;
    1000:
    Kounter := Kounter + 1;
    IF Kounter <= 5 THEN
        BEGIN
        WRITELN('Sorry, say again..');
        GOTO 1000 { restart }
        END;
WRITELN;
WRITELN('Press ENTER to continue..');
READLN
END.

Dalam program ini penghitung diinisialisasi ke nilai nol sebelum memasuki loop, yang dimulai pada label 1000. Di dalam loop, penghitung bertambah, kemudian diuji untuk melihat apakah nilainya kurang dari atau sama dengan 5. Jika demikian, pernyataan WRITELN dieksekusi dan loop diulang menggunakan pernyataan GOTO. Jika kondisi gagal (mis., Penghitung melebihi 5), program berakhir. Output dari program ini terlihat seperti ini :

Pascal memberi Anda struktur kontrol siap pakai untuk perulangan, sehingga Anda dapat menghindari kode yang berantakan dan penulisan terlalu banyak. Pada kesempatan kali ini kita akan belajar struktur pengulanngan The FOR loop, The WHILE loop, dan The REPEAT loop.

Kesimpulan berbagai kondisi Instruksi Pengulangan Bahasa Pascal :

1. Loop FOR digunakan untuk mengulangi pernyataan atau blok pernyataan beberapa kali. Konstruk umumnya :

FOR control-variable := expression-1 TO expression-2 DO
    statement;

dimana control-variable adalah penghitung loop/banyaknya pengulangan, expression-1 adalah nilai inisiasi/awal, dan expression-2 adalah nilai akhir.

2. Bentuk alternatif dari loop FOR digunakan untuk mengurangi penghitung (Descending):
FOR control-variable := expression-1
DOWNTO expression-2 DO
    statement;

3. Loop WHILE digunakan untuk mengeksekusi pernyataan atau blok pernyataan selama kondisi tertentu adalah TRUE. Konstruk umumnya :

WHILE condition DO
    statement;

4. Dengan loop FOR dan WHILE, Anda dapat menggunakan beberapa pernyataan dengan memasukkannya ke dalam blok BEGIN-END.

5. Loop REPEAT digunakan untuk mengeksekusi sekelompok pernyataan hingga kondisi yang ditentukan gagal. Konstruk umumnya:

REPEAT
    statement-1;
    statement-2;
    ...
    statement-n;
UNTIL condition;

6. Sekarang kita mengetahui bahwa perbedaan utama antara loop REPEAT dan dua lainnya adalah bahwa pernyataan di dalam loop REPEAT dieksekusi setidaknya sekali terlepas dari kondisinya.

7. kita juga memahami bahwa loop REPEAT dapat menangani banyak pernyataan tanpa menggunakan blok BEGIN-END.

Contoh-contoh instruksi pengulangan bahasa pascal :

Program Deret

Program untuk menghitung jumlah deret: 1 – 1/3 + 1/5 – 1/7 + 1/9 - ... ± 1/N
Dimana N adalah bilangan ganjil positif yang dibaca dari masukan pengguna.

program deret; uses crt; var N,i,j : integer; nilai,total : real; begin clrscr; write ('Masukkan N bilangan ganjil positif = '); readln (N); i := 1; j := 1; total := 0; while (i<=N) do begin     if (j mod 2 =0) then nilai := (-1)/i     else nilai := 1/i ;     write (nilai :2:2,' ');     total := total + nilai;     i := i+2;     j := j+1; end; writeln; write ('= ', total:2:2); readln; end.

Contoh - contoh lanjutan terkait instruksi pengulangan bahasa pascal. klink tautan berikut atau cari di kolom pencarian untuk melihat contoh-contoh lain terkait instruksi pengulangan bahasa pascal.

Terima Kasih Telah Membaca semoga bermanfaat, jika ada saran, kritik, dan pertanyaan silakan sampaikan di kolom komentar ya !!! suara kalian sangat berarti...see you...

Referensi : 

Abolrous, Sam A.2002.Learn Pascal in Three Days Third Edition.Texas:Wordware Publishing Inc

Categories: PEMROGRAMAN