Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.05.2010, 20:54   #1
Skazka
 
Аватар для Skazka
 
Регистрация: 15.05.2010
Сообщений: 3
По умолчанию вложенные циклы в VB

второй день убиваюсь над заданием этим.помогите кто-нибудь.=(( Вот задача
Создайте приложение ,которое выводит семейство окружностей по нижним частям левой и правой диагонали матрицы. Тоесть можно взять любую матрицу и должен получится треугольник внизу из кружков.
Skazka вне форума Ответить с цитированием
Старый 15.05.2010, 22:24   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

А что конкретно не получается?
Где ваши наработки?
EducatedFool вне форума Ответить с цитированием
Старый 16.05.2010, 06:39   #3
Skazka
 
Аватар для Skazka
 
Регистрация: 15.05.2010
Сообщений: 3
По умолчанию

ну вот я знаю как сделать цельную.допустим вот
Dim c As Long
c = vbCyan
Scale (0, 10)-(10, -10)
FillColor = c
FillStyle = 0
For x = 1 To 5 Step 1
For y = 1 To 12 Step 1
Circle (x, y), 0.2, c
y = y + 1
Next y
Next x
а как исключить какие-то значения я не знаю.

Последний раз редактировалось Skazka; 16.05.2010 в 07:06.
Skazka вне форума Ответить с цитированием
Старый 16.05.2010, 06:53   #4
Skazka
 
Аватар для Skazka
 
Регистрация: 15.05.2010
Сообщений: 3
По умолчанию

смогла сделать эту матрицу только полосками.но у препода это не прокатила к сожалению=\ вот....
Scale (0, 12)-(10, -12)
FillColor = RGB(255, 0, 255)
FillStyle = 0
For x = 1 To 5 Step 5
For y = 1 To 5 Step 5
Circle (x, y), 0.2, vbRed
y = y + 1
Next y
Next x
FillColor = RGB(0, 255, 255)
FillStyle = 0
For x = 2 To 5 Step 5
For y = 1 To 3 Step 1
Circle (x, y), 0.2, vbCyan
y = y + 1
Next y
Next x
FillColor = RGB(255, 0, 255)
FillStyle = 0
For x = 3 To 5 Step 5
For y = 1 To 5 Step 1
Circle (x, y), 0.2, vbRed
y = y + 1
Next y
Next x
FillColor = RGB(0, 255, 255)
FillStyle = 0
For x = 4 To 5 Step 5
For y = 1 To 3 Step 1
Circle (x, y), 0.2, vbCyan
y = y + 1
Next y
Next x
FillColor = RGB(255, 0, 255)
FillStyle = 0
For x = 5 To 5 Step 5
For y = 1 To 5 Step 5
Circle (x, y), 0.2, vbRed
y = y + 1
Next y
Next x
Skazka вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вложенные циклы НеучЪ Паскаль, Turbo Pascal, PascalABC.NET 0 26.04.2010 12:41
Вложенные циклы. Arctopus Помощь студентам 11 20.02.2010 00:02
вложенные циклы!!!! for_tuna Помощь студентам 6 08.12.2009 07:07
вложенные циклы илька Помощь студентам 4 07.12.2009 09:53
Вложенные циклы Chief Паскаль, Turbo Pascal, PascalABC.NET 3 06.01.2009 16:34