game tebak angka pascal

program game_tebak_angka;
USES
wincrt;
VAR
i : integer;
MenuUtama : integer;
angka_random : integer;
tebakan : boolean;
angka_input : integer;
MenuPengaturan : integer;
KesempatanTebak : integer;
RangeRandom : integer;
score : integer;
nama : string;
BEGIN
randomize;
KesempatanTebak := 5;
RangeRandom := 10;
Repeat
clrscr;
writeln(‘PROGRAM TEBAK ANGKA’);
WRITELN;
writeln(‘1. Play’);
writeln(‘2. Pengaturan’);
writeln(‘3. Kelompok’);
writeln(‘4. Exit’);
writeln;
write(‘masukan nama anda : ‘);
readln(nama);
write(‘Menu Pilihan Anda : ‘) ;

readln(MenuUtama);

case MenuUtama of
1 : Begin
angka_random := random(RangeRandom);
tebakan := false;
i := 1;
while (tebakan = false) and (i <= KesempatanTebak) do
Begin
write(‘Tebakan Anda : ‘);
readln(angka_input);

if angka_input > angka_random then
writeln(‘Tebakan Terlalu Besar’)
else if angka_input < angka_random then
writeln(‘Tebakan Terlalu Kecil’)
else
Begin
writeln(‘Tebakan Benar’);
tebakan := true;
score := 100 div i;
writeln(‘Nilai Anda = ‘, score, nama);
angka_random := random(RangeRandom);
tebakan := false;
i := 1;
while (tebakan = false) and (i <= KesempatanTebak) do
Begin
write(‘Tebakan Anda : ‘);
readln(angka_input);

if angka_input > angka_random then
writeln(‘Tebakan Terlalu Besar’)
else if angka_input < angka_random then
writeln(‘Tebakan Terlalu Kecil’)
else
Begin
writeln(‘Tebakan Benar’);
tebakan := true;
score := 100 div i;
writeln(‘Nilai Anda = ‘, score);
writeln(‘selamat ya,gan :)!!!’);
readln;
End;

i := i + 1;

End;

if i > KesempatanTebak then
Begin
writeln(‘GAME OVER’) ;
readln;
End;

readln;
End;

i := i + 1;

End;

if i > KesempatanTebak then
Begin
writeln(‘GAME OVER’) ;
writeln(‘sayang sekali ya,gan ;( !!’);
readln;
End;

End;
2 : Begin
repeat
clrscr;
writeln(‘Menu Pengaturan’);
writeln;
writeln(‘1. DIBAWAH RATA-RATA’);
writeln(‘2. RATA-RATA’);
writeln(‘3. DIATAS RATA-RATA’);
writeln(‘4. SUPERIOR’);
writeln(‘5. VERY SUPERIOR’);
writeln(‘6. Kembali ke Menu Utama’) ;
writeln;
write(‘Menu Pilihan Anda : ‘) ;
readln(MenuPengaturan);

case MenuPengaturan of
1 : BEGIN
KesempatanTebak := 3;
RangeRandom := 10;
Writeln(‘DI BAWAH RATA-RATA  # 0-10 kesempatan 3* ‘);
writeln(‘press enter’);
readln;

angka_random := random(RangeRandom);
tebakan := false;
i := 1;
while (tebakan = false) and (i <= KesempatanTebak) do
Begin
write(‘Tebakan Anda : ‘);
readln(angka_input);

if angka_input > angka_random then
writeln(‘Tebakan Terlalu Besar’)
else if angka_input < angka_random then
writeln(‘Tebakan Terlalu Kecil’)
else
Begin
writeln(‘Tebakan Benar’);
tebakan := true;
score := 100 div i;
writeln(‘Nilai Anda = ‘, score,nama);
writeln(‘selamat ya,gan :)!!!’);
readln;
End;

i := i + 1;

End;

if i > KesempatanTebak then
Begin
writeln(‘GAME OVER’) ;
writeln(‘sayang sekali ya,gan ;( !!’);
writeln(‘tapi level di bawah rata-rata ja ga bisa:)hehe!!!’);
writeln(‘kasian deh loh:)hehe!!’);
readln;
End;

END;
2 : BEGIN
KesempatanTebak := 4;
RangeRandom := 50;
Writeln(‘RATA-RATA # 0-50 kesempatan 4*’);
writeln(‘press enter’);
readln;

angka_random := random(RangeRandom);
tebakan := false;
i := 1;
while (tebakan = false) and (i <= KesempatanTebak) do
Begin
write(‘Tebakan Anda : ‘);
readln(angka_input);

if angka_input > angka_random then
writeln(‘Tebakan Terlalu Besar’)
else if angka_input < angka_random then
writeln(‘Tebakan Terlalu Kecil’)
else
Begin
writeln(‘Tebakan Benar’);
tebakan := true;
score := 100 div i;
writeln(‘Nilai Anda = ‘, score,nama);
writeln(‘selamat ya,gan :)!!!’);
readln;
End;

i := i + 1;

End;

if i > KesempatanTebak then
Begin
writeln(‘GAME OVER’) ;
writeln(‘sayang sekali ya,gan ;( !!’);
writeln(‘tapi teryata ente masih belum pintar kurang beruntung pula:)hehe!!’);
readln;
End;

END;
3 : BEGIN
KesempatanTebak := 6;
RangeRandom := 100;
Writeln(‘DI ATAS RATA-RATA # 0-100 kesemptan 6* ‘);
writeln(‘press enter’);
readln;

angka_random := random(RangeRandom);
tebakan := false;
i := 1;
while (tebakan = false) and (i <= KesempatanTebak) do
Begin
write(‘Tebakan Anda : ‘);
readln(angka_input);

if angka_input > angka_random then
writeln(‘Tebakan Terlalu Besar’)
else if angka_input < angka_random then
writeln(‘Tebakan Terlalu Kecil’)
else
Begin
writeln(‘Tebakan Benar’);
tebakan := true;
score := 100 div i;
writeln(‘Nilai Anda = ‘, score,nama);
writeln(‘selamat ya,gan :)!!!’);
writeln(‘sungguh memang kamu beruntung:)!!’);
readln;
End;

i := i + 1;

End;

if i > KesempatanTebak then
Begin
writeln(‘GAME OVER’) ;
writeln(‘sayang sekali ya,gan ;( !!’);
readln;
End;

END;
4 : BEGIN
kesempatanTebak := 8;
RangeRandom := 150;
Writeln(‘SUPERIOR  # 0-150 kesempatan 8* ‘);
writeln(‘press enter’);
readln;

angka_random := random(RangeRandom);
tebakan := false;
i := 1;
while (tebakan = false) and (i <= KesempatanTebak) do
Begin
write(‘Tebakan Anda : ‘);
readln(angka_input);

if angka_input > angka_random then
writeln(‘Tebakan Terlalu Besar’)
else if angka_input < angka_random then
writeln(‘Tebakan Terlalu Kecil’)
else
Begin
writeln(‘Tebakan Benar’);
tebakan := true;
score := 100 div i;
writeln(‘Nilai Anda = ‘, score,nama);
writeln(‘selamat ya,gan :)!!!’);
writeln(‘dirimu memang good-good deh:)’);
readln;
End;

i := i + 1;

End;

if i > KesempatanTebak then
Begin
writeln(‘GAME OVER’) ;
writeln(‘sayang sekali ya,gan ;( !!’);
readln;
End;

END;
5 : BEGIN
kesempatanTebak := 10;
RangeRandom := 250;
Writeln(‘VERY SUPERIOR  # 0-250 kesempatan 10*’);
writeln(‘press enter’);
readln;

angka_random := random(RangeRandom);
tebakan := false;
i := 1;
while (tebakan = false) and (i <= KesempatanTebak) do
Begin
write(‘Tebakan Anda : ‘);
readln(angka_input);

if angka_input > angka_random then
writeln(‘Tebakan Terlalu Besar’)
else if angka_input < angka_random then
writeln(‘Tebakan Terlalu Kecil’)
else
Begin
writeln(‘Tebakan Benar’);
tebakan := true;
score := 100 div i;
writeln(‘Nilai Anda = ‘, score,nama);
writeln(‘selamat ya,gan :)!!!’);
writeln(‘dirimu memang sungguh beruntung sedunia,gan:)’);
writeln(‘keren deh:)’);
readln;
End;

i := i + 1;

End;

if i > KesempatanTebak then
Begin
writeln(‘GAME OVER’) ;
writeln(‘sayang sekali ya,gan ;( !!’);
readln;
End;

END;
6 : BEGIN
writeln(‘Kembali Ke Menu Utama’);
readln;
END;

end;

until MenuPengaturan = 6;
End;
3 : Begin
writeln(‘Kelompok ada disini’);
writeln(‘andi munandar’);
writeln(‘kozhin’);
writeln(‘dewi andini’);
writeln(‘endin zainudin’);
writeln(‘hasan basri’);
writeln(‘ TI A1 ‘);
writeln(‘STMIK IKMI CIREBON’);
readln;
End;
4 : Begin
writeln(‘TERIMAKASIH’);

readln;
End;
else
Begin
End;
end;

Until MenuUtama = 4;
END.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s