Pascal:Slip Gaji Sederhana

3:33 PM

Selamat sore kawan-kawan.

akhirnya gw sekarang bisa update post lagi dech.


sekarang gw bakal berbagi tentang cara membuat aplikasi slip gaji sederhana. Di dalam aplikasi ini kita hanya menginputkan nama dan golongan kita, dan gajinya itu pun tergantung dari golongan kita, dan apabila kita salah memasukkan golongan, maka pada aplikasi tersebut ada peringatan, bahwa kita salah memasukkan golongan.

langsung di coba saja dech!

Coding:
uses wincrt;
var
pilihan:string;
a,b,c:integer;


begin
writeln('=====================================');
writeln(' PT. MAJU MUNDUR ');
writeln('=====================================');
write('nama = ');readln;
write('golongan a/b/c = ');readln(pilihan);
writeln;
if pilihan='a' then
writeln('gaji pokok anda Rp. 2.000.000');
if pilihan='b' then
writeln('gaji pokok anda Rp. 4.000.000');
if pilihan='c' then
writeln('gaji pokok anda Rp. 6.000.000');
if pilihan>'c' then
writeln('anda salah memasukkan golongan');
end.


nah gimana? smple dan mudah kan?

Semoga bermanfaat.
Salam blogger.

0 comments