IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> создаю хо
сообщение
Сообщение #1


Знаток
****

Группа: Пользователи
Сообщений: 324
Пол: Мужской
Реальное имя: maksim

Репутация: -  1  +


Вот дома сижу делать нечего и решил свою програмку крестики нолики создать
запускал на 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© 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 -


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Знаток
****

Группа: Пользователи
Сообщений: 324
Пол: Мужской
Реальное имя: maksim

Репутация: -  1  +


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


--------------------
Учусь первый год на программиста в колледже. Учусь на втором курсе в школе программирования при научно-исследовательском институте математики и информатики.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: влад

Репутация: -  0  +


покажи что полочилосьjava script:emoticon(':)', 'smid_1')[color=#FF0000]
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 14:25
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name