Laman

Jumat, 05 Desember 2014

Game Perulangan Tebak Film (Tugas 2 Modul 3)

Pseudocode Game Tebak Film (Tugas 2)

Header: 
Program: Game_Tebak_Film;
{Mengisi data dalam rangka menebak judul film yang diminta oleh program.}

Declaration:
Jawaban1, jawaban2, jawaban3, jawaban4, jawaban5String
Integer:
b=1
score=0
a=3

Description:
Begin
Println("***********************************************************************************************");
Println("^-^.^-^.^-^.^.^-^.^-^.^-^.^-^.^.^-^.^-^.^.^-^.^-^.^-^.^-^.^.^-^.^-^.^.^-^.^-^.^-^.^-^.^.^-^.^-^");
Println(" TTTTTTT EEEEEEE  BBBBB         A       K    K    FFFFF    IIIII  L            M         M ");
Println("    T            E              B       B       A A      K  K     F              I     L            M M M M ");
Println("    T            EEEEE     BBBBB    AAAAA  KK        FFFF        I     L           M    M   M ");
Println("    T            E              B        B   A     A     K  K      F              I     L           M          M ");
Println("    T            EEEEEEE BBBBB  A       A   K    K     F            IIIII  LLLLL    M           M ");
Println("*^o^**^o^**^o^**^o^**^o^**^o^**^o^**^o^**^o^**^o^**^o^**^o^**^o^**^o^**^o^**^o^**^o^**^o^**^o^*");
Println("***********************************************************************************************");
Println(“Selamat Datang di Tebak Film!!");
Println(“Anda akan menebak film yang ada sesuai clue di setiap level”);
Println(“Anda diwajibkan untuk mengisi jawaban menggunakan huruf KAPITAL”);
Println(“Di permainan ini, Anda akan diberi kesempatan untuk menjawab sebanyak 3 kesempatan”); 
for b=1; b<=5;
while a>0
if b == 1
Println("                                     ----LEVEL 1----");
Println("Cobalah isi kata dibawah ini!");
Println("H _ _ _ E R  G _ _ _ S");
Println("Film ini diangkat dari novel trilogi");
Print("Jawaban :");
Read(jawaban1);
If jawaban1.equals("HUNGER GAMES")
Println("Jawaban Anda benar, silahkan lanjut ke level selanjutnya!");
b = b+1;
score = score+100;
else
Println("Tet tot! Anda salah. Silahkan coba ulang");
a--;
Println(“Anda memiliki : “+a+” kesempatan”);
If a == 0
Println(“ANDA KALAH TANA MENDAPAT SCORE APAPUN! HAHAHAHAHA”);
If b == 2
Println("                                     ----LEVEL 2----");
Println("Cobalah isi kata dibawah ini!");
Println("_ O _ _ _ _ R  U N _ _ _ _ _ _ _ y");
Println("Merupakan film kartun");
Print ("Jawaban :");
Read(jawaban2);
if jawaban2.equals("MONSTER UNIVERSITY")
Println("Jawaban Anda benar, silahkan lanjut ke level selanjutnya!");
b = b+1;
score = score+100;
else
Println("Tet tot! Anda salah. Silahkan coba ulang");
a--;
Println(“Anda memiliki : “+a+” kesempatan”);
If a==0
Println("ANDA HANYA BERHASIL MENDAPATKAN “+score+ HAHAHAHA”);
continue;
if b == 3
Println(“ ----LEVEL 3----");
Println("Cobalah isi kata dibawah ini!");
Println("T _ _  E _ _ _ N _ _ _ _ E _  3");
Println("Merupakan film bergenre action yang dibintangi oleh Jet Li, Sylvester Stallon. Film ini dirilis pada tahun 2014");
print("Jawaban :");
Read(jawaban3);
if jawaban3.equals("THE EXPENDABLES 3")
Println("Jawaban Anda benar, silahkan lanjut ke level selanjutnya!");
b = b+1;
score = score+100;
else
Println("Tet tot! Anda salah. Silahkan coba ulang");
a--;
Println(“Anda memiliki : “+a+” kesempatan”);
If a==0
Println("ANDA MENDAPATKAN SCORE : “+score+” LUMAYAAAN”);
continue;
if b == 4
Println("                                     ----LEVEL 4----");
Println("Cobalah isi kata dibawah ini!");
Println("C _ _ _ A  _ _ _ I  B _ _ A");
Println("Merupakan film Indonesia yang rilis pada tahun 2012. Film ini disutradarai oleh Hanung Bramantyo");
Print("Jawaban :");
Read(jawaban4);
if jawaban4.equals("CINTA TAPI BEDA")
Println("Jawaban Anda benar, silahkan lanjut ke level selanjutnya!");
b = b+1;
score = score+100;
else
Println("Tet tot! Anda salah. Silahkan coba ulang");
a--;
Println(“Anda memiliki : “+a+” kesempatan”);
If a==0
Println("PENINGKATAN! SCORE ANDA: “+score+” AYOOO! !”);
continue;
if b == 5
Println("                                     ----LEVEL 5----");
Println("Cobalah isi kata dibawah ini!");
Println("C _ _ _  2");
Println("Merupakan film kartun komputer 3D yang berasal dari Amerika Serikat dan diproduksi oleh Pixar Animation Studios");
Print(“Jawaban:”);  
Read(jawaban5);
If jawaban5.equals("CARS 2")
Println("              ----Selamat Anda telah menyelesaikan semua level pada TEBAK FILM----");
b = b+1;
score = score+100;
Println(“Score anda : “+score+” SELAMAT! !” );
Println("******************************************CONGRATULATION***************************************"); Println("***********************************************************************************************"); 
else
Println("Tet tot! Anda masih salah. Silahkan coba ulang");
a--;
Println(“Anda memiliki : “+a+” kesempatan”);
If a==0
Println("SEDIKIT LAGIIIIIIII! SCORE YANG ANDA PEROLEH ADALAH “+score);
continue;
End


Berikut ini adalah flowchart game perulangan tebak film:

Berikut ini screenshot console program game perulangan pada eclipse:



Kamis, 04 Desember 2014

Tugas Provider Pulsa (Tugas 1 Modul 3)

Pseudocode Tugas Provider

Header: 
Program: Paket_Internet_Provider_Empati
{Memilih Paket Internet di Provider Empati}

Declaration:
kode, Pulsa, harga11, harga12, harga21, harga22, harga31, harga32, harga4, Pilihan0, Pilihan1, Pilihan2, Pilihan3, Pilihan4, Pilihan11, Pilihan21, Pilihan31, Pilihan41, sisapulsa11,sisapulsa12, sisapulsa21, sisapulsa22, sisapulsa31, sisapulsa32, sisapulsa4 :integer

Deskripsi:
Begin
Println"     Selamat Datang di Paket Internet Murah EMPATI"
Println"   Provider Empati, Jagoannya Internetan Cepat dan Murah"
Write “Masukkan kode :”
Read kode
If kode≠999 {
Println “Maaf, Kode yang Anda Masukkan Salah”}
else
if kode= 999 {
Println"   Provider Empati, Jagoannya Internetan Cepat dan Murah"}
Writeln"Pulsa Anda Sebesar Rp."+ Pulsa);
Println"Berikut ini adalah Paket Internet Berdasarkan Masa Aktif :”
Println"(1). Paket Harian "
Println"(2). Paket Mingguan"
Println"(3). Paket Bulanan"
Println"(4). Paket Weekend"
Write"Masukkan Pilihan Anda :"
Read Pilihan0
if (Pilihan0>=5)
Println "Maaf, Pilihan Anda Salah”

switch (Pilihan0) {
case 1: 
Println"Berikut ini adalah Pilihan Paket Internet Harian:"
Println”(1). Paket Anak Muda (BBM, Whatsapp, Line, Facebook, Twitter, Path, Instagram"
Println"(2). Paket Orang Sibuk (Internet Lengkap)"
Println”(0).Keluar”
Write “Masukkan Pilihan Anda :"
Read Pilihan1
if (Pilihan1>=3)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan1==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
if (Pilihan1 == 1) {
Println"Paket Anak Muda Harian"
Println"Anda Dapat Menikmati BBM, Whatsapp, Line, Facebook, Twitter, Path, Instagram Sepuasnya"
Println"Masa Aktif Paket 24 Jam"
Writeln"Paket ini Berharga Sebesar Rp."+ harga11
Println"(1). Aktifkan"
Println"(0). Keluar"
Write"Masukkan Pilihan Anda :"
Read Pilihan11
if (Pilihan11>=2)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan11 == 1 && Pulsa >= harga11) {
Println"Selamat, Paket Anak Muda Harian dapat Anda Nikmati hingga 24 Jam kedepan"
sisapulsa11 = Pulsa-harga11;
Writeln("Sisa Pulsa Anda Sebesar Rp."+sisapulsa11);}
if (Pilihan11 == 1 && Pulsa<harga11)  {
Println"Maaf, Pulsa Anda Tidak Mencukupi."
if (Pilihan11==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
}}
if (Pilihan1 == 2) {
Println"Paket Orang Sibuk Harian"
Println"Anda Dapat Menikmati Internet Sepuasnya"
Println"Masa Aktif Paket 24 Jam"
Writeln"Paket ini Berharga Sebesar Rp."+ harga12
Println"(1). Aktifkan"
Println”(0). Keluar”
Write "Masukkan Pilihan Anda :"
Read Pilihan 11
if (Pilihan11>=2)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan11 == 1 && Pulsa >= harga12) {
Println"Selamat, Paket Orang Sibuk Harian dapat Anda Nikmati hingga 24 Jam kedepan"
sisapulsa12 = Pulsa-harga12;
Writeln("Sisa Pulsa Anda Sebesar Rp."+sisapulsa12);}
if (Pilihan11 == 1 && Pulsa<harga12)  {
Println"Maaf, Pulsa Anda Tidak Mencukupi."
if (Pilihan11==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
}}
break;
case 2 :
Println"Berikut ini adalah Pilihan Paket Internet Mingguan:"
Println"(1). Paket Anak Muda (BBM, Whatsapp, Line, Facebook, Twitter, Path, Instagram"
Println"(2). Paket Orang Sibuk (Internet Lengkap))"
Println”(0).Keluar”
Write"Masukkan Pilihan Anda :”
Read Pilihan2
if (Pilihan2>=3)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan2==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
if (Pilihan2 == 1) {
Println"Paket Anak Muda Harian"
Println"Anda Dapat Menikmati BBM, Whatsapp, Line, Facebook, Twitter, Path, Instagram Sepuasnya"
Println"Masa Aktif Paket 24 Jam"
Writeln"Paket ini Berharga Sebesar Rp."+ harga21
Println"(1). Aktifkan”;
Println"(0). Keluar"
Write"Masukkan Pilihan Anda :"
Read Pilihan 21
if (Pilihan21>=2)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan21 == 1 && Pulsa >= harga21) {
Println"Selamat, Paket Anak Muda Mingguan dapat Anda Nikmati hingga 7x24 Jam kedepan"
Sisapulsa21 = Pulsa-harga21;
Writeln("Sisa Pulsa Anda Sebesar Rp."+sisapulsa21);}
if (Pilihan21 == 1 && Pulsa<harga21)  {
Println"Maaf, Pulsa Anda Tidak Mencukupi."
if (Pilihan21==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
}
if (Pilihan2 == 2) {
Println"Paket Orang Sibuk Mingguan"
Println"Anda Dapat Menikmati Internet Sepuasnya"
Println"Masa Aktif Paket 24 Jam”
Writeln"Paket ini Berharga Sebesar Rp."+ harga22
Println"(1). Aktifkan"
Println”(0).Keluar”
Write"Masukkan Pilihan Anda :"
Read Pilihan 21
if (Pilihan21>=2)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan21 == 1 && Pulsa >= harga22) {
Println"Selamat, Paket Orang Sibuk Mingguan dapat Anda Nikmati hingga 7x24 Jam kedepan"
Sisapulsa22 = Pulsa-harga22;
Writeln("Sisa Pulsa Anda Sebesar Rp."+sisapulsa22);}
if (Pilihan21 == 1 && Pulsa < harga22) {
Println"Maaf, Pulsa Anda Tidak Mencukupi."
if (Pilihan21==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}

}}
break;
case 3 :
Println"Berikut ini adalah Pilihan Paket Internet Bulanan:"
Println"(1). Paket Anak Muda (BBM, Whatsapp, Line, Facebook, Twitter, Path, Instagram"
Println"(2). Paket Orang Sibuk (Internet Lengkap))"
Println”(0). Keluar”
Write"Masukkan Pilihan Anda :"
Read Pilihan3
if (Pilihan3>=3)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan3==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
if (Pilihan3 == 1) {
Println"Paket Anak Muda Harian"
Println"Anda Dapat Menikmati BBM, Whatsapp, Line, Facebook, Twitter, Path, Instagram Sepuasnya"
Println"Masa Aktif Paket 30 Hari"
Writeln"Paket ini Berharga Sebesar Rp."+ harga31
Println"(1). Aktifkan"
Println"(0). Keluar"
Write"Masukkan Pilihan Anda :"
Read Pilihan31
if (Pilihan31>=2)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan31 == 1 && Pulsa >= harga31) {
Println"Permintaan Anda Telah Diproses"
Println"Selamat, Paket Anak Muda Mingguan dapat Anda Nikmati hingga 30 Hari kedepan"
Sisapulsa31 = Pulsa-harga31;
Writeln("Sisa Pulsa Anda Sebesar Rp."+sisapulsa31);}
if (Pilihan31 == 1 && Pulsa<harga31) {
Println"Maaf, Pulsa Anda Tidak Mencukupi."
if (Pilihan31==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
}}
if (Pilihan3 == 2) {
Println"Paket Orang Sibuk Mingguan"
Println"Anda Dapat Menikmati Internet Sepuasnya";
Println"Masa Aktif Paket 30 Hari";
Writeln"Paket ini Berharga Sebesar Rp."+ harga32);
Println"(1). Aktifkan"
Println”(0).Keluar”
Write"Masukkan Pilihan Anda :"
Read Pilihan 31
if (Pilihan31>=2)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan31 == 1 && Pulsa >= harga32) {
Println"Selamat, Paket Orang Sibuk Bulanan dapat Anda Nikmati hingga 30 Hari kedepan"
Sisapulsa32 = Pulsa-harga32;
Writeln("Sisa Pulsa Anda Sebesar Rp."+sisapulsa32);}
if (Pilihan31 == 1 && Pulsa <harga32) {
Println"Maaf, Pulsa Anda Tidak Mencukupi."
if (Pilihan32==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
}}
break;
  case 4 :
Println"Berikut ini adalah Pilihan Paket Internet Weekend:"
Println"(1). Paket Skype Sabtu-Minggu"
Println”(0). Keluar”
Write"Masukkan Pilihan Anda :"
Read Pilihan4
if (Pilihan4>=2)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan4==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
if (Pilihan4 == 1) {
Println"Paket Skype Sabtu-Minggu"
Println"Anda Dapat Menikmati Skype Sepuasnya"
Println"Masa Aktif Paket Sabtu 00:00 - Minggu 24:00"
Writeln"Paket ini Berharga Sebesar Rp."+ harga4
Println"(1). Aktifkan"
Println”(0). Keluar”
Write"Masukkan Pilihan Anda :"
Read Pilihan41
if (Pilihan41>=2)
Println "Maaf, Pilihan Anda Salah” 
If Pilihan41 == 1 && Pulsa >= harga4) {
Println"Selamat, Paket Skype Sabtu-Minggu dapat Anda Nikmati pada Sabtu 00:00 hinga Minggu 24:00"
Sisapulsa4 = Pulsa-harga4;
Writeln("Sisa Pulsa Anda Sebesar Rp."+sisapulsa4);}
If Pilihan41 == 1 && Pulsa< harga4) {
Println"Maaf, Pulsa Anda Tidak Mencukupi."
if (Pilihan41==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
}}
}}}
End

Berikut adalah flowchart dari Provider Pulsa


Berikut adalah screenshot dari console program