![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 15.05.2010
Сообщений: 3
|
![]()
второй день убиваюсь над заданием этим.помогите кто-нибудь.=(( Вот задача
Создайте приложение ,которое выводит семейство окружностей по нижним частям левой и правой диагонали матрицы. Тоесть можно взять любую матрицу и должен получится треугольник внизу из кружков. ![]() |
![]() |
![]() |
![]() |
#2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
![]()
А что конкретно не получается?
Где ваши наработки? |
![]() |
![]() |
![]() |
#3 |
Регистрация: 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. |
![]() |
![]() |
![]() |
#4 |
Регистрация: 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 |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вложенные циклы | НеучЪ | Паскаль, 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 |