Rabu, 19 Desember 2012

  • Hitung THR dengan Menggunakan Pascal



    Assalamualaikum wr. wb

    Di Postingan pertama nisan ini, nisan mau share program Hitung THR dengan menggunakan Pascal. Program Compile yang nisan pakai ini adalah Free Pascal.


    Untuk Algoritmanya seperti ini :

    Untuk PEgawai yang telah bekerja lebih dari 2 Thn, maka akan mendapatkan THR 3 kali lipat dari gaji pokok. dan Pegawai yang baru bekerja kurang dari atau sama dengan 2 Thn, hanya akan mendapatkan THR 2 kali lipat dari gaji pokok.
    dan ini adalah listing programnya :

    program hitungthr;
    uses crt;
    var
    masa :integer;
    Gapok,hasil : real;
    begin
    clrscr;
    writeln (' WELCOME TO PT. OJO TAKON !!! ');
    writeln (' +++++++++++++++++++++++++ ');
    writeln (' Regards : NisanXc0de_ _ _ ');
    writeln ('=====================================================');
    writeln (' ' );
    write (' Lama anda bekerja (thn) : ' ) ; readln (masa);
    write (' Masukan Jumlah Gaji Pokok anda : Rp '); readln (gapok);
    if masa > 2
    then hasil:= gapok * 3 else
    if masa <=2
    then hasil := gapok * 2 ;
    writeln (' ++ anda mendapatkan THR dengan jumlah : ' , hasil:3:2);
    writeln (' ');
    writeln (' ====================================================');
    writeln (' Terima kasih telah menggunakan Program ini :* ' );
    readln;
    end.

    Sekian dari Nisan, semoga bermanfaat dan sampai jumpa di Postingan berikutnya.

    Wassalamualaikum Wr. Wb. 
  • 2 komentar:

    Copyright @ 2013 Nisan BL0G.