Senin, 16 Desember 2013

Contoh Program Pascal "Pendaftaran Mahasiswa Baru"

Contoh Program Pascal "Pendaftaran Mahasiswa Baru"

program daftar_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('------------------------------------------------');
     writeln('           Pendaftaran Mahasiswa Baru            ');
     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.



Print Screen
 Jika Anda menginputkan tanggal lahir yang salah, seperti contoh di bawah (30 02 1994) maka akan ada peringatan "Tanggal salah !!!" dan akan memulai menginputkan tanggal lahir lagi...





Tanggal lahir seperti contoh di bawah sudah benar, sehingga dapat menginputkan data selanjutnya. . .  ^.^





Tidak ada komentar:

Posting Komentar