Simple Pascal Programming: Menghitung Lama Angsuran

Berikut ini saya bagikan sourcecode Program Pascal: Menghitung lama angsuran menggunakan Looping-For. Program ditulis atas dasar tugas dari mata kuliah Teknik Informatika : Konsep Bahasa Pemrograman.

Program pascal dibuat dan dijalankan menggunakan aplikasi : Free Pascal

Silakan berikut sourcecode nya.


program menghitung_angsuran;
uses crt;

var
pjm, ags, sisa: real;
bln:integer;

BEGIN
 clrscr;
 writeln('PROGRAM MENGHITUNG KALI ANGSURAN');
 writeln();
 write('Masukan total pinjaman: ') ; readln(pjm);
 write('Masukan besar angsuran: '); readln(ags);
 writeln();

writeln('============================================================================');

 for  bln:=1 to 1000 do
 begin
   pjm := pjm - ags;
   if (pjm <= 0) then
     begin
      ags:=pjm+ags;
      pjm:=0;
      writeln('Bulan ke: ',bln,' besar angsuran: Rp.',ags:0:2,' sisa pinjaman: Rp.',pjm:0:2);
      break;
   end;
   writeln('Bulan ke: ',bln,' besar angsuran: Rp.',ags:0:2,' sisa pinjaman: Rp.',pjm:0:2);
 end;
 writeln('============================================================================');
 write('Pinjaman akan lunas pada angsuran bulan ke: ',bln);
 readln();
END.

Hasil: