Program Pascal Data Pegawai Sederhana


Hai Sahabat Blogger... Bagi yang kuliah Jurusan Sistem Informasi/Manajemen Informasi/Teknik Informatika, pasti tidak asing lagi dengan yang namanya pascal kan ???
Disini saya ingin berbagi contoh-contoh Program Pascal, silahkan bagi yang perlu bisa langsung dicopast script nya :)


  • Program Data Pegawai sederhana

Program pascal;
Uses wincrt;
Var
   NIP,Nama     : string[20];

   Gapok,tunj,totga : real;
   gol : char;
begin
     writeln;
     writeln('                          Program Turbo Pascal         ');
     writeln;
     writeln('             ##############################################');
     writeln('             -------------------------------------------------------------');
       write('             Inputkan NIP      : ');readln(nip);
       write('             Inputkan Nama     : ');readln(nama);
       write('             Inputkan Golongan : ');readln(gol);
     writeln('             ______________________________________________');
     case gol of
     'A'..'a' : gapok:=750000;
     'B'..'b' : gapok:=850000;
     'C'..'c' : gapok:=1150000;
     'D'..'d' : gapok:=1350000;
     'E'..'e': gapok:=1500000;
     end;
     Tunj:=(0.1*gapok);
     Totga:=(gapok+tunj);
     writeln;
     writeln('             NIP               : ',nip);
     writeln('             Nama              : ',nama);
     writeln('             Golongan          : ',gol);
     writeln('             Gaji Pokok        : Rp.',gapok:3:2);
     writeln('             Tunjangan         : Rp.',tunj:3:2);
     writeln('             Total Gaji        : Rp.',totga:3:2);
     writeln('             ______________________________________________');
     writeln('             -------------------------------------------------------------');
     writeln('             ##############################################');
     end.
Hasilnya akan tampil seperti gambar berikut !

 Berhasil tidak ?? Jika belum berhasil, atau ada yang Error.. silahkan koment saja :)
Terimakasih telah berkunjung ke Blog Saya....

No comments:

Post a Comment

newer posts older posts back to home