PENGULANGAN PADA BAHASA PASCAL (For ...Downto.... do)

Hai sobat... kita berjumpa lagi, disini saya akan berbagi kode perulangan For downto do. Langsung saja ke TKP (Tempat Kursi Praktek ) hehe

Pengulangan Negatif           

Perulangan negatif adalah perulangan dengan menghitung (counter) dari besar ke kecil. Statement yang digunakan adalah For-DownTo-Do
Bentuk umumnya :
For indeks := nilai akhir indeks downto nilai awal indeks do statement.

Berikut contoh perulangan Negatif.

program perulangan;

uses crt;

var

  waktu,i: integer;

begin

  clrscr;

    writeln('==============');

    writeln('Menghitung sisa hari');

    writeln('==============');

    writeln;

    write('Input jumlah hari: ');

    readln(waktu);

    writeln;

    for i := waktu downto 1 do

      begin

        writeln('Hari ',i,' kurangi 1, tinggal ',i-1);

      end;

  readln;

end.

Dalam pembuatan program terkadang diperlukan adanya pernyataan for di dalam pernyataan for atau yang sering disebut pernyataan for berkalang. Misalnya, pada persoalan untuk menampilkan tabel perkalian sebagai berikut :

Program TabelKali;

Uses crt;

        Const spasi = #0;

        Var N, Hasilkali, Kolom, Brs : word;

Begin

clrscr;

    writeln('==============');

    writeln('Menghitung hasil perkalian dengan tabel');

    writeln('==============');

    writeln;

        Write('Masukkan nilai yang akan dijadikan perkalian : '); readln (N);

                For kolom := 1 to N do

                Write(kolom : 4);

                Writeln;

                        For Brs := 1 to N do

                        Begin

                        For Brs := 1 to Brs do

                        Begin

                        HasilKali := Brs * kolom;

                Write (HasilKali : 4)

                End;

        writeln

        End;

Readln

End.

Semoga Bermanfaat yah.. :)