Програмирование на языке Basic. Федоряка Н.И. - 43 стр.

         c=3
         c1 = 8
         c2 = 5
         c3 = 6

         REM Снег
         FOR i = 1 TO 300
         PSET (RND * 640, RND * 480), 1
         NEXT

         REM Сугроб
         FOR i = 1 TO 20
         LINE (0 + 2 * i, y + 3 * r + 61 - i)-(640 - 2 * i, y + 3 * r + 61 - i), 1
         NEXT

         REM Тело снеговика
         CIRCLE (x, y - 80), r - 20, c
         CIRCLE (x, y), r, c
         CIRCLE (x, y + 120), r + 20, c
         CIRCLE (x - 52, y - 30), 10, c
         CIRCLE (x + 52, y - 30), 10, c

         PAINT (x, y - 80), c, c
         PAINT (x, y), c, c
         PAINT (x, y + 120), c, c
         PAINT (x - 52, y - 30), c, c
         PAINT (x + 52, y - 30), c, c

         REM Оформление лица
         CIRCLE (x - 15, y - 90), 2, 1
         PAINT (x - 15, y - 90), 1, 1
         CIRCLE (x + 15, y - 90), 2, 1
         PAINT (x + 15, y - 90), 1, 1
         CIRCLE (x, y - 80), 10, 4, , , .5
         PAINT (x, y - 80), 4, 4
         CIRCLE (x, y - 75), 20, 4, 4, 6, 0.5

         REM Метла
         LINE (x - 50, y - 100)-(x - 54, y + 100), c1, BF
         FOR i = 1 TO 20
         LINE (x - 53, y - 100)-(x - 53 - 40 * RND + 20, y - 100 - 40 * RND), c1
         NEXT


                                                                                     43


PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com