Belajar Buat Program (Turbo Pascal)

Sob gue mau share ni 1 program simpel hasil pascal  buat  di pelajari....  langsung aja  kta menuju soal  nya ....

Perhitungan gaji pegawai dengn ketentuan gaji pokok di hitung berdasarkan golongan seperti di bawah ini

        Gol 1 = 500.000
        Gol 2 = 600.000
        Gol 3 = 750.000
        Gol 4 = 1.000.000
        Gol 5 = 1.500.000

dan terdapat Tunjangan Keluarga 10% dari gaji pokok, Tunjangan anak 5% per anak dari gaji pokok  dan max 3anak. Buat program Hitung gaji total serta pengulangan program.....

Sebenarnya untuk lebih mudah sebaik nya kita buat Notasi algoritmik nya .... tapi eco langsung aj ni ke program nya :

Program Hitung_Gaji;
Uses crt;
Var
   NIP           : string[25];
   nama         : string[25];
   Golongan     : integer;
   status       : string[10];
   jumlah_anak  : integer;
   lagi         : string[5];
   gaji_pokok   : real;
   tunjangan_keluarga: real;
   tunjangan_anak: real;
   total_gaji: real;
Begin
     clrScr;
     writeln('Daftar_Kelengkapan:');
     writeln('=========================');

     lagi:= 'Y';
     while lagi='Y' do begin
     write('NIP           :');readln(NIP);
     write('NAMA          :');readln(nama);
     write('Golongan    :'):readln(Golongan);
     write('Status        :');readln(status);
     write('Jumlah_Anak   :');readln(jumlah_anak);
 
 

           if golongan=1 then
              gaji_pokok:=500000
             else
           if golongan=2 then
              gaji_pokok:=600000
             else
           if golongan=3 then
              gaji_pokok:=750000
             else
           if golongan=4 then
              gaji_pokok:=1000000
             else
           if golongan=5 then
              gaji_pokok:=1500000;

     if status='K' then
        tunjangan_keluarga:=gaji_pokok*0.1
        else
        tunjangan_keluarga:=0;
     if jumlah_anak>3 then
        tunjangan_anak:= gaji_pokok*0.05*3
        else
        tunjangan_anak:= gaji_pokok*0.05*jumlah_anak;
     total_gaji:= gaji_pokok+tunjangan_keluarga+tunjangan_anak;
     writeln('gaji:Rp',gaji_pokok:10:0);
     writeln('tunjangan_keluarga:Rp',tunjangan_keluarga:10:0);
     writeln('tunjangan_anak:Rp',tunjangan_anak:10:0);
     writeln('total_gaji:Rp',total_gaji:10:0);
     writeln('keluar_program');
     write('untuk_melanjutkan_tekan Y/T=');
     readln(lagi);
     end;
end.

program di atas untuk menghitung Gaji total setelah mengalami klasifikasi dan beberapa tunjangan.... ini merupakan sedikit pengalaman yang pernah aku dapat, semoga dpt membatu dan memberi sedikit gambaran buat  Sobat-sobat.

Jngn lupa Post Komet
God Bless

Download : Program Hitung-Gaji(Ms Word)
Password: ecoputra.blogspot.com

Saat Download akan di alihkan ke adf.ly tunggu 5 detik.
Mengalami masalah  saat melalui adf.ly klik disini