Program Perulangan dengan While Do Pascal

Sama halnya dengan struktur kendali yang telah dibahas sebelumnya, pada struktur perulangan dapat terjadi kasus dimana di dalam struktur perulangan tertentu terdapat struktur perulangan yang lain dan seterusnya. Program berikut akan menerapkan struktur perulangan dengan menggunakan While :

  • program P0401;
  • uses wincrt;
  • var
  • m:char;
  • i,j:integer;
  • begin
  • gotoxy(20,1);writeln('Contoh Program Perulangan');
  • writeln;
  • repeat
  • write('Masukkan sembarang karakter : ');readln(m);
  • i:=1;
  • while i<=10 do
  • begin
  • j:=1;
  • while j<=i do
  • begin
  • write(m);
  • inc(j);
  • end;
  • writeln;
  • inc(i);
  • end;
  • writeln;
  • write('Mau Ulang ? : ');readln(m);
  • until m<>'y';
  • end.
-----------------------------------------------------------


Apabila menginginkan filenya bisa di download disini :





Share this post!

Bookmark and Share

My Blog List