как сделать в пунктах подпункты? Опции

[INZA]

как сделать в пунктах подпункты?

 Program L3;
Uses crt;
Var a1,b1,c1,d1,e1,f1,x :integer;
    a,b,c:boolean;
    pr:char;
    i,Old_Color :byte;
    ch          :char;
Begin
  Old_Color:=Textattr;
  Repeat
    window(1,1,80,25);
    textattr:=black shl 4+cyan;
    clrscr;
    gotoxy(5,1);
    write(' JIa6apaTopHa9I #3');
    window(20,8,60,18);
    textattr:=black shl 4+cyan;
    clrscr;
    gotoxy(11,4);
    write(' 1-zadanie 1');
    gotoxy(11,5);
    write(' 2-zadanie 2');
    gotoxy(11,6);
    write(' 3-o proge');
    gotoxy(11,8);
    write(' Esc-exit  ');
    textcolor(cyan); gotoxy(12,2);write(' Baw BbI6op? ');
    ch:=readkey;
    if ch<>#0 then
     begin
      window(5,3,75,18);
      textattr:=black shl 4+Cyan;
      clrscr;
      case ch of
      #49:Begin
          TextAttr:=Black shl 4+Cyan;
          ClrScr;

          readln(pr);
          if pr='1' then
           begin

          end;
         if pr= '2' then
          begin

          end;

         Readkey;
        End;
      #50:Begin
           TextAttr:=black shl 4+Yellow;

           Readkey;
          End;
      #51:Begin

           Readkey;
          End;
       #27:exit;
      End;
     end;
 until(ch=#27);
 window(1,1,80,25);
 textattr:=Old_Color;
 clrscr;
END.

[IUnknown]

Не знаю, у меня, FPC нормально компилирует этот код (причем в любом режиме). А вот Turbo Pascal - отказывается. Для совместимости с TP можно заменить Length на High:

function menu(TA : byte; const items : array of string) : integer;
var
   i : integer;
   ch : char;
begin
   TextAttr := TA;
   clrscr;
   for i := 0 to High(items) do
   begin
      gotoxy(11, 4 + i);
      write(items[ i ]);
   end;
   gotoxy(12, 2);
   write(' Your choice : ');
   repeat
      ch := readkey;
   until (Ord(ch) - Ord('0')) in [1 .. High(items) + 1];
   menu := Ord(ch) - Ord('0');
end;

Сообщение отредактировано: IUnknown - 26.11.2011 22:06

[INZA]

Не знаю, у меня, FPC нормально компилирует этот код (причем в любом режиме). А вот Turbo Pascal - отказывается. Для совместимости с TP можно заменить Length на High:

function menu(TA : byte; const items : array of string) : integer;
var
   i : integer;
   ch : char;
begin
   TextAttr := TA;
   clrscr;
   for i := 0 to High(items) do
   begin
      gotoxy(11, 4 + i);
      write(items[ i ]);
   end;
   gotoxy(12, 2);
   write(' Your choice : ');
   repeat
      ch := readkey;
   until (Ord(ch) - Ord('0')) in [1 .. High(items) + 1];
   menu := Ord(ch) - Ord('0');
end;

почему то когда так сделал пропал пункт Exit,не скажете почему?
всё не надо я сделал

Сообщение отредактировано: INZA - 11.12.2011 23:00