x = GraphicsWindow.Width y = GraphicsWindow.Height uzor1() n=21 uzor2() n=x-30 uzor2() Sub uzor1 For i = 1 To x Step 20 GraphicsWindow.DrawEllipse (i, 20, 15, 15) EndFor EndSub Sub uzor2 For j = 0 To y Step 20 GraphicsWindow.DrawEllipse (n, j, 15, 15) EndFor EndSub
С помощью слова Sub описывается подпрограмма. Это - часть программы, которая описывается отдельно и вызывается с помощью круглых скобок.
Допишите программу таким образом, чтобы "узор" из кружков рисовался по всем четырем сторонам окна.
Комментариев нет:
Отправить комментарий