Selasa, 17 Desember 2013

Program Penerimaan Mahasiswa Baru

Program Penerimaan Mahasiswa Baru Menggunakan TPW (Pascal)

program mahasiswa_baru;
uses wincrt;
var
   no,nama,asal,tempat:string;
   tgl,bln,th:integer;
   b_daftar,u_bangun,tot:longint;
begin
     clrscr;
     writeln('************************************');
     writeln;
     writeln(' Program Pendaftaran Mahasiswa Baru ');
     writeln;
     writeln('------------------------------------');
     writeln('           Yuni Yuningsih           ');
     writeln;
     writeln('************************************');
     writeln;
     write  ('No.               : '); readln(no);
     write  ('Nama              : '); readln(nama);
     write  ('Tempat Lahir      : '); readln(tempat);
     write  ('Tanggal Lahir     : '); readln(tgl,bln,th);
     case bln of
     1,3,5,7,8,10,12 : begin
                       if (tgl>31) then
                          begin
                               writeln('Format Tanggal salah');
                               readkey;
                               donewincrt;
                          end
                     
                       end;
     4,6,9,11 : begin
                if (tgl>30) then
                   begin
                        writeln('Format Tanggal salah');
                        readkey;
                        donewincrt;
                        end
                end;
     2 : begin
         if (th mod 4=0) then
            begin
                 if (tgl>29) then
                 begin
                      writeln('Format Tanggal salah');
                      readkey;
                      donewincrt;
                 end
            end
            else
            begin
            if (tgl>28) then
            begin
                 writeln('Format Tanggal salah');
                 readkey;
                 donewincrt;
            end
            end;
       end;
     end;
     if (bln>12) or (th>1995) then
        begin
             writeln('Format Tanggal Salah');
             readkey;
             donewincrt;
     end;
       
     write  ('Asal Sekolah      : '); readln(asal);
     write  ('Biaya Pendaftaran : '); readln(b_daftar);
     write  ('Uang Bangunan     : '); readln(u_bangun);
     tot:=b_daftar+u_bangun;
     write  ('Total             : ',tot);
end.


Tampilan Hasil Programnya Jika Pengisian Data Benar Akan Seperti Berikut:

Add caption
dan Jika Pengisian tanggal salah maka akan seperti Berikut:


Tidak ada komentar:

Posting Komentar