Menampilkan jumlah gaji bersih karyawan menggunakan pascal

Algoritma :

Algoritma
    Hitung_gaji_bersih
Deklarasi
    Var Tunjangan, pajak, gaji pokok, gaji bersih : real;
    nama : string;
Deskripsi
    Input (nama);
    Input (gaji pokok);
    Input (tunjangan <= 20%*gaji pokok);
    Input (pajak <= 15%*gajipokok+tunjangan);

    Gaji bersih <--- gaji pokok + tunjangan - pajak;

    write (gaji bersih);

Flowchart :

 

 

 

 

 

 

 

 

 Pascal :

program Gaji_Bersih_Karyawan;
uses crt;
    Var gaji, tunja, pajak, bersih :Real;
          nama:String;
          const ptunja : Real = 0.2;
                   ppajak :Real = 0.15;
begin
    Clrscr;
        Writeln('MENGHITUNG JUMLAH GAJI BERSIH KARYAWAN');
        Writeln('=================================');
        WriteLn;
        Write('Masukan Nama Karyawan    = ');ReadLn(nama);
        Write('Masukan Gaji Pokok            = ');ReadLn(gaji);
        tunja:=ptunja*gaji;
        pajak:=ppajak*(gaji+tunja);
        bersih:=gaji+tunja-pajak;
        Writeln('Tunjangan                        = ',tunja);
        Writeln('Pajak                                = ',pajak);
        writeln('--------------------------------------------');
        Writeln('Jadi karyawan bernama ',nama, ' ' 'mendapatkan gaji bersih sebesar ', bersih);
        Writeln;
        Writeln('============================');
        Writeln('SEKIAN DAN TERIMA KASIH');
        Writeln('=================================');
        Writeln('Kunjungi www.pradanaziq .com');
    readln;
end.

 

dan hasilnya akan seperti ini, bisa diberi variasi semiajinasi kalian

Berbagi :