Показать сообщение отдельно
Старый 15.12.2005, 01:40   #57
Kain
ПроЭктировщик
 
Регистрация: 03.12.2005
Сообщений: 111
Написано 0 полезных сообщений
(для 0 пользователей)
Хорошо

Graphics 200 ,200 ,32, 3
Dim pole(7,7)  
For y=0 To 7 	
 For x=0 To 7 
;////формула: по координатам находим порядковый номер
pole (x,y) = y*8+x+1 	
Next  
Next 

;////проверка   

While Not KeyHit(1)    	
cell = Input ("ß÷åêà ")  

;////обратное действие: по порядковому номеру находим координаты

x = cell Mod 8 -1 
y = (cell - cell Mod 8) / 8
If cell = o Then Exit End  
Print " pole =" + pole(x,y) 
Print "x = " + x +" y = "+y 
Wend
Может кто чё заметит не логичное
етот код был набран до совета, поетому вопрос
просто юзаеш как переменую => m(0,0)=4
я могу не только число, но и объект туда-ма затюхать?
и можно ли создать такую матрицу

dim pole(7,7,cell)
;//// cell там лежат :пустая клетка, объект компа, объект мой
зы: и подскажите чё делать с русским языком
Input ("ß÷åêà ")
такая херь после SAVE
(Offline)
 
Ответить с цитированием