LATIHAN PERULANGAN PADA PASCAL (Bagian 1)

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 :