Pemrograman Pascal Sederhana: Menghitung Lama Angsuran

Berikut ini saya bagikan kode sumber 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: Pascal Gratis Silahkan ikuti kode sumbernya

.

program menghitung_angsuran;
menggunakan crt;

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

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

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

untuk bln: = 1 hingga 1000 jangan
mulai
   pjm: = pjm - ags;
   jika (pjm <= 0) maka
     mulailah
      ags: = pjm + ags;
      pjm: = 0;
      writeln ('Bulan ke:', bln, 'besar angsuran: Rp.', ags: 0: 2, 'sisa pinjaman: Rp.', pjm: 0: 2);

   akhir;
   writeln ('Bulan ke:', bln, 'besar angsuran: Rp.', ags: 0: 2, 'sisa pinjaman: Rp.', pjm: 0: 2);
akhir;
writeln ('=============================================== ============================= ');
tulis ('Pinjaman akan lunas pada angsuran bulan ke:', bln);
readln ();
AKHIR.

Hasil:

share this article to: Facebook Twitter Google+ Linkedin Technorati Digg

Posted by GNOM PANEL, Published at Maret 31, 2019 and have 0 komentar