Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Мопогите с програмой пожайлуста срочно
Procedure pr_knopka;
Var i,k:integer;
Begin
repeat
mousecondition(x,y,lt,rt,ct);
until rt;
rightnum(x,y);
for i:= 1 to 12 do
for k:= 1 to 24 do
if ((pos[i,k].x-7)<x) and (x<(pos[i,k].x+7))
and ((pos[i,k].y-7)<y) and (y<(pos[i,k].y+7))
then if mesto_fishek[i,k]=0
then if mesto_fishek[m,z]=3
then
begin
mesto_fishek[m,z]:=0;
mesto_fishek[i,k]:=1;
end
else
if mesto_fishek[m,z]=4
then
begin
mesto_fishek[m,z]:=0;
mesto_fishek[i,k]:=2;
end;
cleardevice;
setbkcolor(7);
draw_desk;
kubik(c,d);
for i:=1 to 12 do
for k:=1 to 24 do fischka(pos[i,k].x,pos[i,k].y);
End;

Добавлено (23.06.2009, 20:07)
---------------------------------------------
Люде но пожайлуста помогите

Добавлено (23.06.2009, 20:07)
---------------------------------------------
Пожайлуста помогите

1 | Автор: kaplunov | 2009-06-23, 20:07   --------->
Так тебе никто не поможет, хоть напиши, что надо. А то как понять чего ты хочешь? В теме ж не видно длинного заглавия.
2 | Автор: admin | 2009-06-23, 21:14   |  Репутация: [ + 22 ]
  • Страница 1 из 1
  • 1
Поиск: