PROGRAM
MembuatMenu;
USES
wincrt;
VAR
i : integer;
MenuUtama : integer;
angka_random : integer;
tebakan : boolean;
angka_input : integer;
MenuPengaturan : integer;
KesempatanTebak : integer;
RangeRandom : integer;
score : integer;
BEGIN
randomize;
KesempatanTebak := 6;
RangeRandom := 10;
Repeat
clrscr;
writeln('PROGRAM TEBAK
ANGKA');
WRITELN;
writeln('1. Play');
writeln('2.
Pengaturan');
writeln('3. Kelompok');
writeln('4. Exit');
writeln;
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);
readln;
End;
i := i + 1;
End;
if i >
KesempatanTebak then
Begin
writeln('GAME
OVER') ;
readln;
End;
End;
2 : Begin
repeat
clrscr;
writeln('Menu
Pengaturan');
writeln;
writeln('1.
Mudah');
writeln('2.
Normal');
writeln('3.
Susah');
writeln('4.
Kembali ke Menu Utama') ;
writeln;
write('Menu
Pilihan Anda : ') ;
readln(MenuPengaturan);
case
MenuPengaturan of
1 : BEGIN
KesempatanTebak := 6;
RangeRandom := 10;
Writeln('LEVEL MUDAH');
readln;
END;
2 : BEGIN
KesempatanTebak := 4;
RangeRandom := 50;
Writeln('LEVEL
NORMAL');
readln;
END;
3 : BEGIN
KesempatanTebak := 2;
RangeRandom := 100;
Writeln('LEVEL SUSAH');
readln;
END;
4 : BEGIN
writeln('Kembali Ke Menu Utama');
readln;
END;
else
Begin
writeln('Salah Menu');
end;
end;
until
MenuPengaturan = 4;
End;
3 : Begin
writeln('Kelompok ada disini');
readln;
End;
4 : Begin
writeln('Selesai');
readln;
End;
else
Begin
End;
end;
Until MenuUtama = 4;
END.
;
0 komentar:
Posting Komentar