ilushkabond

Необходимо построить фрактал-лестницу

28.02.2012, 23:08. Показов 1792. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добрый вечер!
Необходимо построить фрактал-лестницу в VB.Net:
Начальные координаты задаются через NumericUpDown1,2,3,4 соответственно. Строятся линии и получается прямой угол:
_
..|
Так^(. стоят вместо пробела )
Потом лестница "уменьшается" в два раза и на каждой середине отрезков строится(сверху и справа) строится такая же копия, только в два раза меньше.
Вот что есть, но код не работает нормально.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Class Form1
    Sub line(x1%, y1%, x2%, y2%, c%)
        If c < NumericUpDown5.Value Then Exit Sub
        Dim x1n, y1n, x2n, y2n As Int32
        Dim g As Drawing.Graphics = CreateGraphics()
        g.DrawLine(Pens.Black, x1, y1, x2, y1)
        g.DrawLine(Pens.Black, x2, y1, x2, y2)
        g.DrawLine(Pens.Black, x1n, y1n, x2n, y1n)
        g.DrawLine(Pens.Black, x2n, y1n, x2n, y2n)
        'Левый верхний угол
        line(x1, y1 / 2, 3 * x2 \ 4, y1 / 2, c / 2)
        line(x2, 3 * y2 / 4, 5 / 4 * x2, y2, c / 2)
        g.Dispose()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Refresh()
        Dim x1, y1, x2, y2, size As Int32
        x1 = CInt(NumericUpDown1.Value)
        y1 = CInt(NumericUpDown2.Value)
        x2 = CInt(NumericUpDown3.Value)
        y2 = CInt(NumericUpDown4.Value)
        size = CInt(NumericUpDown6.Value)
        line(x1, y1, x2, y2, size)
    End Sub
End Class
Заранее спасибо
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
28.02.2012, 23:08
Ответы с готовыми решениями:

Построить фрактал
Pascal ABC

Построить фрактал шестиугольник Серпинского
Построить фрактал шестиугольник Серпинского

Построить геометрический фрактал "Коробка"
Доброго времени суток! Пожалуйста помогите построить геометрический фрактал &quot;коробка&quot; может у кого есть готовый код? Языки...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
28.02.2012, 23:08
Помогаю со студенческими работами здесь

Задача про Лестницу
Условия формулируются так: Есть лестница высотой в n ступенек (плюс «нулевая» - площадка, где мы стоим вначале). На каждой ступеньке...

Комбинаторика подъёма на лестницу
Всем привет! Имеется лестница из 10 ступенек, подниматься можно наступая на каждую ступеньку или через одну. Вывести на экран все варианты...

Комбинаторика подъёма на лестницу
Всем привет! Имеется лестница из 10 ступенек, подниматься можно наступая на каждую ступеньку или через одну. Вывести на экран все варианты...

Массив описывает лестницу
Дан упорядоченный массив целых чисел. Он описывает лестницу, разность соседних элементов - высота ступеней. Имеется некое существо,...

Нарисовать лестницу из восьми перекладин
Создать программу, которая реализует графическими средствами языка программирования Pascal такое статическое изображение: лестницу из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

Новые блоги и статьи
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определенном условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru