Latihan Dan Soal Perulangan Pascal (Bagian 3)

Sebelumnya saya sudah posting mengenai Latihan Dan Soal Perulangan Pascal (Bagian 2) Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya :

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

jawab :

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.

Gambar di Pascal

Hasil Program:

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.

Gambar di Pascal

Hasil Program:

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.

Gambar di Pascal

Hasil Program:

SEKIAN.......