Pixilang: различия между версиями

Содержимое удалено Содержимое добавлено
Строка 529:
frame(110)
if N>0 {go time}
 
 
===Пример №4. Массив по кругу===
 
// число цифр в массиве
scoka=16
num=7
xcenter=0
ycenter=0
radius=100
tokill=0
//создаем массив
x=new_array(scoka)
nabivka
 
// начало цикла
time:
clear(SNEG)
i=0
lp:
angle=64+256*i/scoka
x0 = xcenter+radius*ccos(angle)/256
y0 = ycenter+radius*csin(angle)/256
xx=x[i]
print("$xx",x0,y0,RED)
i+1
if i<scoka {go lp}
//print("$tokill",-20,-10,RED)
frame(1000)
if scoka=1 {go time}
tokill=(tokill+num)%scoka
killer
go time
 
nabivka:
//цикл набивки массива
i=0
lood:
//присваиваем содержимое массива переменной
x[i]=i
//увеличиваем номер ячейки
i+1
//проверка цикла
if i<scoka{go lood}
ret
 
 
killer:
i=tokill
if i>=scoka {ret}
scoka-1
lkiller:
//присваиваем содержимое массива переменной
x[i]=x[i+1]
//увеличиваем номер ячейки
i+1
//проверка цикла
if i<scoka{go lkiller}
ret
 
==Ссылки==