Pages

Belajar Algoritma Dasar



Berikut adalah cara membuat algoritma tentang Perhitungan gaji karyawan
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.


Responses

0 Respones to "Belajar Algoritma Dasar"

Posting Komentar

 

Popular Posts

Return to top of page Copyright © 2010 | Platinum Theme Converted into Blogger Template by HackTutors