PENGULANGAN PADA BAHASA PEMOGRAMAN PASCAL (For ...to.... do)

Hai sobat... selamat datang di blog panca kreatif. disni saya akan menjelaskan bagaimana cara membuat suatu perulangan yang menggunakan bahasa pemograman pascal. sebelum saya menjelaskan lebih jauh mari kita baca informasi berikut sekilas tentang pengulangan.

Perulangan adalah proses mengulang-ulang eksekusi blok kode tanpa henti, selama kondisi yang dijadikan acuan terpenuhi. Biasanya disiapkan variabel untuk iterasi atau variabel penanda kapan perulangan akan diberhentikan.

Komputer mempunyai beberapa kelebihan dibandingkan dengan manusia. Salah satunya, komputer bisa melakukan suatu perintah secara berulang-ulang. Pengulangan tersebut kn kit pelajari pada program pascal. Secara alamiah, suatu proses bisa berupa proses berurutan dari awal hingga selesai, pilihan berdasarkan kondisi tertentu atau pengulangan berdasarkan batasan tertentu pula. Pascal menyediakan beberapa konstruksi perintah untuk melakukan proses-proses itu

Terus apa perulangan For to do itu mari kita lihat pembahasan di bawah ini.

Pernyatan For digunakan jika jumlah pengulangan sudah diketahui sebelum proses dimulai. Pengulangan ini bergantung pada suatu variabel integer. Pada setiap pengulangan, variabel tersebut akan bertambah atau berkurang satu. Batas bawah dan batas atas proses For ini ditentukan oleh kedua batas tersebut.Ada dua bentuk pengulangan For, yaitu pengulangan positif dan pengulangan negatif.

1. Pengulangan Positif

Bentuk umumnya :

For indeks := nilai awal indeks to nilai akhir indeks do statement.

Contoh sederhana penggunaan For yaitu untuk menampilkan bilangan asli sampai ke N. Implementasinya : For bilangan := 1 to N do

Writeln (Bilangan);

Dengan Bilangan merupakan variable bertipe bilangan bulat. Pada perintah ini, mula-mula Bilangan bernilai 1. karena nilai bilangan lebih kecil dari N (nilai akhir) maka pernyataan writeln dijalankan, lalu isi Bilangan dinaikkan sebesar 1, menjadi 2. Jika bilangan lebih kecil atau sama dengan N. Maka pernyataan Writeln ini dikerjakan lagi, dan seterusnya.

Program menampilkan bilangn asli sampai ke N (dengan N dimasukkan melalui papan ketik sewaktu program dijalankan) dapat dilihat pada program di bawah ini.

Program Bilangan_asli;

program perulangan;
uses crt;
var
i,n: integer;
begin
clrscr;

write('Masukan Angka Positif : '); readln(n);

for i := 1 to n do

begin
writeln('Hello Panca Kreatif ke : ',i);
end;

readln;
end.