Algoritma dan Pemrogaman : Struktur For

Struktur FOR

Struktur FOR digunakan untuk menghasilkan pengulangan sejumlah n kali tanpa penggunaan kondisi apapun. Struktur ini menyebabkan aksi diulangi sejumlah n kali (tertentu). Terdapat dua bentuk umum FOR yaitu:

1. FOR menaik
2. FOR menurun

FOR Menaik

Bentuk umum algoritma

for variabel ← nilai_awal to nilai_akhir do
  aksi

Translasi dalam bahasa Pascal

for variabel:=a to b do
  aksi;

Beberapa hal yang perlu diperhatikan adalah:

1. Variabel harus bertipe sederhana kecuali tipe real
2. Nilai_awal harus lebih kecil atau sama dengan nilai_akhir
3. Bila nilai_awal lebih besar dari nilai_akhir maka badan pengulangan tidak dimasuki
4. Pada awalnya, variabel inisialisasi dengan nilai_awal. Nilai variabel tersebut otomatis bertambah satu setiap kali aksi pengulangan dimasuki, sampai akhirnya nilai variabel sama dengan nilai_akhir.
5. Jumlah pengulangan yang terjadi adalah nilai_awal – nilai_akhir + 1

Contoh 1

program cetak_halo;
var
  n:integer;
begin
  for n:=1 to 10 do
    writeln('HALO');
end.

Contoh 2

program cetak_angka;
var
  angka:integer;
begin
  for angka:=1 to 20 do
    writeln(angka);
end.

Contoh 3

program cetak_n_angka;
var
  n,angka:integer;
begin
  write('Masukkan jumlah angka yang ingin dicetak : ');readln(n);
  for angka:=1 to n do 
    writeln(angka);
end.

FOR Menurun

Bentuk umum algoritma

for variabel ← nilai_awal downto nilai_akihr do 
  aksi

Translasi dalam bahasas Pascal

for variabel:=a downto b do
  aksi;

Beberapa hal yang perlu diperhatikan adalah:

1. Variabel harus bertipe sederhana kecuali tipe real
2. Nilai_akhir harus lebih besar atau sama dengan nilai_awal
3. Bila nilai_akhir lebih kecil dari nilai_awal maka badan pengulangan tidak dimasuki
4. Pada awalnya, variabel inisialisasi dengan nilai_akhir. Nilai variabel tersebut otomatis berkurang satu setiap kali aksi pengulangan dimasuki, sampai akhirnya nilai variabelsama dengan nilai_awal.
5. Jumlah pengulangan yang terjadi adalah nilai_awal – nilai_akhir + 1

Contoh 1

program cetak_n_angka_menurun;
var
  n,angka:integer;
begin
  write('Masukkan jumlah bilangan yang akan dicetak : ');readln(n);
  for angka:=n downto 1 do
    writeln(angka);
end.

Contoh 2

program peluncuran_roket;
var
  angka:integer;
begin
  for angka:=100 downto 0 do
    writeln(angka);
  writeln('Roket Meluncur');
  readln;
end.

Materi Lengkap

Silakan baca juga beberapa artikel menarik kami tentang Struktur Perulangan, daftar lengkapnya adalah sebagai berikut.

Tonton juga video pilihan dari kami berikut ini