Komunitas Progaming, Software, Perbaikan Komputer, Gaming, Musik, dll
 
IndeksCalendarFAQPencarianAnggotaGroupPendaftaranLogin
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
Wed Apr 23, 2014 12:33 pm by Admin

» Cara mengedit profil Account
Thu Apr 17, 2014 9:02 am by Admin

» Cara Registrasi Member
Thu Apr 17, 2014 8:01 am by Admin

» Cara membuat Playlist Musik Website dan Blog
Wed Apr 16, 2014 5:21 am by Admin

» Di Butuhkan New Moderator
Tue Apr 15, 2014 11:40 am by Admin

» Memperbaiki Print cannon IP1880 Series
Tue Apr 15, 2014 11:18 am by Admin

» Curhat lepi & kompi disni
Tue Apr 15, 2014 10:05 am by alijenggot

» Program remote destop menggunakan TightVNC
Tue Apr 15, 2014 10:00 am by alijenggot

» Kumpulan Program Teksnisi Komputer
Tue Apr 15, 2014 9:45 am by alijenggot

Keywords

Share | 
 

 Contoh Program Pascal If Perhitungan Gaji

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Admin
Admin
Admin
avatar

Posts : 47
Join date : 08.04.14
Age : 29

PostSubyek: Contoh Program Pascal If Perhitungan Gaji   Sat 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.

_________________


Sesuatu Akan Terasa Sangat Berharga, Apabila Sesuatu Itu Telah Pergi Dari Hidup Kita. Kesempurnaan Hanya Milik ALLAH Semata


Kembali Ke Atas Go down
Lihat profil user http://dkcode.indonesianforum.net
 
Contoh Program Pascal If Perhitungan Gaji
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1

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: