Wednesday, December 24, 2014
Novel Summer in Seoul
Summer in Seoul.
Novel -Novel karya Ilana Tan yang berjudul Summer in Seoul.Novel bertema percintaan memang selalu diminati oleh remaja. Hal inilah yang akhirnya menginspirasi seorang penulis berbakat, Ilana Tan, yang turut mengangkat tema tersebut sebagai novel pertamanya.
Sekilas namanya mirip dengan orang Asia Timur, tetapi sesungguhnya penulis adalah seorang berkebangsaan Indonesia. Berawal dari kecintaannya terhadap bahasa asing, dalam novelnya ini, Ilana Tan menyisipkan beberapa kata dalam bahasa Korea dilengkapi dengan catatan kaki yang dibuatnya dengan tujuan agar pembaca dapat memahami artinya dan ikut larut dalam suasana cerita.
Ibu kota Negeri Ginseng, Seoul, sangat cocok digunakan sebagai latar tempat dalam cerita. Gaya bahasa yang digunakan penulis sangat baik, mudah dimengerti, dan tidak bertele-tele. Pemaparan satu kejadian sangat detil namun tidak membuat pembaca merasa bosan karena penulis menggunakan diksi yang tepat untuk menjabarkannya. Meskipun novel Summer in Seoul mengangkat tema yang sudah umum, tetapi berbeda dengan novel remaja lain, novel ini tidak menonjolkan hawa nafsu manusia dalam menjalin sebuah hubungan. Novel ini lurus, sehingga pembaca dapat lebih mengerti tentang arti cinta sejati yang sesungguhnya antara Sandy dan Jung Tae-Woo yang diceritakan dengan halus dan manis oleh penulis. Sikap romantis Jung Tae-Woo yang merayakan ulang tahun Sandy dengan memberinya bunga mawar, menyalakan kembang api, dan menyanyikan sebuah lagu sangat kental dengan nuansa drama Korea. Sebut saja Full House yang mengangkat tema serupa dan banyak menyedot perhatian para penggemar drama Korea, Summer in Seoul juga fantastis.
Kisah dimulai saat Sandy alias Han Soon-Hee, gadis blasteran Indonesia-Korea yang sedang berbelanja di sebuah toko, mendapati ponselnya tertukar dengan salah seorang pengunjung. Sandy segera mengembalikan ponsel itu dan menyadari bahwa ponselnya tertukar dengan Jung Tae-Woo, seorang penyanyi muda terkenal Seoul yang muncul kembali setelah empat tahun menghindari dunia showbiz. Setelah insiden itu, mereka terus berhubungan karena Tae-Woo yang tengah digosipkan gaymenyusun rencana bersama managernya, Park Hyun-Shik, untuk berfoto bersama Sandy sebagai kekasih rahasianya. Tanpa ragu, Sandy menyetujuinya asalkan wajahnya tidak terlihat. Hari-hari musim panas sebagai “kekasih” Jung Tae-Woo dimulai. Hubungan keduanya semakin erat terutama saat apartemen Sandy terbakar. Jung Tae-Woo menyelamatkannya dan meminta Sandy untuk tinggal di rumahnya sampai Sandy mendapatkan apartemen baru. Sementara itu, wartawan terus mencari berita tentang hubungan Tae-Woo dengan Sandy. Akhirnya diketahui bahwa Sandy adalah adik dari seorang penggemar Tae-Woo yang meninggal empat tahun lalu pada saat jumpa penggemar. Media menyebutkan bahwa Sandy hanya ingin membalas dendam terhadap Jung Tae-Woo sementara Jung Tae-Woo hanya ingin meminta maaf kepada Sandy atas insiden itu. Situasi semakin rumit ketika salah satu dari mereka mengalami kecelakaan lalu lintas dan tidak sadarkan diri.
Secara keseluruhan, novel ini sangat baik, namun tahapan penyelesaian konflik tidak diceritakan secara rinci. Selain itu, suasana kehidupan di Korea Selatan kurang terasa. Berbeda dengan novel ketiga seri musim lainnya karya Ilana Tan yang berjudul Winter in Tokyo. Dalam novel ini, latar tempat di Tokyo sangat terasa karena penulis menggunakan beberapa tempat terkenal sebagai latar dalam cerita, seperti persimpangan Shibuya dan Kyoto.
Download:
Tuesday, December 23, 2014
Download Sword Art Online 2 Sub Indo
Download Sword Art Online Season II Asli Mudah,Cepat Tinggal Klik Download
Episode Sword Art Online II 01 Subtitle Indonesia ini bercerita tentang kembali bertemunya Kirito dengan Asuna setelah mendapatkan kedamaian SAO dan ALO. Dan akhirnya Kirito terseret lagi ke dalam game yang lebih dari SAO dan ALO, yaito GGO Gun Gale Online - See more at: http://www.samehadaku.net/2014/07/sword-art-online-ii-episode-01-subtitle-indonesia.html#sthash.kXnRgl6g.dpuf
Episode 1 Download
Episode 2 Download
Episode 3 Download
Episode 4 Download
Episode 5 Download
Episode 6 Download
Episode 7 Download
Episode 8 Download
Episode 9 Download
Episode10 Download
Episode11 Download
Episode12 Download
Episode13 Download
Episode14 Download
Episode14.5 Download
Episode 15 Download
Episode 16 Download
Episode 17 Download
Episode 18 Download
Sword Art Online II Episode 12 Subtitle Indonesia rilis 21 September 2014 - See more at: http://www.samehadaku.net/2014/09/sword-art-online-ii-episode-11-subtitle-indonesia.html#sthash.nd4ge1ZJ.dpuf
Sword Art Online II Episode 12 Subtitle Indonesia rilis 21 September 2014 - See more at: http://www.samehadaku.net/2014/09/sword-art-online-ii-episode-11-subtitle-indonesia.html#sthash.nd4ge1ZJ.dpufEpisode 15
Episode 19 DownloadEpisode 20 Download
Episode 21 Download
Episode 22 Tunguu Aje Kemungkinan telat karena UAS
Suber SAMEHADAKU.NET Dan ANISUBSIA AWS SUBS
Download Sword Art Online Season 1 Sub Indo BD
Download Sword Art Online Season 1 Sub Indo BD
Alternative Titles
English: Sword Art Online
Synonyms: S.A.O, SAO
Japanese: ソードアート・オンライン
Information
Type: TV
Episodes: 25
Status: Finished Airing
Aired: Jul 8, 2012 to Dec 23, 2012
Genres: Action, Adventure, Fantasy, Game, Romance, Shounen
Sinopsis
Sword Art Online Bercerita tentang game VRMMORPG (Virtual Reality Massively Multiplayer Online Role-Playing Game) bernama Sword Art Online yang memasuki masa Open Beta. Namun ditengah permainan Kayaba Akihiko perancang sekaligus pembuat game Sword Art Online mengatakan, player tak bisa log out sebelum menyelesaikan permainan. Untuk menyelesaikan permainan mereka harus menyelesaikan dungeon 100 lantai dan mengalahkan boss di lantai terakhir. Tapi tidak semudah itu, karena mati di dalam game berarti mati di dunia nyata, yang berarti nyawa mereka tidak hanya hilang di Game, tapi juga di dunia nyata. (Reisei)
Episode 1 http://www.mediafire.com/?l2o3p5lk23jhoat
Episode 2 http://www.mediafire.com/?a6gi2knbv347abx
Episode 3 http://www.mediafire.com/?d3qjxxiw2q5bcfl
Episode 4 http://www.mediafire.com/?4em1l5oz67jsr89
Episode 5 http://www.mediafire.com/?5aj4e0vgr4r054e
Episode 6 http://www.mediafire.com/?8v6uon21nw9ab9k
Episode 7 http://www.mediafire.com/?ojjnhuudb29bz4i
Episode 8 http://www.mediafire.com/?0by1kz271fq22b5
Episode 9 http://www.mediafire.com/?v35de032yx1221r
Episode10 http://www.mediafire.com/?4al9l1jx2sa7fpv
Episode11 http://www.mediafire.com/?3hip4py9ialvldi
Episode12 http://www.mediafire.com/?b739v4ru0ze095e
Episode13 http://www.mediafire.com/?v8mqzxqub3t3s30
Episode14 http://www.mediafire.com/?cii3exqzno6zxju
Episode15 http://www.mediafire.com/?to2l1826ad1tcd6
Episode16 http://www.mediafire.com/?2412g46ex1a0hbu
Episode17 http://www.mediafire.com/?buerwfr8o38wxs8
Episode18 http://www.mediafire.com/?pih1j311hlbhzaq
Episode19 http://www.mediafire.com/?me3p040xbjry3v8
Episode20 http://www.mediafire.com/?6yg5ffdo0gt6150
Episode21 http://www.mediafire.com/?jhuni28j55mocs4
Episode22 http://www.mediafire.com/?lbd284s4e1zddgt
Episode23 http://www.mediafire.com/?bkutaq3rqtt8db9
Episode24 http://www.mediafire.com/?8qwxur44lkz5ut7
Episode25 End http://www.mediafire.com/?yilxoiu3w9w6aj5
Cara Men Download Nya Tinggal Copy Link Nya Dari http
Mohon Maaf Bila Ada Kesalahan Link Nya
Arigatou Gozaimasta
Sumber http://www.kurogaze.net/2014/03/sword-art-online-sao-episode-1-25.html
Episode 2 http://www.mediafire.com/?a6gi2knbv347abx
Episode 3 http://www.mediafire.com/?d3qjxxiw2q5bcfl
Episode 4 http://www.mediafire.com/?4em1l5oz67jsr89
Episode 5 http://www.mediafire.com/?5aj4e0vgr4r054e
Episode 6 http://www.mediafire.com/?8v6uon21nw9ab9k
Episode 7 http://www.mediafire.com/?ojjnhuudb29bz4i
Episode 8 http://www.mediafire.com/?0by1kz271fq22b5
Episode 9 http://www.mediafire.com/?v35de032yx1221r
Episode10 http://www.mediafire.com/?4al9l1jx2sa7fpv
Episode11 http://www.mediafire.com/?3hip4py9ialvldi
Episode12 http://www.mediafire.com/?b739v4ru0ze095e
Episode13 http://www.mediafire.com/?v8mqzxqub3t3s30
Episode14 http://www.mediafire.com/?cii3exqzno6zxju
Episode15 http://www.mediafire.com/?to2l1826ad1tcd6
Episode16 http://www.mediafire.com/?2412g46ex1a0hbu
Episode17 http://www.mediafire.com/?buerwfr8o38wxs8
Episode18 http://www.mediafire.com/?pih1j311hlbhzaq
Episode19 http://www.mediafire.com/?me3p040xbjry3v8
Episode20 http://www.mediafire.com/?6yg5ffdo0gt6150
Episode21 http://www.mediafire.com/?jhuni28j55mocs4
Episode22 http://www.mediafire.com/?lbd284s4e1zddgt
Episode23 http://www.mediafire.com/?bkutaq3rqtt8db9
Episode24 http://www.mediafire.com/?8qwxur44lkz5ut7
Episode25 End http://www.mediafire.com/?yilxoiu3w9w6aj5
Cara Men Download Nya Tinggal Copy Link Nya Dari http
Mohon Maaf Bila Ada Kesalahan Link Nya
Arigatou Gozaimasta
Sumber http://www.kurogaze.net/2014/03/sword-art-online-sao-episode-1-25.html
Algoritma & Pemrograman 1 (Cara Menjalankan Turbo Pascal di Windows 7 32bit)
Cara Menjalankan Turbo Pascal di Windows 7 32bit
Cara Menjalankan Turbo Pascal di Windows 7 32x. Kali ini saya membagi lagi pengetahuan saya yaitu bagaimana cara menjalanka turbo pascal di windows 7. Untuk menjalankan turbo pascal yang harus kita lakukan adalah....
- Download dulu softwarenya (aplikasi) di sini
- Setelah di download extract file ke dictory pc anda sesuai keinginan misalnya: D:\Turbo Pascal 7.0
- Sebelum menjalankan TP 7.0 diperlukan DosBox untuk membukanya
- Jika anda menyimpan file Turbo Pascal 7.0 di dictory D:\ maka ketikkan Perintah seperti gambar di bawah ini
- setelah mengetikkan D:\TP7\BIN>TPX tekan enter pada keyboard.
- Setelah itu muncullah tampilan turbo pascal 7.0 yang siap dipakai
Semoga Artikel Ini bermanfaat buat Anda ,,, Salam Suksesssss :)
Wednesday, December 17, 2014
Algortima & Pemrograman 1 ( menghitung Panjang sisi miring pada segitiga menggunakan pascal )
menghitung Panjang sisi miring pada segitiga menggunakan pascal
Bnyak hal yang bisa dibuat oleh program pascal, salah satunya adalah
program
penghitung panjang sisi Miring pada segitiga . pada program ini bisa
digunakan untuk menghitung sisi miring apabila kita masukkan alas dan
tinggi segitiga , karena pada segitiga menggunakan rumus phytagoras
yaitu sisi kuadrat = panjang alas
kuadrat x tinggi segitiga kuadrat
ini dia sricpt penghitung panjang sisi miring pada segitiga siku-siku menggunakan rumus phytagoras
Program phitagoras;
uses wincrt;
var alas,tinggi,miring : real ;
Begin
clrscr;
writeln('----aplikasi menghitung sisi miring pada segitiga siku-siku----');
writeln('---------------tekan enter dan masukkan nilai------------------');
readln;
write('Panjang alas =');
readln(alas);
write('tinggi segitiga =');
readln(tinggi);
miring:=sqrt((alas*alas)+(tinggi*tinggi));
writeln('panjang sisi miring =',miring:2:2);
readkey;
writeln(' ');
write('jadi panjang sisi miring segitiga dengan alas',' ',alas:2:2,' ','dan tinggi',' ',tinggi:2:2,' ','adalah =',miring:2:2);
end.
dan output nya akan terlihat jika kita masukkan angka 3 pada panjang alas dan 4 pada tinggi segitiga
----aplikasi menghitung sisi miring pada segitiga siku-siku----
---------------tekan enter dan masukkan nilai------------------
Panjang alas = 3
tinggi segitiga = 4
panjang sisi miring =5,00
Jadi panjang sisi miring segitiga dengan alas 3,00 dan tinggi 4,00 adalah =5,00
screbshott script pascal
screenshot ketika program dijalankan
itulah Program Penghitung Panjang sisi Miring pada segitiga siku-siku menggunakan Pascal
semoga artikel ini bisa bermanfaat. terimakasih :)
ini dia sricpt penghitung panjang sisi miring pada segitiga siku-siku menggunakan rumus phytagoras
Program phitagoras;
uses wincrt;
var alas,tinggi,miring : real ;
Begin
clrscr;
writeln('----aplikasi menghitung sisi miring pada segitiga siku-siku----');
writeln('---------------tekan enter dan masukkan nilai------------------');
readln;
write('Panjang alas =');
readln(alas);
write('tinggi segitiga =');
readln(tinggi);
miring:=sqrt((alas*alas)+(tinggi*tinggi));
writeln('panjang sisi miring =',miring:2:2);
readkey;
writeln(' ');
write('jadi panjang sisi miring segitiga dengan alas',' ',alas:2:2,' ','dan tinggi',' ',tinggi:2:2,' ','adalah =',miring:2:2);
end.
dan output nya akan terlihat jika kita masukkan angka 3 pada panjang alas dan 4 pada tinggi segitiga
----aplikasi menghitung sisi miring pada segitiga siku-siku----
---------------tekan enter dan masukkan nilai------------------
Panjang alas = 3
tinggi segitiga = 4
panjang sisi miring =5,00
Jadi panjang sisi miring segitiga dengan alas 3,00 dan tinggi 4,00 adalah =5,00
screbshott script pascal
screenshot ketika program dijalankan
itulah Program Penghitung Panjang sisi Miring pada segitiga siku-siku menggunakan Pascal
semoga artikel ini bisa bermanfaat. terimakasih :)
\
Nama : Alfian
Nim : 20142205090
Algoritma & Pemrograman 1 ( Fungsi Case of dan contoh Program Pada Pascal )
Fungsi Case of dan contoh Program Pada Pascal
Dalam fungsi yang berkaitan dengan logika adalah fungsi if, selain fungsi isi terdapat fungsi case of yaitu suatu ungkapan logika yang disebut selector dan sejumlah statemen yang diawali dengan suatu label permasalahan (case label) yang mempunyai tipe sama dengan selector.Statement yang mempunyai case label yang bernmilai sama dengan case label yang bernilai sama dengan nilai selector akan diproses sedang statemen yang lainnya tidak.
Bentuk struktur case of :
Case Variabel Kondisi Of
case-labe 1 : Statement 1;
case-label 2: tatement 2;
case-label 3: Statement 3;
case-label 4: Statement 4;
.....
...
Case-label : Statement n ;
end; {end dari case}
Daftar case label dapat berupa konstanta, range dari konstanta yang bukan bertipe real.
Contoh Program;
program nilaihuruf;
uses crt;
var nilai : char;
begin
clrscr;
write ('Masukkan Nilai Huruf : ');
readln(nilai);
case nilai of
'A': Writeln('sangan Baik');
'B': Writeln('Baik');
'C': Writeln('Kurang);
'D': Writeln('Sangat kurang');
'E': Writeln('Buruk Sekali');
end;
Readln;
end.
----------------,------------------------------------------------------
Program Fotokopi ,
Program ini untuk memenuhi tugas Algoritma dan pemrograman,
cara kerja program fotokopi ini yaitu kita harus menginput kode kertas, yaitu H untuk HVS, Q untuk Quarto, dan P untuk polio,
setelah kita masukkan kode kertas dan kita tekan enter maka akan keluar lah jenis kertas dan juga harganya perlembar, kemudian masukkan jumlah yang difotokopi , setelah diinput maka tekan entek maka keluarlah jumlah yang harus dibayar.
kode : ____________________________________________________
Program Fotokopi
uses crt;
var
kode : char;
kertas : string;
harga,jumlah,bayar : integer;
begin
clrscr;
writeln ('program fotokopi');
Write ('Masukkan Kode Kertas : ');
readln(kode);
case kode of
'H':begin
kertas:='HVS';
harga:=125;
end;
'Q':begin
kertas:='Quarto';
harga:=150;
end;
'P':begin
kertas:='Polio';
harga:=175;
end;
else
kertas:='Tidak ada'
end;
Writeln('Menggunakan kertas : ',kertas);
Writeln('Harga perlembar : ',harga);
Write('Jumlah Yang difotokopi : ');
readln(jumlah);
bayar:=jumlah*harga;
Writeln('Yang Harus dibayar : ',bayar);
readkey;
end.
___________________________________________________
screenshot program
Koding |
Ketika dijalankan |
Ketika di input |
ya itu lah program fotokopi menggunakan pascal dengan fungsi case of, semoga tulisan saya ini bisa bermanfaat bagi kita semua.. aminn
Nama : Alfian
Nim : 20142205090
Tuesday, December 16, 2014
Algoritma & Pemrograman 1 (Contoh Program Komputer Pengambilan Keputusan dengan fungsi IF)
Contoh Program Komputer Pengambilan Keputusan dengan fungsi IF
Contoh Program Komputer adalah sebagai berikut :
1. Contoh IF dengan Satu Pilihan
Contoh-1
Buatlah program dengan nilai 2 buah nilai awal x = 0 dan y = 100. Data masukan 1 buah data yaitu n. Jika n>x, maka x = n. Jika n
Algoritma:
• Mulai
• Deklarasikan variabel dan konstanta
• Masukkan data n
• Jika n>x, kerjakan x = n
• Jika n• Cetak x dan y
• Selesai
Flowchart
Kode Program
Program Contoh1;
Uses crt;
Var x,y,n : real;
Begin
x:= 0; y:=100;
clrscr;
write('Masukkan bilangan n = ');
readln(n);
writeln;
if n>x then x:=n;
if y
writeln(' Nilai x = ',x:6:2);
writeln(' Nilai y = ',y:6:2);
readln;
End.
Penjelasan :
Proses pengambilan keputusan
dilakukan denan membandingkan n dengan x dan n dengan y. Jika n>x,
maka simpan nilai n ke variabel x, kemudian lanjutkan untuk
membandingkan y dengan n. Jika tidak (nn)
maka langsung lanjutkan ke langkah selanjutkan. Pada baris terakhir
terdapat perintah readln; fungsinya adalah untuk menghentikan tampilan
hasil program di layar. Dengan menekan salah satu tombol keyboard, maka
proses akan dilanjutkan.
Hasil Program
2. Contoh IF dengan 2 Pilihan
Contoh-2
Buatlah program komputer
dengan sebuah data masukan n. Jika data masukan n lebih lebih besar
dari 0, maka tampilkan pesan “ Anda memasukkan bilangan positip’.
Sebaliknya, jika n lebih kecil dari 0, maka tampilkan pesan “Anda
memasukkan bilangan negatip”.
Algoritma:
• Mulai
• Deklarasikan variabel n
• Masukkan data n
• Cek data n, apakah n>=0
• Jika Ya, Tampilkan pesan “Anda memasukkan bilangan positip”
• Jika Tidak, tampilkan pesan “Anda memasukkan bilangan negatip”
• Print Hasil.
• Selesai.
Flowchart
Kode Contoh Program Komputer
Program Contoh2;
Uses crt;
Var n : integer;
Begin
clrscr;
write('Masukkan bilangan n = ');
readln(n);writeln;
if n>=0 then
writeln('Anda memasukkan bilangan positip') {titik koma tidak boleh}
else
writeln('Anda memasukkan bilangan negatip');
readln;
End.
Penjelasan :
Proses pengambilan keputusan hanya dilakukan satu kali dengan cara melakukan pengujian apakah n>=0. Jika hasilnya benar, maka kerjakan pernyataan di setelah IF – then, jika tidak maka kerjakan pernyataan setelah kata kunci else.
Baris pernyataan sebelum kata kunci else tidak boleh menggunakan titik koma, karena titik koma berarti mengakhiri bari pernyataan akibatnya else tidak dapat mengenali baris pernyataan sebelumnya untuk dibandingkan dengan baris pernyataan di bawahnya.
Hasil Program
Buatlah program dengan masukan 2 buah data yaitu x dan y. Jika x > y, hitung z = x + y. Jika y>x, hitung z = y – x.
Algoritma :
• Mulai
• Deklarasikan variabel x,y,dan z
• Masukkan data x dan y.
• Cek apakah x>y
• Jika Ya, hitung z = x + y
• Jika Tidak, hitung z = y – x.
• Cetak hasil
• Selesai
Flowchart
Kode Program
Program Contoh3;
Uses crt;
Var x,y,z : integer;
Begin
clrscr;
write('Masukkan bilangan x = ');
readln(x);
write('Masukkan bilangan y = ');
readln(y);
writeln;
if x>y then
z:= x + y
else
z:= y - x;
writeln(' Nilai z = ',z);
readln;
End.
Penjelasan :
Pengambilan keputusan dilakukan dengan menguji apakah x>y. Jika Ya, maka kerjakan pernyataan di bahwanya yaitu z:= x + y. Jika Tidak maka kerjakan pernyataan setelah else yaitu z := y – x.
Hasil Program
3. Contoh IF dengan 3 Pilihan atau Lebih
Sebuah Toko menyediakan Hadiah bagi pembeli dengan syarat Total Belanja sebagai berikut :
Total Belanja/TB (Rp.) Hadiah
50.000 < TB <= 150.000 Pepsodent 60 gr
150.000 < TB <= 250.000 Rinso 500 gr
250.000 < TB <= 350.000 Rinso 700 gr
350.000 < TB <= 450.000 Rinso 1000 gr
TB > 450.000 Rinso 2500 gr
Buatlah program untuk menentukan hadiah tiap pembeli. Data masukan adalah Total Belanja. Jika nilai TB tidak memenuhi syarat, tampilkan pesan “Anda belum beruntung”
Algoritma :
• Mulai
• Deklarasikan variabel
• Masukkan data Total Belanja (TB).
• Cek TB sbb :
• Jika 50.000 < TB <= 150.000, tampilkan informasi Hadiah “Pepsodent 60 gr”
• Jika 150.000 < TB <= 250.000, tampilkan informasi Hadiah “Rinso 500 gr”
• Jika 250.000 < TB <= 350.000, tampilkan informasi Hadiah “Rinso 700 gr”
• Jika 350.000 < TB <= 450.000, tampilkan informasi Hadiah “Rinso 1000 gr”
• Jika TB> 450.000, tampilkan informasi hadiah “Rinso 2500 gr”
• Jika tidak memenuhi syarat, tampilkan pesan “Anda belum beruntung”
• Selesai
Flowchart
Contoh Program Komputer
Uses crt;
var TB: longint;
Begin
clrscr;writeln;
write('Input Total Belanja = ');
readln(tb);writeln;writeln;
if (50000 <=tb) and (tb<=150000) then
writeln('Selamat!. Anda mendapatkan Hadiah : Pepsodent 60 gr')
else if (150000 writeln('Selamat!. Anda mendapatkan Hadiah : Rinso 500 gr')
else if (250000 writeln('Selamat!. Anda mendapatkan Hadiah : Rinso 700 gr')
else if (350000 writeln('Selamat!. Anda mendapatkan Hadiah : Rinso 1000 gr')
else if (tb > 450000) then
writeln('Selamat!. Anda mendapatkan Hadiah : Rinso 2500 gr')
else
writeln('Anda belum beruntung !!!');
readln; {untuk menghentikan tampilan hasil program}
End.
Penjelasan :
- Tipe variabel TB bukan int tetapi longint karena data masukan adalah data integer yang besar. Lihat tipe data integer pada pembahasan sebelumnya.
- Proses pengambilan keputusan dilakukan dengan melakukan pengujian sebanyak 5 kali dengan 6 pernyataan. Tiap pengujian dalam fungsi if menggunakan operator logika AND karena kedua syarat harus benar untuk menghasilkan nilai Benar. Misalnya Hadiah Pepsodent diberikan dengan syarat Total belanja antara 50.000 hingga 150.000. Bentuk matematikanya adalah 50.000 < TB <= 150.000 dibuat menjadi kode program dengan menggunakan operator AND dengan bentuk (50000 <=TB) AND (TB<=150000).
Hasil Program
Dengan Contoh Program Komputer Pengambilan Keputusan dengan fungsi IF, anda dapat menambah ilmu komputer anda. Selamat belajar.
Berikan komenter dan saran jika anda punya pertanyaan.
Semoga bermanfaat
Subscribe to:
Posts (Atom)