Нарисовать картинку с помощью рекурсии - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы