Latihan Dan Soal Perulangan Pascal (Bagian 2)

Sebelumnya saya sudah posting mengenai Latihan Dan Soal Perulangan Pascal (Bagian 1) Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya :

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

Jawab :

   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.

Gambar di Pascal

Hasil Program:

2. Ubah perintah For dari soal nomor 1 dengan perintah While Do

Jawab :

   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.

Gambar di Pascal

Hasil Program:

Lanjut Ke Latihan Dan Soal Perulangan Pascal (Bagian 3)