Page 89 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN

Penyelesaian

Algoritma Gaji_Karyawan

DEKLARASI
Nama : string
GaPok, Tunjangan, GaBer : real

DESKRIPSI
Read (Nama, GaPok)
Tunjangan  0.2 * GaPok
Pajak  0.15 * (GaPok + Tunjangan)
GaBer  GaPok + Tunjangan – Pajak
Write(nama, GaBer)

Program Mengitung_Gaji_Karyawan;
Var
Nama : string[25];
Gapok, tunjangan, gaber : real;

Begin
Write(’Masukkan Nama Karyawan : ’);Readln(nama);

Write(’Masukkan Gaji Pokok : ’); Readln (gapok);
Tunjangan := 0.2 * gapok;

Pajak := 0.15 (gapok + tunjangan);
Gaber := gapok + tunjangan – pajak;

Writeln(’Gaji Bersih : ’, gaber:7:2);
End.