PROGRAM PASCAL MAHASISWA BARU

1. LISTING PROGRAM MAHASISWA BARU

program mahasiswa_baru;
uses wincrt;
type  mhs  = record
      no : string [4] ;
      Nm  :string [30];
      asal : string [20] ;
      tmp : string [20];
      d,m,y: integer;
      by, gd,tot: real;
end;
var data:mhs;
begin
with data do
     begin
     writeln('Pendaftaran Mahasiswa Baru');
     writeln('--------------------------');
     write('Masukkan Nomor               :'); readln(no);
     write('Masukkan Nama                :'); readln(nm);
     writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
     write  ('Tanggal Lahir [DD MM YYYY] : '); readln(d,m,y);

     case m of
     1,3,5,7,8,10,12:begin
                       if (d>31) then
                            writeln('Tanggal salah')
                       else
                           writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
     write  ('Tanggal Lahir [DD MM YYYY] : '); readln(d,m,y);
                  end;

     4,6,9,11:begin
                   if (d>30) then
                      writeln('Tanggal salah')
                   else
                      writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
     write  ('Tanggal Lahir [DD MM YYYY] : '); readln(d,m,y);
              end;

     2:begin
            if (y mod 4=0) then
            begin
                 if (d>29) then
                 writeln('Tanggal salah')
                 else
                writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
     write  ('Tanggal Lahir [DD MM YYYY] : '); readln(d,m,y);
                 end
            else
            begin
            if (d>28) then
             writeln('Tanggal salah')
            else
             writeln('Contoh Format Tanggal [12 12 1994] Gunakan spasi');
     write  ('Tanggal Lahir [DD MM YYYY] : '); readln(d,m,y);
             end;
    
     write('Asal Sekolah                 :'); readln(asal);
     write('Biaya Pendaftaran            :'); readln(by);
     write('Uang Gedung                  :'); readln(gd);

     tot:=by+gd;
     writeln('Total                        :',tot:0:0);
     end;
    end;
     writeln;
     writeln;
     writeln('        Laporan           ');
     writeln('--------------------------');
     writeln('Masukkan Nomor               :',data.no);
     writeln('Masukkan Nama                :',data.nm);
     writeln('Tanggal Lahir                :',data.d,m,y);
     writeln('Asal Sekolah                 :',data.asal);
     writeln('Biaya Pendaftaran            :',data.by:0:0);
     writeln('Uang Gedung                  :',data.gd:0:0);
     writeln('Total                        :',data.tot:0:0);
end;
end.

2. PRINT SCREEN PROGRAM MAHASISWA BARU