LATIHAN PERULANGAN PADA PASCAL (Bagian 2)

Kasus 1
Buatlah program untuk menghitung jumlah yang harus dibayar oleh nasabah jika meminjam uang disuatu koperasi dimana bunganya dijadikan pokok pada bulan berikutnya.

Bingung...? langsung saja ketikan listing di bawah ini pada pascal
       uses crt;
   var
     awal,akhir,rpbunga   : real;
     bunga, lama, i       : integer;
     mau                  : char;
   begin
     repeat
       clrscr;
       write('Pinjaman Awal = Rp. ');readln(awal);
       write('Bunga [%] = ');readln(bunga);
       write('Lamanya Pinjaman [Periode] = ');readln(lama);
       writeln('------------------------------------------------');
       writeln(' Periode Bunga [%] Pinjaman Pinjaman Bunga [Rp] ');
       writeln('                    Awal      Akhir');
       writeln('------------------------------------------------');
       for i:=1  to lama do
       begin
         akhir:=awal + ((bunga/100) * awal);
         rpbunga:=0.1 * awal;
         writeln(i:5, bunga:9, awal:11:0, akhir:11:0, rpbunga:10:0);
            awal:=akhir;
       end;
       writeln('Mau Menghitung Lagi ? [Y/N] : ');
       readln(mau);
       until mau='N';
   readln;
   end.

Jika suda di ketik maka tampilannya akan seperti di bawah ini

Tampilan Hasilnya :

Di bawah hasil hitungannya ada pertanyaan "Mau Hitung Lagi" Jika kita pilih Y maka akan di lakukan perhitungan lagi dari awal dan jika kita pilih T akan berhenti dan keluar

Kasus 2

Ubah perintah For dari kasus 1 dengan perintah While Do

Langsung saja ketikan scrib atau listing di bawah ini :

   uses crt;

   var

     awal,akhir,rpbunga   : real;

     bunga, lama, i       : integer;

     mau                  : char;

   begin

     repeat

     clrscr;

       write('Pinjaman Awal = Rp. ');readln(awal);

       write('Bunga [%] = ');readln(bunga);

       write('Lamanya Pinjaman [Periode] = ');readln(lama);

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

       writeln(' Periode Bunga [%] Pinjaman Pinjaman Bunga [Rp] ');

       writeln('                    Awal      Akhir');

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

       i:=1;

       while i <= lama do

       begin

         akhir:=awal + ((bunga/100) * awal);

         rpbunga:=0.1 * awal;

         writeln(i:5, bunga:9, awal:11:0, akhir:11:0, rpbunga:10:0);

            awal:=akhir;

         i:=i+1;

       end;

       writeln('Mau Menghitung Lagi ? [Y/N] : ');readln(mau);

       until mau='n';

   readln;

   end.

Jika suda di ketik maka tampilannya akan seperti di bawah ini:

Tampilan Hasilnya :

sama seperti di hasil program dari kasus 1 di bawah hasil hitungannya ada pertanyaan "Mau Hitung Lagi" Jika kita pilih Y maka akan di lakukan perhitungan lagi dari awal dan jika kita pilih T akan berhenti dan keluar.