Лекция: Цикл WHILE

Задание 1

Public Class frmPiramid

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

End

End Sub

Private Sub btnPusk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPusk.Click

Dim SOsn, Shag, X0, Y0, Dlina As Long

Dim picGraphics As Graphics

picGraphics = picPiramid.CreateGraphics()

Dim rnd As New Random()

X0 = picPiramid.Width / 2

Y0 = picPiramid.Height / 2

SOsn = Convert.ToInt32(txtSOsn.Text)

Shag = Convert.ToInt32(txtShag.Text)

Dlina = Math.Sqrt(SOsn)

Do

Dim RndBrush = New SolidBrush(Color.FromArgb(rnd.NextDouble * 255, rnd.NextDouble * 255, rnd.NextDouble * 255))

picGraphics.FillRectangle(RndBrush, Convert.ToInt16(X0 — Dlina / 2), Convert.ToInt16(Y0 — Dlina / 2), Dlina, Dlina)

Dlina = Dlina — Shag

Loop While Dlina > 0

End Sub

End Class

Задание 2

Составьте программу, в ходе выполнения которого на картинке будет нарисован треугольный тоннель в перспективе с площадью окна S кв.мм. Начальный размер окна AхH мм. Размер ступени dF мм.

Задание 3

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