program MENGHITUNG_GAJI_KARYAWAN;
Uses crt;
Var Nama : string;
Gaji_pokok : longint;
Tunjangan,pajak,total_gaji: real;
Begin
Clrscr;
Writeln('%%%%% technologic-b.blogspot.com%%%%%');
Writeln('---------------************************---------------');
Writeln( 'MENGHITUNG GAJI KARYAWAN ');
Writeln('---------------************************---------------');
Writeln('%%%%%%%%%STEMBAYO%%%%%%%%%%%%');
Write('Nama :');Readln(Nama);
Write('Gaji_pokok :');Readln(Gaji_pokok);
Tunjangan:=0.20*gaji_pokok;
Pajak:=0.15*gaji_pokok;
Total_gaji:=Gaji_pokok+Tunjangan-Pajak;
Writeln('------------------------------------------------------');
Writeln('Tunjangan :Rp.',Tunjangan:9:2);
Writeln('Pajak :Rp.',Pajak:9:2);
Writeln('------------------------------------------------------');
Writeln('Total_gaji:Rp.',Total_gaji:9:2);
Writeln(' ');
Writeln('------------------------------------------------------');
Readln;
End. Label: tutorial
Responses
0 Respones to "Belajar Algoritma Dasar"
Posting Komentar