Program Biaya Angsuran dengan Menggunakan 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 :

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