Komunitas Progaming, Software, Perbaikan Komputer, Gaming, Musik, dll
 
IndeksLatest imagesPencarianPendaftaranLogin
Like Page
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
Musik
Blog Sahabat
»alijenggot

»Tips dan Trik Lengkap
Latest topics
» Contoh Program Aplikasi Sistem Informasi Absen Siswa
Contoh Program Pascal If Perhitungan Gaji EmptyWed Apr 23, 2014 12:33 pm by Admin

» Cara mengedit profil Account
Contoh Program Pascal If Perhitungan Gaji EmptyThu Apr 17, 2014 9:02 am by Admin

» Cara Registrasi Member
Contoh Program Pascal If Perhitungan Gaji EmptyThu Apr 17, 2014 8:01 am by Admin

» Cara membuat Playlist Musik Website dan Blog
Contoh Program Pascal If Perhitungan Gaji EmptyWed Apr 16, 2014 5:21 am by Admin

» Di Butuhkan New Moderator
Contoh Program Pascal If Perhitungan Gaji EmptyTue Apr 15, 2014 11:40 am by Admin

» Memperbaiki Print cannon IP1880 Series
Contoh Program Pascal If Perhitungan Gaji EmptyTue Apr 15, 2014 11:18 am by Admin

» Curhat lepi & kompi disni
Contoh Program Pascal If Perhitungan Gaji EmptyTue Apr 15, 2014 10:05 am by alijenggot

» Program remote destop menggunakan TightVNC
Contoh Program Pascal If Perhitungan Gaji EmptyTue Apr 15, 2014 10:00 am by alijenggot

» Kumpulan Program Teksnisi Komputer
Contoh Program Pascal If Perhitungan Gaji EmptyTue Apr 15, 2014 9:45 am by alijenggot

Keywords

 

 Contoh Program Pascal If Perhitungan Gaji

Go down 
PengirimMessage
Admin
Admin
Admin
Admin


Posts : 47
Join date : 08.04.14
Age : 35

Contoh Program Pascal If Perhitungan Gaji Empty
PostSubyek: Contoh Program Pascal If Perhitungan Gaji   Contoh Program Pascal If Perhitungan Gaji EmptySat Apr 12, 2014 9:58 pm

Contoh Penghitungan Gaji

Ketentuan Soal :
1. Nama Di input
2. Jabatan di input ,
Jabatan Gaji Tunjangan
Direktur 3000000 10 % dari gaji
Manager 2000000 5% dari gaji
Karyawan 1000000 2% dari gaji
OB 800000 1% dari gaji

3. Dikenakan PPN 10 % dari gaji
4. Gaji Bersih didapat dari : gaji + tunjangan – PPn

Jawabannya:


Code:
Uses crt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,gajibersih:real;
Begin
Clrscr;
Write(‘Nama Karyawan    : ‘); readln(nama);
Write(‘Masukkan Jabatan  : ‘); readln(jabatan);
If  (jabatan=’Direktur’) or (jabatan=’direktur’) then
    Begin
 Gaji:=3000000;
 Tunj:=0.1* gaji;
    End
Else If  (jabatan=’Manager’) or (jabatan=’manager’) then
    Begin
 Gaji:=2000000;
 Tunj:=0.05* gaji;
    End
Else If  (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
    Begin
 Gaji:=1000000;
 Tunj:=0.1* gaji;
    End
Else
    Begin
 Gaji:=800000;
 Tunj:=0.1* gaji;
    End;
Writeln(‘Gaji Bersih      : Rp.‘,gaji);
Writeln(‘Tunjangan Jabatan      : Rp.‘,tunj:9:2);
Ppn:=0.1*gaji;
Writeln(‘PPN 10 %      :  Rp.‘,ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln(‘Total Gaji  :  Rp.‘,total:9:2);
Readln;
End.
Kembali Ke Atas Go down
https://dkcode.indonesianforum.net
 
Contoh Program Pascal If Perhitungan Gaji
Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Stetemen-statemen pada Turbo Pascal
» Program Bahasa Pascal (Procedure)
» Sejarah Pascal
» Array dalam PASCAL
» Pemograman Bahasa Pascal dengan If Then

Permissions in this forum:Anda tidak dapat menjawab topik
Cyber Community  :: Forum Informatika :: Forum Membahas Semua Jenis Programming :: Forum Membahas Algoritma, pemograman terstruktur dan Pascal-
Navigasi: