LOGIKA DAN PEMROGRAMAN (TUGAS 5)

PROGRAM MENENTUKAN TUNJANGAN

 FLOWCHART

CODING 

program Tugas_pascal_5;

uses crt;

var
      
nama:string ;

    status : integer;

    JumlahAnak : integer;
       tunjanganistri : real;

    GajiKotor : real;

    Tunjangan: real;

    Tunjangananak : real ;

    totalgaji : real;

begin

 clrscr;

    writeln('MENGHITUNG TUNJANGAN');

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

    write('Nama pegawai :');
 readln(nama);

    write('Gaji  : Rp.');
 readln(GajiKotor);  

    writeln('Status : 1. Kawin ');

    writeln('2. Belum kawin':23);

    write('masukan pilihan :');
 readln(status);

    if status = 1 then

    begin

        tunjanganistri:=0.15*gajikotor;

        write('Jumlah Anak :');
 readln(JumlahAnak);  

        if JumlahAnak>=2 then
 
            Tunjangan:=0.1*GajiKotor
        else
 
            tunjangan:=0.5*gajikotor;
    end
   
else
    if status = 2 then

    begin

        writeln('Selamat anda tidak mendapat tunjangan');

        writeln('besar gaji anda :',gajikotor:0:0);

    end;

    totalgaji:=tunjangan+tunjanganistri+gajikotor;

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

    writeln('Nama pegawai : ',nama);

    writeln('Besar Tunjangan anak : Rp.',Tunjangan:2:2);  

    writeln('Besar Tunjangan istri : Rp. ',tunjanganistri:2:2);

    writeln('total gaji : Rp.',totalgaji:2:2);

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

    readln;

end.