Program Game Who Wants to Be Millioner {untuk melatih pengetahuan
umum}
Deklarasi :
a= integer; b,c = string;
Deskripsi:
Writeln("++++++++++++++++++++++++++++++++++++++++++++++++")
Writeln("Selamat
Datang di Kuis Who Wants to be Millioner")
Writeln("
Anda Memiliki Kesempatan Mendapatkan 1 Miliyar ")
Writeln("++++++++++++++++++++++++++++++++++++++++++++++++")
Writeln("Mulai
Bermain? Pilih Yes")
Read c
for ( a=1;a<6; )
{
if (a=1) {
Writeln("Siapa
penemu telpon pertama?”)
Read b
if (b="Alexander Graham Bell")
{
a=a+1
Writeln("Jawaban
Benar")
}Else{
a=1
Writeln("Jawaban
Salah")
}}
else if
(a=2){
Writeln("Di
Benua mana letak Negara Inggris”)
Read b
if (b= "Eropa")
{
a=a+1
Writeln("Jawaban
Benar")
}else{
a=1
Writeln("Jawaban
Salah")
}}
else if
(a=3){
Writeln("Nama
lain dari organ paru-paru")
Read b
if (b= "Pulmo")
{
a=a+1
Writeln("Jawaban
Benar")
}else{
a=1
Writeln("Jawaban
Salah")
}}
else if
(a=4){
Writeln("Tanggal
berapa hari Kartini diperingati?")
Read b
if (b="21 April")
{
a=a+1
Writeln("Jawaban
Benar")
}else{
a=1
Writeln("Jawaban
Salah")
}}
else if
(a=5){
Writeln("Tirai
Bambu merupakan nama lain dari negara?")
Read b
if (b="China")
{
a=a+1
Writeln("Selamat
Anda Mendapatkan Rp 1.000.000.000,-")
}else{
a=1;
Writeln("Jawaban
Salah")
}}End
Agar lebih mudah membaca maksud dari program ini berikut flowchart dari program tersebut.
Berikut ini ialah tampilan dari program tersebut.