Infor_LatihanAlgoritma-Lufu_21-03-2024

mail@pastecode.io avatar
unknown
pascal
a month ago
1.4 kB
1
Indexable
Never
Program Gaji;
Uses Crt;

var
    {Set ketentuan variable yang digunakan}
    nama : string[20];
    devisi : string[25]; 
    status : char;
    ga_pok : real;
    jml_anak : integer;
    tunj_isteri : real;
    tunj_anak : real;
    tot_gaji : real;

begin
    ClrScr;
    {Input data dari User}
    Writeln('Nama Karyawan:');
    Readln(nama);
    Writeln('Devisi:');
    Readln(devisi);
    Writeln('Status: (M/T)');
    Readln(status);
    Writeln('Gaji Pokok:');
    Readln(ga_pok);
    Writeln('Jumlah Anak:');
    Readln(jml_anak);
    {Proses data tunjangan}
    IF status='M' THEN tunj_isteri := 0.1 * ga_pok ELSE tunj_isteri := 0;
    IF jml_anak<=3 THEN tunj_anak := 0.05 * ga_pok * jml_anak ELSE tunj_anak := 0.15 * ga_pok;

    {Proses data total gaji}
    tot_gaji := ga_pok + tunj_isteri + tunj_anak;

    {Output Data dari yang diminta sama bu hendras}
    Writeln('\n\n\n PENGGAJIAN CV. MAKMUR JAYA');
    Writeln('Nama Karyawan              : ', nama);
    Writeln('Divisi                     : ', devisi);
    Writeln('Gaji Pokok                 : ', ga_pok);
    Writeln('Status ("M"/"T")           : ', status);
    Writeln('Jumlah Anak                : ', jml_anak);
    Writeln('Tunjangan Istri            : ', tunj_isteri);
    Writeln('Tunjangan Anak             : ', tunj_anak);
    Writeln('Total Gaji yang Diterima   : ', tot_gaji);
end.
Leave a Comment