Selasa, 04 Desember 2012

PANDUAN MEMBUAT PROGRAM TEBAK ANGKA




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

 
;