musik mp3

Free Music Codes

basis data

DEFINISI

merupakan kumpulan dari data yang saling berhubungan satu dengan lainnya yang tersimpan di komputer dan diperlukan software untuk memanipulasi.
atau
pengorganisasian sekumpulan data yang saling terkait sehingga memudahkan aktifitas untuk memperoleh informasi.

STRUKTUR DATA DAN BASIS DATA

* karakter yaitu berupa angka,huruf,atau karakter khusus
* field yaitu menyatakan data terkecil yang memiliki makna
* record yaitu kumpulan dari sejumlah elemen data yang saling terkait
* tabel yaitu menghimpun sejumlah record
* basis data (data base)

DBMS

adalah sistim yang secara khusus dibuat untuk memudahkan pemakai dalam pengola basis data.

keuntungan penggunaan DBMS :

* independensi data
* pengaksessan yang efisien terhadap data
* keamanan dalam interitaS Data
* akses bersamaan dan pemulihan terhadap kegagalan
* waktu pengembangan aplikasi diperpendek

jenis database menurut pengaksesan
dapat dibedakan menjadi empat jenis yaitu
basis data individual,basis data perusahaan,basis data terdistribusi dan bank data publik.

MODEL DATA
ADALAH SEKUMPULAN KONSEP TERINTGRASI YANG DIPAKAI UNTUK MENJABARKAN DATA,HUBUNGAN ANTAR DATA.
terdiri dari :

1. model data hirarkhis
2. model data jaringan
3. model data retational
4. model data berbasis objek

DATA MINING

adalah perangkat lunak yang ditujukan untuk mengidenfikasi trend atau pola yang terdapat pada himpunan data yang sangat banyak dengan sedikit masukan dari pemakai.

ERP
merupakan perangkat lunak yang berfungsi untuk menangani manajemen produksi dalam perusahaan
menurut deloitte dan touche ERP sebagai paket sistem perangkat lunak bisnis yang memungkinkan perusahaan-perusahaan untuk(1)mengotomasikan dan mengintregasikan kebanyakan proses bisnis mereka,(2)berbagi data yang umum dan praktis dalam keseluruhan perusahaan,(3)menghasilkan dan mengakses informasi di dalam lingkungan waktu nyata.

Komponen DBMS
dapat terdiri dari :

1. kamus data
2. untilitas
3. pembakit laporan
4. pembakit aplikasi
5. pengatur keamanan akses
6. pemulihan sistem

SQL
Adalah bahasa yang digunakan untuk mengakses basis data yang tergolong relasional.
pernyataan SQL dapat berupa SELECT,INSERT,UPDATE,DELETE,CREATE TEBLE,DROP TABEL,GRANT,REVOKE.

•DBMS Adalah sistem yang secara khusus dibuat untuk memudahkan pemakai dalam mengelola basis data.

Keuntungan penggunaan DBMS :

•Independensi Data

Perubahan yang terjadi pada data tidak membuat program harus dirubah.

•Pengaksesan Yang Efisien terhadap Data

DBMS meyediakan teknik yang canggih sehingga penyimpanan dan pengambilan data dilakukan secara effisien

•Keamana dan Integritas Data

Data dikendalikan oleh DBMS. Sehingga data yang diinputkan yang tidak sesuai dengan definisi suatu field akan ditolak.

•Administrasi Data

Jika sejumlah pemakai berbagi data (administrasi data terpusat) maka duplikasi/redudansi data dapat diminimalkan.

•Akses Bersamaan dan Pemulihan terhadap Kegagalan

DBMS meyediakan mekanisme data yang sama dapat diakses oleh sejumlah orang dalam waktu yang sama

Jika terjadi kegagalan maka DBMS akan mengembalikan data seperti semula.

•Waktu Pengembangan Aplikasi Diperpendek.

Adanya fasilitas dalam DBMS yang memudahkan dalam membuat aplikasi.


Jenis Database Menurut Pengaksesan yaitu :



•Basis Data Individual,

Basis data yang digunakan oleh perseorangan.(mengelola basis data untuk keperluan pribadi) dirancang oleh pribadi.

•Basis Data Perusahaan,

Basis data yang dapat diakses oleh sejumlah karyawan dalam sebuah perusahaan dalam sebuah lokasi.

Database ditempatkan pada computer server

•Basis Data Terdistribusi

Basis data yang disimpan pada sejumlah computer yang terletak pada beberapa lokasi.

Contoh : transaksi BANK online.

•Bank Data Publik.

Basis data yang dapat di akses oleh pubik.

Contoh : database yahoo.com




•Basis Data Perusahaan, Basis Data Terdistribusi dan Bank Data Publik. Dirancang oleh Database Administrator (DBA) dan dikelola oleh Data Administrator(DA).



Model Data / Struktur data logis.

1. Model Data Hirarkhis

•Model ini dijabarkan dalam bentuk pohon yang terbalik, dalam model ini dikenal istilah orang tua /parent dan anak/child

•Setiap simpul tadi terdapat hubungan bahwa setiap anak anak hanya bisa memiliki satu orang tua dan orang tua dapat memiliki sejumlah anak.

•Simpul teratas yang tidak memiliki orangtua disebut akar



2. Model Data Jaringan

•Model data ini dibuat untuk mengatasi masalah pada model hirarkis. Bentuknya mnyerupau hirarki tetapi perbedaannya :

•tidak mengenal akar

•Setiap anak bisa memiliki lebih dari satu orang tua.

3. Model Data Relational

•Model data relasional menggunakan sekumpulan tabel berdimensi dua (disebut relasi/tabel). Dan masing-masing tabel tersusun atas baris dan kolom.

•Kolom è datuan data terkecil dalam sebuah tabel yang mempunyai makna

•Baris è kumpulan kolom yang menyatakan suatu data yang saling terkait.

•Dalam model data relational hubungan antara 2 tabel disebut relationship.

•Relaltionship : 1 ke1 dan 1 ke M

•1 ke 1 à satu data pada tabel berpasangan dengan satu data pada tabel lain.

Contoh : tabel Pegawai dengan tabel Jabatan

•1 pegawai memiliki 1 jabatan

•1 ke M à satu data pada tabel berpasangan dengan banyak data pada tabel lainnya

Contoh : tabel Jurusan dan Mahasiswa

•1 jurusan di isi banyak Mahasiwa

4. Model Data Berbasis Objek.

•à model data yang menerapkan teknik pemrograman berorientasi objek.

•Model ini mengemas data dan fungsi untuk mengakses data/metode kedalam bentuk objek.

DATA MINING

•Data mining adalah serangkaian proses untuk menggali nilai tambah dari suatu kumpulan data berupa pengetahuan yang selama ini tidak diketahui secara manual

•Makna mining sendiri berarti usaha untuk mendapatkan sedikit barang berharga dari sejumlah besar material dasar.

•beberapa faktor yang mendefinisikan data mining:

•data mining adalah proses otomatis terhadap data yang dikumpulkan di masa lalu.

•objek dari data mining adalah data yang berjumlah besar atau kompleks

•tujuan dari data mining adalah menemukan hubungan-hubungan atau pola-pola yang mungkin memberikan indikasi yang bermanfaat

•Data mining adalah perangkat lunak yang ditujukan untuk mengidentifikasi tren (kecenderungan) atau pola yang terdapat pada himpunan data yang sangat banyak dengan sedikit masukan dari pemakai

ERP

•ERP(Enterprise Resource Planning) System adalah sistem informasi yang diperuntukkan bagi perusahan manufaktur maupun jasa yang berperan mengintegrasikan dan mengotomasikan proses bisnis yang berhubungan dengan aspek operasi, poduksi maupun distribusi di perusahaan bersangkutan

Data warehouse

•Data warehouse adalah suatu basis data. Rentang waktu data yaitu 5 sampai 10 tahun, data warehouse menampung data sejarah yang cukup panjang.

•Sumber data bagi data warehouse adalah data internal dan data eksternal yang berasal dari sumber-sumber di luar perusahaan. Ukurannya berkisar antara giga dan terabyte

Data mart

•Data mart : adalah data warehouse yang mendukung kebutuhan pada tingkat departemean atau fungsi bisnis tertentu dalam perusahaan.

•Data mart : memfokuskan pada kebutuhan-kebutuhan pemakai yang terkait dalam sebuah departemen atau fungsi bisnis

Olap (online analytical processing)

•Olap adalah jenis perangkat lunak yang digunakan untuk melakukan permintaan terhadap data dalam bentuk yang kompleksdan bersifat sementara serta sewaktu-waktu

•Olap memanipulasi dan menganalisa data bervolume besar dari berbagai perspektif (multidimensi)

Teknik olap

•Konsolidasi : melibatkan pengelompokan data.

•Drill-down : kebalikan konsolidasi, memungkinkan data yang ringkas dijabarkan menjadi data yang lebih detail.

•Slicing and dicing : menjabarkan pada kemampuan untuk melihat data dari berbagai sudut pandang. Data dapat diiris-iris berdasarkan kebutuhan.

Komponen DBMS Dapat terdiri dari

1. Kamus Data

•Digunakan untuk menyimpan deskripsi data yang digunakan dalam basis data.

•Setiap element data memiliki tipe dan ukuran.

•Kamus data juga berisi ketentuan yang mengatur nilai yang dimasukan kedalam field/kolom.

2. Utilitas

•Digunakan untuk memudahkan pemakai dalam menciptakan basis data dan tabel serta dalam memanipulasi data.

•Contoh dalam MS Access.

3. Pembangkit Laporan

•Pembangkit laporan adalah fasilitas yang disediakan kepadqa pemakai untuk membuat laporan dengan mudah.

4. Pembangkit Aplikasi

•Fasilitas yang digunakan untuk membuat tampilan yang digunakan oleh pemakaiyang akan menggunakan aplikasi basis data. (formulir).

5. Pengatur Keamanan Akses

•Digunakan untuk mengatur hak akses pemakai

6. Pemulihan Sistem

•Digunakan untuk mengembalikan data semula ke basis data sekiranya terjadi kegagalan system.

Teknik yang digunakan :

•mirroring : teknik penyimpanan data pada 2 penyimpanan eksternal yang berbeda.

•Reprocessing : metode yang melakukan pemrosesan dimulai dari suatu titik di masa lalu / check point. Sebelum kegagalan system terjadi.

•Rollback : Teknik untuk mengembalikan ke keadaan sebelum transaksi yang diproses mengalami kegagalan.

SQL (Structured Query Language)

•Bahasa yang digunakan untuk mengakses basidata yang tergolong relasional.

•Bahasa SQL tidak hanya tidak hanya digunakan untuk proses query (mengambil data) tetapi juga bisa digunakan untuk menciptakan tabel, menghapus tabel dsb.

SELECT à untuk mengambil data

INSERT à untuk menambahkan data

UPDATE à untuk merubah data

DELETE à untuk menghapus data

CREATE TABLE à untuk menciptakan tabel.

DROP TABLE à untuk menghapus tabel

GRANT à untuk mengatur wewenang pemakai

REVOKE à untuk mencabut hak pemakai

 
D-CD-Lyla-MantanKekasihku-StafaBand
       .info.mp3
D-CD-Lyla-MantanKekasihku-Staf
aBand
2009-01-01
1.60 MB

Play

Download

Syair

http://sites.google.com/site/qoidar/
http://qoidar.blogspot.com
http://qoidar-bsw.blogspot.com

qoidar
Bsw
BaSu
Syamar
wasu
LOVE
Syair
pedrosa
niki hayden
Honda
asmirandah
Yoha
Alooooooooowhaaaaaa

persahabatan

Graphics & Myspace layouts

Awesome MySpace Comments & Myspace Layouts

Awesome MySpace Comments & Myspace Layouts

MySpace Graphics & Free Myspace Layouts

kucoba tepis semua rinduku

kucoba hapus semua khayalku

berharap semua cepat berlalu

khayalku tu miliki dirimu

lupakanmu… jauh

tinggalkanmu dari hidupku

bangunkanku dari mimpiku

yakinkan semua ini hanya khayalku

jauh ……….

tinggalkan mu dari hidupku

bangunkanku dari mimpiku

yakinkan semua ini hanya khayalku

download mp3

Buat Website Part 1 by Padro Widjaja Www.RahasiaScript.com - Watch more amazing videos here

gure B-3 Structure of Example Pascal Program
Structure of Example Pascal Program

$uslinit$
$standard_level 'HP3000'; tables on; code_offsets on; xref on$
$global 'SPL'$
$PAGE$

program credit(input,output);

{ Date written: August, 1987.}
{ Date compiled: August, 1987.}

const
ACCEPT_CODE = '3';
DATA_COMPLETE = 1;
FULL_RECORD = 80;
LENGTH_REMOTE_TPNAME = 4;
NO_SW = false;
YES_SW = true;
ON = 2;
CONVSYNCLEVEL = 0;
SEND = 4;
SOC_SEC_ERROR_CD = 1;
SYSTEM_ERROR_CD = 3;
TRANSLATE_TO_ASCII = 1;
TRANSLATE_TO_EBCDIC = 2;
TRANSLENGTH = 30;
YES = ['y', 'Y'];

AllocateErrMsg = text ['Allocate Error '];
CTranslateErrMsg = text ['CTranslate Error '];
DeallocateErrMsg = text ['Deallocate Error '];
EndedErrMsg = text ['TP Ended Error '];
RcvAndWaitErrMsg = text ['RcvAndWait Error '];
SendDataErrMsg = text ['Send Data Error '];
StartedErrMsg = text ['TP Started Error '];
WhatReceivedErrMsg = text ['What Received Error '];

type
shortint = -32768..32767;
pac4type = packed array [1..4] of char;
nametype = packed array [1..10] of char;
errmsgtype = packed array [1..20] of char;
ssnumtype = packed array [1..9] of char;
balancetype = packed array [1..6] of char;

MasterDataType = record
case shortint of
0: (SocSecMaster : ssnumtype;
LastNameMaster : nametype;
FirstNameMaster : nametype;
MINameMaster : char;
CoCodeMaster1 : char;
BalanceMaster1 : balancetype;
CoCodeMaster2 : char;
BalanceMaster2 : balancetype;
CoCodeMaster3 : char;
BalanceMaster3 : balancetype;
CoCodeMaster4 : char;
BalanceMaster4 : balancetype;
CoCodeMaster5 : char;
BalanceMaster5 : balancetype;
Filler : packed array [1..14] of char;
RiskCodeMaster : char);
1: (ErrorCode : pac4type;
ErrorFiller : packed array [1..76] of char);
end;

short_text = packed array [1..8] of char;
text = packed array [1..20] of char;
TPNameType = packed array [1..LENGTH_REMOTE_TPNAME] of char;

TransDataType = record
SocSecTrans : ssnumtype;
LastNameTrans : nametype;
FirstNameTrans: nametype;
MINameTrans : char;
end;
hpe_status = record
case integer of
0 : (all : integer);
1 : (info : shortint;
subsys : shortint);
end;

var
LocalTPName,
SessionType : short_text;
RemoteTPNameASCII : TPNameType;
ResourceID,
TPID,
TraceOn,
ReceiveLength,
WhatReceived,
DeallocateType : shortint;
TransData : TransDataType;
Ready : char;
Quit_SW : boolean;

procedure TPStarted; intrinsic;
procedure TPEnded; intrinsic;
procedure MCAllocate; intrinsic;
procedure MCDeallocate; intrinsic;
procedure MCSendData; intrinsic;
procedure MCRcvAndWait; intrinsic;
procedure CTranslate; intrinsic;
function bin $alias 'binary'$ : shortint; intrinsic;
$PAGE$

{************************************************************
ErrorHandler
This procedure returns the error message associated
with a status info value.
************************************************************}

procedure ErrorHandler (IntrinsicMsg : text;
Status : shortint;
var Quit_SW : boolean);

begin
Quit_SW := YES_SW;
writeln (IntrinsicMsg, Status:3);
end;

$PAGE$

{************************************************************
GetFullScreenData
This procedure prompts the user for data and receives
the data from the terminal. ************************************************************}

procedure GetFullScreenData (var TransData : TransDataType);

begin
with TransData do
begin
SocSecTrans := ' ';
LastNameTrans := ' ';
FirstNameTrans := ' ';
MINameTrans := ' ';

writeln ('Credit Risk Check.');
writeln;

writeln ('Social Security Number:');
readln (SocSecTrans);

writeln ('Last Name:');
readln (LastNameTrans);

writeln ('First Name:');
readln (FirstNameTrans);

writeln ('Middle Initial:');
readln (MINameTrans);

end;
end;

$PAGE$

{************************************************************
BeginHouseKeeping
This procedure calls TPStarted to initialize resources
for the local TP, and then it calls MCAllocate to
allocate a conversation with the remote TP. ************************************************************}

procedure BeginHouseKeeping (LocalTPName : short_text;
RemoteTPNameASCII : TPNameType;
SessionType : short_text;
var TPID, ResourceID : shortint;
TraceOn : shortint;
var Quit_SW : boolean);

var
IntrinsicStatus : hpe_status;
RemoteTPNameEBCDIC : TPNameType;

begin
Quit_SW := NO_SW;

TPStarted (LocalTPName, TPID, IntrinsicStatus, TraceOn);

if IntrinsicStatus.all <<>> 0 then
ErrorHandler (StartedErrMsg, IntrinsicStatus.info, Quit_SW)

else
begin
CTranslate (TRANSLATE_TO_EBCDIC, RemoteTPNameASCII,
RemoteTPNameEBCDIC, LENGTH_REMOTE_TP_NAME);

if CCode = 1 then
begin
Quit_SW := YES_SW;
writeln (CTranslateErrMsg, 'CCL - Remote TP Name not translated.');
end

else
begin
MCAllocate (TPID, SessionType, RemoteTPNameEBCDIC,
LENGTH_REMOTE_TP_NAME, ResourceID, IntrinsicStatus);

if IntrinsicStatus.all <<>> 0 then
ErrorHandler (AllocateErrMsg, IntrinsicStatus.info, Quit_SW);

end;
end;
end;

$PAGE$

{************************************************************
SendData
This procedure translates the data received from the
user's screen into EBCDIC and sends it to the remote TP. ************************************************************}

procedure SendData (ResourceID : shortint;
TransData : TransDataType;
var Quit_SW : boolean);

var
IntrinsicStatus : hpe_status;
ReqToSendRec : shortint;

begin
CTranslate (TRANSLATE_TO_EBCDIC, TransData, TransData, TRANSLENGTH);

if CCode = 1 then
begin
Quit_SW := YES_SW;
writeln (CTranslateErrMsg, 'CCL - TransData not translated.');
end

else
begin
MCSendData (ResourceID, TransData, TRANSLENGTH,
ReqToSendRec, IntrinsicStatus);

if IntrinsicStatus.all <<>> 0 then
ErrorHandler (SendDataErrMsg, IntrinsicStatus.info, Quit_SW);
end;
end;

$PAGE$

{************************************************************
QuitScreen
This procedure asks the user if he or she is ready to
quit. If the user responds 'Y', this procedure changes
Quit_SW to YES_SW. ************************************************************}

procedure QuitScreen (var Quit_SW : boolean);

begin
writeln ('Ready to quit (Y/N)?');
readln (Ready);

if Ready in YES then
Quit_SW := YES_SW;
end;

$PAGE$

{************************************************************
DisplayAcceptance
This procedure evaluates the Risk Code received from the
remote TP to determine whether to approve or deny credit,
and then it writes a message to the user's terminal. ************************************************************}

procedure DisplayAcceptance (RiskCode : shortint;
var Quit_SW : boolean);

begin
if ord(RiskCode) << ord(ACCEPT_CODE) then
writeln ('Credit Denied.')

else
writeln ('Credit Approved.');

QuitScreen (Quit_SW);
end;

$PAGE$

{************************************************************
DisplayErrorMessage
This procedure evaluates the errorcode returned by the
remote TP and writes an error message to the user's
terminal. The remote TP can return any of 3 error codes:
001 - The SS# is not in the database.
002 - The SS# is in the database, but the name does
not match the name sent by the HP 3000.
003 - Miscellaneous system errors.
Error codes 001 and 002 cause this procedure to call
QuitScreen. Error code 003 causes this procedure to
set Quit_SW to YES_SW. ************************************************************}

procedure DisplayErrorMessage (ErrorCode : shortint;
var Quit_SW : boolean);

begin
if ErrorCode = SYSTEM_ERROR_CD then
begin
writeln (errorcode:4);
Quit_SW := YES_SW;
end

else
begin
if ErrorCode = SOCSEC_ERROR_CD then
writeln ('SS# not on file - Credit Denied.')
else
writeln ('Invalid Name');
QuitScreen (Quit_SW);
end;
end;

$PAGE$

{************************************************************
ReceiveData
This procedure calls MCRcvAndWait twice: once to
receive a data record from the remote TP and once to
receive the instruction to change to Send state. If
this procedure receives a complete data record, it
calls CTranslate to translate it to ASCII. ************************************************************}

procedure ReceiveData (ResourceID : shortint;
var Quit_SW : boolean);

var
IntrinsicStatus : hpe_status;
MasterData : MasterDataType;
ReqToSendRec : shortint;

begin
ReceiveLength := FULL_RECORD;

MCRcvAndWait (ResourceID, ReceiveLength, ReqToSendRec, MasterData,
WhatReceived, IntrinsicStatus);

if IntrinsicStatus.all <<>> 0 then
ErrorHandler (RcvAndWaitErrMsg, IntrinsicStatus.info, Quit_SW)

else
begin
if WhatReceived <<>> DATA_COMPLETE then
ErrorHandler (WhatReceivedErrMsg, WhatReceived, Quit_SW)

else
begin
MCRcvAndWait (ResourceID, ReceiveLength, ReqToSendRec,
MasterData, WhatReceived, IntrinsicStatus);

if IntrinsicStatus.all <<>> 0 then
ErrorHandler (RcvAndWaitErrMsg, IntrinsicStatus.info, Quit_SW)

else
begin
if WhatReceived <<>> SEND then
ErrorHandler (WhatReceivedErrMsg, WhatReceived,
Quit_SW)

else
begin
CTranslate (TRANSLATE_TO_ASCII, MasterData, MasterData,
ReceiveLength);

if CCode = 1 then
begin
Quit_SW := YES_SW;
writeln (CTranslateErrMsg,
'CCL - MasterData not translated.');
end;

if not Quit_SW then
begin
if ReceiveLength = FULL_RECORD then
DisplayAcceptance (MasterData.RiskCodeMaster,
Quit_SW)

else
DisplayErrorMessage (bin(MasterData.ErrorCode, 4),
Quit_SW);
end
end
end
end
end
end;

$PAGE$

{************************************************************
ProcessRecords
This procedure calls GetFullScreenData, SendData, and
ReceiveData.
************************************************************}

procedure ProcessRecords (ResourceID : shortint;
var Quit_SW : boolean);

begin
GetFullScreenData (TransData);
SendData (ResourceID, TransData, Quit_SW);

if not Quit_SW then
ReceiveData (ResourceID, Quit_SW);
end;

$PAGE$

{************************************************************
EndHousekeeping
This procedure deallocates the conversation and calls
TPEnded to free the resources used by the local TP.
************************************************************}

procedure EndHousekeeping (ResourceID, TPID : shortint);

var
IntrinsicStatus : hpe_status;

begin
MCDeallocate (ResourceID, DeallocateType, IntrinsicStatus);

if IntrinsicStatus.all <<>> 0 then
ErrorHandler (DeallocateErrMsg, IntrinsicStatus.info, Quit_SW)

else
begin
TPEnded (TPID, IntrinsicStatus);

if IntrinsicStatus.all <<>> 0 then
ErrorHandler (EndedErrMsg, IntrinsicStatus.info, Quit_SW)
end;
end;

$PAGE$

{************************************************************
Main Program
************************************************************}

begin
LocalTPName := 'USERTP ';
RemoteTPNameASCII := 'Z027';
Traceon := ON;
SessionType := 'APISESS ';
DeallocateType := CONVSYNCLEVEL;

BeginHousekeeping (LocalTPName, RemoteTPNameASCII, SessionType,
TPID, ResourceID, Traceon, Quit_SW);

While not Quit_SW do
ProcessRecords (ResourceID, Quit_SW);

EndHousekeeping (ResourceID, TPID, DeallocateType);

end.

javascript:void(0)

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.

Friendster Comment / Friendster Layout / Myspace Comments

Friendster Comment / Friendster Layout / Myspace Comments

Friendster Comment / Friendster Layout / Myspace Comments

Friendster Comments / Myspace Layouts / Friendster Comment