Program Perulangan Penghitung Jumlah Hutang Dengan Bunga ( Pascal )

dengan menggunakan fungsi perulangan pada pemrograman pascal kita bisa membuat sebuah program sederhana yaitu sebuah program yang bisa memudahkan kita dalam penghitungan hutang dengan besar bunga tertentu dan dengan waktu yang sudah ditentutakan
contoh kasus :
Menentukan Bunga Peminjaman yang harus dibayarkan,
setelah kita menginput
Pinjaman Awal
Besar Bunga Yang telah ditetapkan
Lamanya pinjaman (Periode)

jadi klw masalahnya seperti diatas
kita bisa buat scriptnya seperti berikut  :



jaadii., script programnya seperti ini..


uses crt;

var
  awal,akhir,rpbunga   : real;
  bunga, lama, i       : integer;
  mau                  : char;
begin
repeat
clrscr;
  writeln('');
  writeln('---------MUH. IQBAL TAWAKAL--------');
  writeln('-------------- TI.11 --------------');
  writeln('------------20142205009------------');
  writeln('');
  writeln;
  writeln;
  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='0';
      readln;
      end.

setelah selesai, hasilnya akan seperti berikut :

sekian,  semoga bermanfaat..