Perulangan While-Do Pada Turbo Pascal

Kali ini saya akan akan membahas Perulangan While-Do Pada Turbo Pascal. Sebenarnya perulangan bukan hanya While-Do saja, masih ada For-Do, Repeat-Until. Tapi kali ini saya hanya membahas While-Do nya saja, untuk yang For-Do dan Repeat-Until akan saya bahas di posting berikutnya.

Oke Langsung saja, ini kodingnya.

uses crt;
var
   i,j: integer;
   M: char;

begin
     clrscr;
     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;
readln;
end.

Hasilnya sebagai berikut.

Tweet