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. 

Posted by admin

Tweet