Нарисовать картинку с помощью рекурсии - Visual Basic .NET
Формулировка задачи:
Помогите пожалуйста составить программу чтоб рисовалась такая картинка
Решение задачи: «Нарисовать картинку с помощью рекурсии»
textual
Листинг программы
Public Class Form1 Private Sub recursiya(ByVal x As Integer, ByVal y As Integer, ByVal d As Integer, ByVal n As Integer, ByRef g As Graphics) Dim dd = 2 / 3 * n * d Dim r = d \ 2 If n = 0 Then Exit Sub End If g.DrawEllipse(Pens.White, x - r, y - r, d, d) recursiya(x, y - dd, r, n - 1, g) recursiya(x + dd, y, r, n - 1, g) recursiya(x, y + dd, r, n - 1, g) recursiya(x - dd, y, r, n - 1, g) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim g As Graphics = Me.CreateGraphics g.Clear(Color.Black) recursiya(Me.ClientSize.Width \ 2, Me.ClientSize.Height \ 2, 60, 4, g) End Sub End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д