Latihan soal Perulangan PASCAL (bagian 1)

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

Jawab :

Perulangan Repeat-Until

   uses crt;

   var

     i : integer;

   begin

     clrscr;

     writeln(' PERULANGAN REPEAT-UNTIL ');

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

     writeln;

     i:=15;

     repeat

     begin

          if i mod 2 = 1 then

          write(i:3);

          i:=i-1;

     end;

     until i<=1;

   readln;

   end.

   

Gambar di Pascal

Hasil Program:

Perulangan While

   uses crt;

   var

     i : integer;

   begin

     clrscr;

     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.

Gambar di Pascal

Hasil Program:

Perulangan For

   uses crt;

   var

     i : integer;

   begin

     clrscr;

     writeln('     PERULANGAN FOR      ');

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

     writeln;

     for i:= 15 downto 1 do

     begin

          if i mod 2 = 1 then

          write(i:3);

     end;

   readln;

   end.

 Gambar di Pascal

Hasil Program:

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?

Jawab :

   uses crt;

   var

     merosot,kedalaman,selisih : real;

     naik,hari                 : integer;

   begin

     clrscr;

     write('Masukkan Jumlah 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:10:2, selisih:11:2,                 kedalaman:14:2);

          hari       := hari + 1;

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

          begin

           naik      := 2;

           merosot   := 1.25;

           selisih   := naik - merosot;

          end

          else if (hari>15) then

          begin

           naik      := 2;

           merosot   := 1.5;

           selisih   := naik - merosot;

          end;

     end;

   readln;

   end.

Gambar di Pascal

Hasil Program: