LATIHAN PERULANGAN PADA PASCAL (Bagian 3)

kasus

"Buatlah Program dengan 3 moodel perulangan Repeat-Until, While, dan For untuk permasalahan deret ukur 3, 9, 23, ..."

Baiklah langsung saja perhatikan di bawah ini

Perulangan Repeat - Until
   uses crt;
   var
     i,p,nilai   : integer;
   begin
     clrscr;
     writeln(' PERULANGAN REPEAT-UNTIL ');
     writeln('-------------------------');
     writeln;
     write('Masukkan Jumlah Deret = ');readln(p);
     writeln;
     nilai   :=3;
     i       :=1;
     repeat
     begin
          write(nilai:5);
          i      := i + 1;
          nilai  := nilai * 3;
     end;
     until i> p;
   readln;
   end.

   Tampilan program dan hasilnya:

Perulangan While

   uses crt;

   var

     i,deret,nilai   : integer;

   begin

     clrscr;

     writeln('    PERULANGAN WHILE     ');

     writeln('-------------------------');

     writeln;

     write('Masukkan Jumlah Deret : ');readln(deret);

     writeln;

     nilai   :=3;

     i       :=1;

     while i <= deret do

     begin

          write(nilai:5);

          i      := i + 1;

          nilai  := nilai * 3;

     end;

     readln;

     end.

  Tampilan program dan hasilnya:

Perulangan For

       uses crt;

   var

     i,p,nilai   : integer;

   begin

     clrscr;

     writeln('     PERULANGAN FOR      ');

     writeln('-------------------------');

     writeln;

     write('Masukkan Jumlah Deret : ');readln(p);

     nilai:=3;

     for i:= 1 to p do

     begin

          write(nilai:5);

          nilai  := nilai * 3;

     end;

   readln;

   end.

Berikut tampilan program dan hasilnya :