TUGAS STRUKTUR DATA - PENDAFTARAN MAHASISWA ( 16 DESEMBER 2013 )

Assalamu'alaikum..

Selamat malam sahabat blogersssss.......

Malam ini saya akan men-share tugas dari mata kuliah Struktur Data yaitu tentang contoh "Program Pendaftaran Mahasiswa Baru" menggunakan program pascal :)

Program ini untuk menginputkan data pendaftaran mahasiswa baru dengan ketentuan sebagai berikut :

1. Nomor, nama, tempat & tanggal lahir, asal sekolah, biaya pendaftaran, dan uang bangunan di inputkan.
2. Total pembayaran otomatis ( uang bangunan + biaya pendaftaran )
3. Tanggal maximal pada bulan ke 1,3,5,7,8,10,12 adalah 31, jika lebih program harus mengalami ERROR.
4. Tanggal maximal pada bulan ke 4,6,9,11 adalah 30, jika lebih program harus mengalami ERROR.
5. Tanggal maximal pada bulan ke 2 adalah 28 or 29, jika lebih program harus mengalami ERROR.
6. Jika bulan di isi lebih dari 12, maka program harus mengalami ERROR.
7. Tahun lahir minimal yang dapat mendaftar yaitu tahun >= 1995.

Langsng saja ini sourch codenya :

program m_baru;
uses wincrt;
var
nm,as,t:string;
d,m,y:integer;
no:integer;
tot,bp,ug:longint;
begin
write (' nomor             : '); readln (no);
write (' nama              : '); readln (nm);
write (' Tempat Lahir      : '); readln(t);
write (' tanggal lahir     : '); readln (d,m,y);
 case m of
     1,3,5,7,8,10,12:begin
                       if (d>31) then
                            begin
                            writeln('Tanggal salah');
                            readkey;
                            donewincrt;
                  end;
                  end;
     4,6,9,11:begin
                   if (d>30) then
                      begin
                      writeln('Tanggal salah');
                      readkey;
                      donewincrt;
                  end;
              end;
     2:begin
            if (y mod 4=0) then
            begin
                 if (d>29) then
                 begin
                      writeln('Tanggal salah');
                      readkey;
                      donewincrt;
                  end
            else
            begin
            if (d>28) then
             writeln('Tanggal salah')
             end;
       end;
     END;
     end;
     if ( m > 12) then
        begin
             writeln(' Bulan salah!');
             readkey;
             donewincrt;
        end
     else if (y >= 1995) then
            begin
            writeln('Tahun salah!');
            readkey;
            donewincrt;
     end;
     
write ('asal sekolah       : ');readln (as);
write ('biaya pendaftaran  : ');readln (bp);
write ('uang gedung        : ');readln (ug);
writeln;
tot:=(bp+ug);
writeln ('total              : ',tot)
end.

Dan dari sourch code tersebut, berikut layout yang d hasilkan :

Keterangan :

Program di atas akan mengalami ERROR jika : Tanggal, Bulan, atau Tahun salah / tidak sesuai.

Cukup sekian dulu ya buat postingan kali ini sobat.. Semoga artikel ini bisa bermanfaat + membantu sobat yang sedang sama2 belajar bahasa pemograman pascal :)

Wallahulmuafiq ila aqwamittoriq..........
Wassalamu'alaikum... wr.wb