Dumay Community


Komunitas Progaming, Software, Perbaikan Komputer, Gaming, Musik, dll
 
IndeksCalendarFAQPencarianAnggotaGroupPendaftaranLogin
Like Page
Tinggalkan Jempol Kalian di Forum INI


Login
Username:
Password:
Login otomatis: 
:: Lupa password?
User Yang Sedang Online
Total 1 user online :: 0 Terdaftar, 0 Tersembunyi dan 1 Tamu

Tidak ada

User online terbanyak adalah 10 pada Fri Aug 26, 2016 7:04 pm
Clock
Top posters
Admin
 
buginese
 
harex
 
suliswanto
 
Prisa
 
alijenggot
 
XXX
 
joecow
 
safana
 
ilmu komputer
 
Latest topics
» Kenalan Yuk Semua...
Wed Apr 30, 2014 10:33 am by Bagus Rio Dwi Mayvando

» Aplikasi Program TU Sekolah
Mon Apr 07, 2014 9:35 am by Admin

» ESET NOD32 Antivirus 5 Full Crak
Mon Apr 07, 2014 7:55 am by Admin

» Cara Install Anti Virus NOD32 Full Crak
Mon Apr 07, 2014 12:07 am by Admin

» Menampilkan File Flasdisk yang Terhiden
Sun Apr 06, 2014 8:53 pm by Admin

» bahasa pemprogaman Pascal
Thu Dec 19, 2013 11:13 pm by julpiyanur

» bahasa pemprogaman Pascal
Thu Dec 19, 2013 11:08 pm by julpiyanur

» bahasa pemprogaman Pascal
Thu Dec 19, 2013 11:06 pm by julpiyanur

» Membuat Folder Lock Sederhana
Sat Jun 22, 2013 10:12 am by DK.pujangga

My Banner
Kolom blog tutorial
Tukeran link yuuk..
Silahkan copas code dibawah ini,,



Share | 
 

 Contoh Program Pascal If Perhitungan Gaji

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Admin
Admin
Admin
avatar

Posts : 179
Join date : 01.04.09
Age : 29
Location : Bumiku tercinta

PostSubyek: Contoh Program Pascal If Perhitungan Gaji   Fri Apr 24, 2009 10:14 am

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:

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://dumay.forum.st
 
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
Dumay Community :: FORUM TEKNIK INFORMATIKA :: Forum Membahas Semua Jenis Programming :: Forum Membahas Algoritma, pemograman terstruktur dan Pascal-
Navigasi: