Menu w pascalu pomoc


(Wowo19) #1

Witam. Dopiero zaczynam posługiwać się pascalem i mam pewien problem a mianowicie mam napisać program, który będzie składał się z kilku procedur i zamiast uruchamiać ponownie program po każdej wykonanej procedurze chciałbym, żeby po wciśnięciu określonego klawisza wracało do menu programu.

Z góry dzięki za pomoc.

Pozdrawiam.

Uses crt;

       Const n=100;



     Var

       c1,c2 : char;

       y : byte;

       tablica : array[1..3] of string;


     Procedure sortowanie;


      Var

        x:Array[1..n] of byte;

        i,j:integer;

        p:byte;

       Begin

         ClrScr;

         Randomize;

         WriteLn;

         WriteLn('Liczby wylosowane');

         For i:=1 to n do

             Begin

               x[i]:=Random(200);

               Write(x[i]:4);

               If (i Mod 15)=0 Then Writeln;

             End;

             For i:=1 to n-1 do

                For j:=1 to n-i do

                   If x[j]>x[j+1]

                     Then Begin

                          p:=x[j];

                          x[j]:=x[j+1];

                          x[j+1]:=p

                          End;

            WriteLn;

            WriteLn('==============================================');

            WriteLn('Tablica uporzadowana');

            For i:=1 To n Do Write(x[i]:4);

          Repeat Until KeyPressed

       End;


     Procedure glowny_program;

       Begin

       End;


     Procedure menu (ktory,kolor,tlo:byte); {1}

       Begin

          TextColor (0); {2}

          TextBackGround (tlo+3); {3}

          GoToXY (32,11+ktory); {4}

          Write (tablica [ktory]); {5}

       End;


       Begin

          Tablica[1] :=' Sortowanie ';

          Tablica[2] :=' Program ';

          Tablica[3] :=' Wujscie ';

          ClrScr;

          For y:=1 To 3 Do menu (y,15,0); {6}

              y:=1;

          Repeat

              menu (y,0,15); {7}

              c1:=ReadKey;

              c2:=' ';

              If c1=chr (0) Then c2:=ReadKey;

              menu (y,15,0); {8}

              If c2='H' Then Dec(y);

              If c2='P' Then Inc(y);

              If y=0 Then y:=3;

              If y=4 Then y:=1;

              If c1=chr (27) Then y:=3;

          Until (c1=chr (27)) or (c1=chr (13));

              If y=1 Then sortowanie;

              If y=2 Then glowny_program;

       End.