Mesran

Hanya ingin berbagi kebaikan dan mendapatkan kebaikan yang lain.

Penggunaan IF Majemuk

Sintax :

IF Kondisi1 THEN
Perintah1
ELSE IF Kondisi2 THEN
Perintah2
ELSE IF Kondisi3 THEN
Perintah3 ;

Aturan IF diatas :
1. Untuk menyatakan akhir dari fungsi IF, maka perintah3 wajib di beri akhiran simbol ;
2. Diatas ELSE tidak di perkenankan menggunakan ;
3. TETAP memiliki 3 Bagian seperti yang telah saya utarakan sebelumnya.

Contoh kasus
Penjualan yang terjadi akan diberikan discount bila :
Disc 10% penjualan diatas sama dengan 1 Jt dan kecil dari 3 Jt
Disc 13% penjualan diatas sama dengan 3 Jt dan kecil dari 5 Jt
Disc 15% penjualan diatas sama dengan 5 Jt
Total Pembayaran Penjualan – Disc
Jawaban :

Terdapat beberapa 3 variabel, yaitu Penjualan, Discount dan Total Pembayaran

USES CRT ;
VAR
Nama           : String[20] ;
Disc, TPemb : Real ;
Penjualan     : Longint ;

BEGIN
TextColor (1) ; TextBackGround(15) ; CLRSCR :

Writeln ( 'Data Penjualan' ) ;
Writeln ( '=============================' ) ;
Write   ( 'Nama Pembeli      : ' ) ; Readln (Nama) ;
Write   ( 'Jumlah Penjualan  : ' ) ; Readln (Penjualan) ;

IF Penjualan >= 5000000 THEN
Disc := 0.15 * Penjualan
ELSE IF Penjualan >= 3000000 and Penjualan < 5000000 THEN
Disc := 0.13 * Penjualan
ELSE IF Penjualan>=1000000 and Penjualan < 3000000 THEN
Disc := 0.10 * Penjualan
ELSE
Disc := 0 ;

TPemb := Penjualan - Disc ;

Writeln   ( 'Discount               : ', Disc:10:2 ) ;
Writeln   ( 'Total Pembayaran : ', TPemb:10:2 ) ;

End.

PENJELASAN
0. Tahapan Pemesanan Variabel

Nama           : String[20] ;
Disc, TPemb : Real ;
Penjualan     : Longint ;

1. Tahapan INPUT

Writeln ( 'Data Penjualan' ) ;
Writeln ( '=============================' ) ;
Write   ( 'Nama Pembeli      : ' ) ; Readln (Nama) ;
Write   ( 'Jumlah Penjualan  : ' ) ; Readln (Penjualan) ;

//Saya rasa bagian sudah cukup jelas

2. Tahapan PROSES

IF Penjualan>=5000000 THEN
Disc := 0.15 * Penjualan
ELSE IF Penjualan>=3000000 and Penjualan < 5000000 THEN
Disc := 0.13 * Penjualan
ELSE IF Penjualan>=1000000 and Penjualan < 3000000 THEN
Disc := 0.10 * Penjualan
ELSE
Disc := 0 ;

//Bagian ini untuk pemrosesan Discount dengan memasukkan kriteria dari pemrosesan
TPemb := Penjualan - Disc ;
//Bagian ini untuk pemrosesan Total Pembayaran

3. Tahapan OUTPUT

Writeln   ( 'Discount               : ', Disc:10:2 ) ;
Writeln   ( 'Total Pembayaran : ', TPemb:10:2 ) ;

Untuk menampilkan bilangan berjenis REAL, maka digunakan seperti Disc:10:2, itu berarti di sediakan tempat 10 Digit, 2 angka di belakang koma.

Filed under: Pemrograman Pascal,

5 Responses

  1. makasih ya pak tuk soft

    entr biar sadi cari di google

  2. siang pak ….. !!!!!!!! mohon maaf ya pak sblmnya

    sdi mau nya nih pak

    instalan connector ODBC untuk VB NET blum smpat bpak kirim ya pak……

    sdi coba tnya ama pak sony ,,,,,,kta pak sony mesti di downlod sendiri ya pak……..

Terima kasih telah memberikan komentar anda.

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Archives Per Tahun

Sponsored

C&C Online Shop

Blog Stats

  • 356,504 sejak 12 Jan 2011

User’s Online


My Music

Enter your email address to follow this blog and receive notifications of new posts by email.

Join 223 other followers

February 2011
M T W T F S S
« Jan   Mar »
 123456
78910111213
14151617181920
21222324252627
28  
%d bloggers like this: