создаю хо Опции

[maksimla]

Вот дома сижу делать нечего и решил свою програмку крестики нолики создать
запускал на free pascal 2.2.4 все нормально запустилась а на free pascal 2.4.0 чегото отказала
когда запустил все нормально сперва вырал крестик или нолик и потом со стрелками его таскал хорошо
Неполучилось при нажатии enter записать данную в масив об этом поле както ненажимался enter и как исправить?

 program informacija;
     uses graph,crt;
     var tvarkykle, grafine_veiksena: integer;
          x1,y1,x2,y2,i,x,y: integer;
          mas:array [1..3,1..3] of 0..2;
        c:char;
 procedure tabl;
   begin
     SetBkcolor(15);
     ClearDevice;
     setcolor(16);
     line(500,300,500,480);
     line(500,300,680,300);
     line(500,480,680,480);
     line(680,300,680,480);
     line(560,300,560,480);
     line(620,300,620,480);
     line(500,360,680,360);
     line(500,420,680,420);
   end;

   begin
     tvarkykle := detect;
     initgraph(tvarkykle, grafine_veiksena, '');


     for x:=1 to 3 do
      for y:=1 to 3 do
       mas[x,y]:=0;

      setcolor(4);
       SetTextStyle  (1, 0, 2);
      OutTextXY (100, 400, 'Laba diena prasom issirinkti  "X" arba "O" ir pradeti zaidima ');

      i:=0;

      repeat
      c:='.';
      c:= readkey;;
    case upcase(c) of
    'X':i:=1;
    'O':i:=2;
    end;
    until (i=1) or (i=2);

     tabl;

     x1:=565;
     y1:=365;
     x2:=615;
     y2:=410;

      x:=2;
      y:=2;
    repeat
     if i=1 then begin  setcolor(4); SetTextStyle  (1, 0, 6); OutTextXY (x1, y1, 'X ') end;
     if i=2 then begin  setcolor(1); SetTextStyle  (1, 0, 6); OutTextXY (x1, y1, 'O ') end;
     c:='.';
      c:= readkey;
    if c=chr(0) then
    begin
    c:=readkey;
     case c of
    #72: begin dec(x); if x=0 then x:=3;  SetFillStyle(1,15); Bar(x1,y1,x2,y2);
 y1:=y1-60; y2:=y2-60; if y1 < 305 then begin y1:=425; y2:= 475; end; end;
    #75: begin dec(y); if y=0 then y:=3;  SetFillStyle(1,15); Bar(x1,y1,x2,y2); 
x1:=x1-60; x2:=x2-60; if x1 < 505 then begin x1:=625; x2:= 675; end; end;
    #77: begin inc(y); if y=4 then y:=1;  SetFillStyle(1,15); Bar(x1,y1,x2,y2);
 x1:=x1+60; x2:=x2+60; if x1 > 625 then begin x1:=505; x2:= 555; end; end;
    #80: begin inc(x); if x=4 then x:=1;  SetFillStyle(1,15); Bar(x1,y1,x2,y2);
 y1:=y1+60; y2:=y2+60; if y1 > 425 then begin y1:=305; y2:= 355; end; end;
    #13:  mas[x,y]:=1;
    end;
    end;
    gotoXY (1,1);
    write('x= ',x,' y:= ',y,' mas[',x,',',y,'] = ',mas[x,y]);
    until c=#27;
     closegraph;
   end. 

Сообщение отредактировано: maksimla - 7.08.2010 18:01

[maksimla]

все понел где у меня ошибка исправил

[lines]

покажи что полочилосьjava script:emoticon(':)', 'smid_1')[color=#FF0000]