Циклический орнамент

Программы на Бэйсике - графика и циклы. 2-й год обучения.

Программа : «Шары»

SCREEN 7
COLOR 9, 6
FOR I = 20 TO 160 STEP 20
CIRCLE (I, 200 - I), 10
PAINT (I, 200 - I), 10, 9
LINE (250, 170)-(I, 200 - I), 1
NEXT I

Выполнил ученик группы 05
Будукин Денис

Программа : «Домики»

SCREEN 7
COLOR 4, 2
SCREEN 7
COLOR 4, 2
FOR i = 5 TO 320 STEP 40
LINE (i, 120)-(i + 30, 150), 6, B
LINE (i, 120)-(i + 15, 100), 6
PAINT (i + 10, 130), 5, 6
LINE (i + 15, 100)-(i + 30, 120)
LINE (i + 10, 130)-(i + 20, 140), 6, B
PAINT (i + 15, 135), 14, 6
NEXT i
Выполнил ученик группы 05
Кутепов Максим

Программа : «Забор»

SCREEN 7
COLOR 9, 6
FOR i = 10 TO 250 STEP 30
LINE (i, 40)-(i + 20, 180), 4, B
LINE (i + 10, 20)-(i + 20, 40), 4
LINE (i + 10, 20)-(i, 40), 4
PAINT (i + 10, 50), 4
PAINT (i + 10, 30), 3, 4
NEXT i

Выполнил ученик группы 05
Осипов Сергей

Программа : «Воздушные змеи»

SCREEN 7
COLOR 9, 7
FOR i = 10 TO 150 STEP 20
LINE (i, i)-(i + 30, i + 30), 9, B
PAINT (i + 12, i + 12), 5, 9
LINE (i + 30, i)-(240, 30), 10
NEXT

Выполнил ученик группы 05
Романов Юрий

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

SCREEN 7
COLOR 10, 4
FOR I = 150 TO 200 STEP 10
CIRCLE (140, 90), I - 140, 7
LINE (I + 20, 70)-(I, 90), 2
LINE (I, 90)-(I + 20, 110), 2
NEXT I

Выполнил ученик группы 05
Баранов Михаил

Программа : «Пять шаров»

SCREEN 7
COLOR 9, 6
FOR i = 40 TO 240 STEP 50
CIRCLE (i, 60), 20, 5
PAINT (i, 60), 2, 5
LINE (140, 140)-(i, 80), 12
NEXT i

Выполнил ученик группы 05
Маркелов Егор

Программа : «Елочка»

SCREEN 7
COLOR 2, 14
FOR I = 10 TO 130 STEP 30
LINE (140, I)-(70, I + 30)
LINE (140, I)-(210, I + 30)
LINE (70, I + 30)-(210, I + 30)
PAINT (140, I + 20)
CIRCLE (70, I + 35), 5, 4
CIRCLE (115, I + 25), 5, 13
CIRCLE (155, I + 15), 5, 11
CIRCLE (210, I + 35), 5, 12
NEXT I
LINE (135, 180)-(145, 160), 6, B
Выполнила ученица группы 06
Осипова Светлана

Программа : «Ромбы»

SCREEN 7
COLOR 4, 10
FOR i = 40 TO 240 STEP 40
LINE (i, 20)-(i - 30, 90)
LINE (i, 20)-(i + 30, 90)
LINE (i, 170)-(i - 30, 90)
LINE (i + 30, 90)-(i, 170)
CIRCLE (i, 10), 10
PAINT (i, 10), 4
CIRCLE (i, 90), 10
PAINT (i, 90), 4
CIRCLE (i, 180), 10
PAINT (i, 180), 4
NEXT
Выполнили ученики группы 06
Ласица Алексей и Терешин Михаил

Программа : «Орнамент»

SCREEN 7
COLOR 9, 11
FOR I = 40 TO 240 STEP 70
LINE (I, 10)-(I + 50, 40), 4, B
PAINT (I + 10, 20), 9, 4
CIRCLE (I + 25, 95), 30
PAINT (I + 25, 95), 14, 9
LINE (I, 150)-(I + 50, 40), 1
LINE (I, 40)-(I + 50, 150), 1
LINE (I, 150)-(I + 50, 180), 4, B
PAINT (I + 10, 160), 9, 4
CIRCLE (I + 25, 25), 10, 2
CIRCLE (I + 25, 165), 10, 2
PAINT (I + 25, 165), 12, 2
PAINT (I + 25, 25), 12, 2
NEXT I
PRINT CIRCLE PLUS CIRCLE=DOUBLE CIRCLE !(в кавычках)

Выполнил ученик группы 07
Днепров Дмитрий

Программа : «Ромбы»

SCREEN 7
COLOR 5, 5
FOR i = 40 TO 240 STEP 40
CIRCLE (i, 10), 10, 4
PAINT (i, 10), 4, 4
LINE (i, 20)-(i - 30, 90), 14
LINE (i, 20)-(i + 30, 90), 14
LINE (i - 30, 90)-(i, 160), 14
LINE (i + 30, 90)-(i, 160), 14
CIRCLE (i, 90), 10, 14
PAINT (i, 90), 14, 14
CIRCLE (i, 170), 10, 2
PAINT (i, 170), 2, 2
NEXT i

Выполнил ученик группы 07
Днепров Владимир

Программа : «Карусель»

SCREEN 7
COLOR 4, 2
FOR i = 20 TO 260 STEP 30
CIRCLE (i, 20), 10
PAINT (i, 20), 11, 4
CIRCLE (i, 20), 5
LINE (i, 30)-(140, 100), 13
LINE (i - 10, 100)-(i + 10, 160), 14, B
PAINT (i, 110), 12, 14
LINE (i - 10, 170)-(i + 10, 180), , B
PAINT (i, 175)
NEXT i
Выполнил ученик группы 07
Ларягин Дмитрий

Программа : «Цирк»

SCREEN 7
COLOR 9, 1
FOR i = 10 TO 250 STEP 30
LINE (i, 10)-(i + 20, 30), 13, B
PAINT (i + 10, 20), 13, 13
LINE (i + 10, 30)-(140, 160), 9
CIRCLE (i + 10, 170), 5, 14
CIRCLE (i + 10, 170), 10, 12
NEXT i

Выполнила ученица группы 07
Жемчугова Елена

Программа : «Меридианы»

SCREEN 7
COLOR 3, 2
FOR i = 10 TO 290 STEP 20
LINE (i, 50)-(140, 10), 11
LINE (i, 50)-(140, 90), 11
CIRCLE (i, 110), 10, 13
PAINT (i, 110), 4, 13
LINE (i, 130)-(i + 10, 180), 9, B
PAINT (i + 5, 140), 11, 9
NEXT i

Выполнил ученик группы 08
Грунин Виталий

Программа : «Фокус»
SCREEN 7
COLOR 13, 11
FOR i = 20 TO 260 STEP 30
LINE (i, 10)-(i + 10, 60)
LINE (i + 20, 10)-(i + 10, 60)
CIRCLE (i + 10, 70), 5
PAINT (i + 10, 70), 4, 13
CIRCLE (i + 10, 70), 15
PAINT (i + 10, 78), 14, 13
LINE (i + 10, 80)-(150, 90)
LINE (i, 120)-(150, 90)
LINE (i, 140)-(i + 20, 120), , B
PAINT (i + 10, 130), 15, 13
LINE (i + 20, 140)-(150, 180)
NEXT i
Выполнил ученик группы 08 Николаев Андрей

Программа : «Фейерверк»
SCREEN 7
COLOR 9, 1
FOR i = 40 TO 240 STEP 50
CIRCLE (i, 30), 10, 5
PAINT (i, 30), 12, 5
CIRCLE (i, 30), 20, 5
PAINT (i, 15), 4, 5
LINE (i - 10, 80)-(i + 10, 100), 5, B
PAINT (i, 90), 10, 5
CIRCLE (i, 90), 5
CIRCLE (i, 90), 20, 5
PAINT (i + 10, 100), 14, 5
PAINT (i + 12, 90), 14, 5
CIRCLE (i, 150), 10, 5
PAINT (i, 150), 10, 5
CIRCLE (i, 150), 20, 5
PAINT (i + 12, 150), 2, 5
LINE (i, 50)-(140, 90), 6
LINE (i, 130)-(140, 90), 6
NEXT i
Выполнил ученик группы 08 Новохацкий Егор

Программа : «Цветы»

SCREEN 7
COLOR 4, 11
FOR I = 50 TO 210 STEP 80
LINE (I, 10)-(I + 20, 40), 12, B
PAINT (I + 10, 20), 10, 12
CIRCLE (I + 10, 80), 35, 2
PAINT (I + 10, 90), 14, 2
CIRCLE (I + 10, 80), 20, 2
PAINT (I + 10, 90), 4, 2
CIRCLE (I + 10, 80), 10, 2
PAINT (I + 10, 85), 12, 2
CIRCLE (I + 10, 80), 5, 2
PAINT (I + 10, 80), 2, 2
LINE (140, 80)-(I + 10, 40), 2
LINE (140, 160)-(I + 10, 110), 2
NEXT I
Выполнил ученик группы 08 Чичков Сергей

Copyright © 2002-2004 Alex Rovnov
Детский Центр ЭНИЦ (ДЦ ЭНИЦ)

Последнее обновление: 12.09.2004

Письмо Web-masterу

Ссылка на сайт обязательна при воспроизведении информации.

Хостинг от uCoz