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 :)
Berhasil tidak ?? Jika belum berhasil, atau ada yang Error.. silahkan koment saja :)
- 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 !
Terimakasih telah berkunjung ke Blog Saya....
No comments:
Post a Comment