Contoh Program Sederhana Repeat

program pdhwd;
uses crt;

var pekan:integer;
    hari:integer;


begin

clrscr;
pekan:=1;
hari:=1;

  repeat hari<=1;

  begin

      until hari<=7;
      begin
      writeln('pekan ',pekan,' hari ',hari);
      hari:=hari+1;
      end;
  pekan:=pekan+1;

  end;


  readln;

end.

Tweet

Jangan sampai ketinggalan postingan-postingan terbaik dari Gadget Mainstream. Berlangganan melalui email sekarang juga:

Atau sobat juga bisa follow Gadget Mainstream dengan mengklik tombol di bawah ini:

Artikel keren lainnya:

Ditulis oleh Gadget Mainstream pada tanggal Sabtu, 10 Januari 2015