contoh program pascal maba

Listing Program Mahasiswa Baru

program maba;

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.

tampilan