Применение циклов в Basiс-256

Операторы цикла в графике применяются, когда необходимо выполнить повторяющиеся действия: нарисовать несколько параллельных или выходящих из одной точки линий, концентрические окружности и т. п.

Программа «Шахматная доска»

clg

x=0

y=0

for m=0 to 3

for n=0 to 3

rect x,y,30, 30

x=x+60

next n

x=30

for k=0 to 3

rect x, y+30, 30, 30

x=x+60

next k

x=0

y=y+60

next m

Применение циклов в графике Basic-256

Презентация учителя информатики и ИКТ

Якушиной И. В.,

Рязань, 2013 год

• Операторы цикла в графике применяются, когда необходимо выполнить повторяющиеся действия: нарисовать несколько параллельных или выходящих из одной точки линий, концентрические окружности и т. п.

Программа «Шахматная доска»

clg

x=0

y=0

for m=0 to 3

for n=0 to 3

rect x,y,30, 30

x=x+60

next n

x=30

for k=0 to 3

rect x, y+30, 30, 30

x=x+60

next k

x=0

y=y+60

next m

Программа «Мишень»

clg

x=150

y=150

r=150

for n=0 to 3

color 0,0,0

circle x,y,r

color 255,255,255

circle x,y,r-20

r=r-40

next n

Программа «Привет»

  clg

color red font "Tahoma",33,100 text 50,50,"Привет." font "Impact",33,50 text 50,100,"Привет." font "Courier New",33,50 text 50,150,"Привет."

Программа «Муаровый узор»

clg color black for t = 1 to 300 step 3     line 0,0,300,t     line 0,0,t,300 next t

Программа «Калейдоскоп»

  clg   fastgraphics for t = 1 to 100       r = int(rand * 256)     g = int(rand * 256)      b = int(rand * 256)     x = int(rand * 300)     y = int(rand * 300)     h = int(rand * 100)     w = int(rand * 100)     color rgb(r,g,b)     rect x,y,w,h     rect 300-x-w,y,w,h     rect x,300-y-h,w,h     rect 300-x-w,300-y-h,w,h next t refresh

Программа «Полет мячика»

•   fastgraphics clg   # начальная позиция мяча x = rand * 300 y = rand * 300   # size of ball   r = 10 # скорость по направлениям х и y dx = rand * r + 2 dy = rand * r + 2 color green rect 0,0,300,300 while true # стираем старый мяч     color white     circle x,y,r # вычисляем новую позицию     x = x + dx     y = y + dy # столкновение с левой и правой границей     if x 300 then         dx = dx * -1         sound 1000,50     end if # столкновение с верхней и нижней границей     if y 300 then         dy = dy * -1         sound 1500,50     end if # рисуем новый мяч     color red     circle x,y,r # обновляем окно графики     refresh end while

Задание

• Изобразите с помощью операторов цикла следующие рисунки:

Благодарю за внимание.

• Некоторые материалы взяты на dvoek.net.ukoz