Форум: "Потрепаться";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
ВнизЛинии Найти похожие ветки
← →
anod (2001-11-19 22:59) [26]Ну я пишу (по 1 спосбу):
if (x<4)and(x>1)and(y<4)and(y>1)and
(rp[x+1,y]>=min)and(rp[x-1,y]>=min)and
(rp[x,y+1]>=min)and(rp[x,y-1]>=min)then
begin
Form1.Caption:="Нельзя!";
break;
end;
где мин - это последнее минимальное число, вокруг текущей клетки.
Вроед, не работает.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c