Program Biaya Angsuran dengan Turbo Pascal

Sintaks Program :

program biaya;
uses wincrt;
var
   tmpt, nama, jurusan :string;
   no, total,tgl,bulan,tahun, bayar, sisa : real;
begin
   writeln('Formulir Angsuran Biaya');
   write  ('No          : ');readln(no);
   write  ('Nama        : ');readln(nama);
   write  ('TTL         : ');
   gotoxy(15,4);readln(tmpt);
   gotoxy(24,4);write(',');
   gotoxy(25,4);readln(tgl);
   if tgl > 31 then
   donewincrt;
     
   gotoxy(27,4);write('-');
   gotoxy(28,4);readln(bulan);
   if bulan > 12 then
   donewincrt;
   gotoxy(30,4);write('-');
   gotoxy(31,4);readln(tahun);
   if tahun > 1996 then
   donewincrt;
   write  ('Jurusan     : ');readln(jurusan);
   total:=700000;
   writeln('Total Biaya : Rp.',total:0:2);
   write  ('Bayar       : Rp.');readln(bayar);
   sisa := total-bayar;
   write  ('Sisa BAyar  : Rp.',sisa:0:2);
end.

Gambar program setelah dijalankan :

 

DaftarKelompok :

Muslihudin

Ega Herdiana

Muhamad Ramdan

Ahmad Sabit

Helmi Fauzi

Irham Mediawan

Tendi Edrisa

Fathul Bari Abdul Aziz