LATIHAN PERULANGAN PADA PASCAL (Bagian 1)

LATIHAN PERULANGAN PADA PASCAL (Bagian 1)
Berikut ini beberapa latihana - latihan perulagan pada pascal dengan kasus - kasus sebagai berikut

Kasus 1
Buatlah program untuk mencetak bilangan bulat sbb: 15  13  11  9  7  5  3  1 menggunakan struktur perulangan Repeat-Until, While dan For!

      1.  Perulangan repeat-until
          Ketikkan listing di bawah ini di pascal

     uses crt;
     var i:integer;
     begin
     clrscr;
     writeln(' ----------------------- ');
     writeln(' PERULANGAN REPEAT UTNIL ');
     writeln(' ----------------------- ');
     writeln;
     i := 15;
     repeat
     begin
     if i mod 2 = 1 then
     write(i:3);
     i:=i-1;
     end;
     until i<1;
     readln;
     end.

     Jika sudah maka gambarnya seperti di bawah ini

 Hasilnya :

      2.  Perulangan while 

           Ketikkan listing di bawah ini di pascal

            uses crt;

            var i:integer;

            begin

              clrscr;

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

              writeln('     PERULANGAN FOR      ');

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

              writeln;

              for i:= 15 downto 1 do

              begin

                if i mod 2 = 1 then

                write(i:3);

              end;

            readln;

            end.

           Jika sudah maka gambarnya seperti di bawah ini

Hasilnya :

        2.  Perulangan while 

             Ketikkan listing di bawah ini di pascal

           

          uses crt;

          var i:integer;

          begin

           clrscr;

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

           writeln('    PERULANGAN WHILE     ');

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

           writeln;

           i:=15;

           while i >=1 do

           begin

            if i mod 2 = 1 then

            write(i:3);

            i:=i-1;

           end;

           readln;

           end.

              Jika sudah maka gambarnya seperti di bawah ini

Hasilnya

Kasus 2

Ada katak masuk kedalam sumur sedalam 31.2 m. 5 hari pertama katak bias naik 3 m tiap pagi dan merosot 1 meter tiap malam, 10 hari berikutnya katak bias naik 2 meter tiap pagi dan merosot 1.25 m tiap malam, selanjutnya naik 2 m tiap pagi dan merosot 1.5 m tiap malam, berapa hari katak tersebut dapat keluar dari sumur?

Bingung....? Langsung saja ketik listing dibawah ini di pascalnya masing-masing

uses crt;

var merosot, kedalaman, selisih : real;

    hari, naik    : integer;

begin

clrscr;

     write('Masukkan Kedalaman Sumur : '); readln(kedalaman);

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

     writeln('Jumlah Hari    Naik    Merosot    Jumlah Naik    Kedalaman');

     writeln('                                    Per Hari');

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

     hari    := 1;

     naik    := 3;

     merosot := 1;

     selisih := naik - merosot;

     while kedalaman>0 do

     begin

       kedalaman := kedalaman-selisih;

       writeln(hari:7, naik:10, merosot:12:2, selisih:12:2, kedalaman:14:2);

       hari := hari+1;

       if (hari>5) and (hari<=15) then

          begin

               naik    := 2;

               merosot := 1.25;

               selisih := naik-merosot;

          end;

    end;

readln;

end.

Jika sudah maka gambarnya seperti di bawah ini

Hasilnya :

Lanjutkan juga di Latihan Perulangan Pada Pascal (Bagian 2)

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 1)

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

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

Related Posts: