LATIHAN PERULANGAN PADA PASCAL (Bagian 3)

LATIHAN PERULANGAN PADA PASCAL (Bagian 3)
Sebelumnya saya sudah posting mengenai Latihan Perulangan Pada Pascal (Bagian 2). Kali ini saya akan melanjutkan posting berapa latihan latihan lagi, tapi kali ini cukup dengan 1 kasus saja, dan lumanya mudah kok. Ok langsung saja.

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 :

Password : pusatkomputerindo.blogspot.com Bagi Kalian Para OTAKU Bisa Di Lihat Daftar Anime SPRING 2015 Yang Akan Rilis APRIL 2015
LATIHAN PERULANGAN PADA PASCAL (Bagian 3)

LATIHAN PERULANGAN PADA PASCAL (Bagian 3) 10out of 10 based on 25 ratings. 35 user reviews.

Anda sedang membaca artikel tentang LATIHAN PERULANGAN PADA PASCAL (Bagian 3). Bila Anda merasa mendapat manfaat dari artikel ini, jangan lupa LIKE fanspage kami di atas, sebagai bentuk apresiasi terhadap blog PUSATKOMPUTERINDO. Terimakasih. ^_^

Related Posts: