Contoh - Contoh Soal Pembuatan Program Bahasa Pascal Menggunakan Struktur Perulangan Repeat-Until, While dan For

Assalamu alaikum wr. wb

Pada kesempatan kali ini saya akan memposting beberapa contoh program perulangan  beserta scriptnya yang dimana soal-soal ini merupakan tugas dari mata kuliah Algoritma dan Pemrograman yang telah saya dapat,,,
langsung saja ....

1. Ada katak masuk kedalam sumur sedalam 31.2 m. 5 hari pertama katak bisa naik 3 m tiap pagi dan merosot 1 m tiap malam, 10 hari berikutnya katak bisa naik 2 m 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 ?

Scriptnya :
uses crt;
var
   merosot,kedalaman,selisih : real;
   naik,hari                 : integer;
begin
     clrscr;
 writeln('');
 writeln('---------AYU KUSUMA--------');
 writeln('------------------- TI.12 --------------------------');
 writeln('---------------20142205072------------------');
 writeln('');
     writeln;
     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.

Silahkan Copas script diatas dan dicompiler sendiri...


2. Buatlah Program untuk mencetak bilangan bulat sebagai berikut  :
    15      13      11       9        7         5         3         1 menggunakan struktur perulangan.

Berikut Sriptnya :

uses crt;
var
   i : integer;
begin
     clrscr;
 writeln('');
 writeln('--------AYU KUSUMA--------');
 writeln('-------------- TI.12 -------------');
 writeln('------------20142205072-----------');
 writeln('');
     writeln;
     writeln;
     for i:= 15 downto 1 do
     begin
          if i mod 2 = 1 then
          write(i:3);
     end;
readln;
end.


Sekian, terima kasih
semoga bermanfaat.