PENGULANGAN PADA BAHASA PASCAL MENGGUNAKAN REPEAT ... UNTIL

Hai sobat... Kita berjumpa lagi, disini saya akan berbagi kode perulangan REPEAT UNTIL. Langsung saja ke TKP (Tempat Kursi Praktek ) lagi hehe..

Perulangan terakhir yang akan kita bahas adalah perulangan REPEAT UNTIL. Inilah yang akan kita praktekkan kali ini. 

Pernyataan perulangan REPEAT UNTIL ini hampir sama dengan pernyataan pengulangan while, dan biasanya digunakan bila jumlah belum dapat ditentukan pada saat program ditulis. Perbedaan pernyataan repeat... until dan while terletak pada pengecekkan kondisi.

Jika pada pernyataan while, kondisi di cek pada awal kalang, sedangkan pada pernyataan repeat..until, kondisi di cek pada akhr kalang.

Perbedaan yang lain, bila pernyataan selama kondisi masih terpenuhi, sedangkan pernyataan repeat ..until mengulang pernyataan selama kondisi belum terpenuhi.

Supaya tidak bingung, ayoo kita praktekan koding pascal di bawah ini..

program repeat_until;

uses crt;

var

  i,x,y,z: integer;

begin

  clrscr;

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

    writeln('Menghitung jumlah kelipatan');

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

    writeln;

    i:=0;

    write('Masukan jumlah kotak pensil : '); readln(x);

    write('Masukan jumlah pensil di kotak pertama : '); readln(y);

    z:=0;

  repeat

    begin

      i:= i + 1;

      z:=z+y;

      writeln('Jumlah pensil di kotak ',i,' Adalah : ',z);

      end;

  until i = x;

  readln;

end.

Sebagai contoh terakhir, saya ingin membuat deret angka kelipatan yang berdasarkan inputan yang kita inginkan yang menggunakan perulangan REPEAT UNTIL. Berikut kode programnya:

program repeat_until;

uses crt;

var

  i,n: integer;

begin

  clrscr;

 // i:= 5;

  writeln('Berikut cara menghitung sebuah kelipatan ');

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

  writeln('');

  write('Masukan angka kelipatan : '); readln(n);

  repeat

    begin

      write(i,' ');

      i:= i + n;

    end;

  until i > 100;

  readln;

end.

Selamat berkreasi Sobat dan Semoga Bermanfaat… J