Bahasa Pascal "Program Gaji Sesuai Golongan"

Assalamualaikum gan..!! Gimana nih punya kabar sahabat netizen..??? semoga tetap baik yaaaa...!! AMIIN......!! :)

O iya gan untuk kesempatan kali ini kami akan mempublikasiakan sebuah program menggunakan aplikasi free pascal nih.... emang gag terlalu keren sih programnya.., tapi kalau untuk pemula insyaallah bisa diaplikasikan..,  OK gan ni dia bahasa programnya...! silahkan dicoba

(Program menghitung gaji sesuai golongan)

uses crt;

var nama:string[25];

gol:string[10];

gk,tj,ppn,gb:real;

begin

clrscr;

write(‘Masukkan Nama Anda : ‘);readln(nama);

write(‘Masukkan Golongan Anda : ‘);readln(gol);

if(gol=’1’)then

begin

gk:=3000000; {bisa diubah sesuai selera}

tj:=0.3*gk; {bisa diubah sesuai selera}

ppn:=0.1*gk; {bisa diubah sesuai selera juga lho...!}

gb:=gk-ppn+tj;

end

else

if(gol=’2’) then

begin

gk:=2500000;

tj:=0.2*gk;

ppn:=0.1*gk;

gb:=gk-ppn+tj;

end

else

writeln(‘Gaji Kotor Anda : ‘,gk:8:2);

writeln(‘Tunjangan Anda : ‘,tj:8:2);

writeln(‘Pajak Anda : ‘,ppn:8:2);

writeln(‘Gaji Bersih Anda : ‘,gb:8:2);

readkey;

End.

Ya kira-kira seperti itu lah gan badan bahasa programnya.... di coba ya..!!

O iya jangan lupa tinggalin comment kalian ya....!!! :)

See you di kesempatan yang lain ya...!!! :)

Wassalam...!!