Program Menghitung Tunjangan Karyawan Pascal

Program Menghitung Tunjangan Karyawan Pascal - Tunjangan Karyawan menggunakan kompiler Dev-Pascal, berikut ini Source Code Program yang bisa langsung diterapkan ke dalam kompiler Dev-Pascal.

uses crt;

var

jumlahanak,usia,tunjangan:integer;

begin

clrscr;

writeln('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=');

writeln('*Menghitung Tunjangan Karyawan*');

writeln('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=');

write('Masukan Jumlah Anak = ');readln(jumlahanak);

write('Masukan Usia Anda   = ');readln(usia);

if (jumlahanak>3) then

begin

 if (usia<=30) then

  tunjangan:=400

 else

  tunjangan:=500;

end else if (jumlahanak<=3) then

begin

 if (usia<=30) then

  tunjangan:=350

 else

  tunjangan:=425;

end;

writeln('-------------------------------');

writeln('Tunjangan anda adalah = ',tunjangan);

readln;

end.

Berikut hasil output Program Tunjangan Karyawan yang dihasilkan.

Sekian program tentang Program Menghitung Tunjangan Karyawan Pascal, semoga bermanfaat.