Программа на QBasic, рисуем снеговика

15 ноября 2009

Простенькая программа на QBasic, программа рисования, рисует снеговика. 

SCREEN 12
CIRCLE (300, 150), 30
CIRCLE (300, 150), 15, 12, 3.14 + 3.14 / 4, 3 * 3.14 / 2 + 3.14 / 4
CIRCLE (290, 140), 5, 6
CIRCLE (310, 140), 5, 6
LINE (300, 140)-(320, 160), 12
LINE (298, 150)-(320, 160), 12
LINE (300, 140)-(298, 150), 12
CIRCLE (300, 230), 50
CIRCLE (300, 350), 70
CIRCLE (370, 230), 20
CIRCLE (230, 230), 20
CIRCLE (230, 415), 30, 15, , , .6
CIRCLE (370, 415), 30, 15, , , .6
LINE (372, 150)-(372, 400), 6
LINE (372, 150)-(300, 100), 6
LINE (372, 150)-(340, 100), 6
LINE (372, 150)-(380, 100), 6
LINE (372, 150)-(420, 100), 6
CIRCLE (300, 210), 5
CIRCLE (300, 250), 5
CIRCLE (300, 300), 5
CIRCLE (300, 340), 5
CIRCLE (300, 380), 5
PAINT (300, 210), 5, 15
PAINT (300, 250), 5, 15
PAINT (300, 300), 5, 15
PAINT (300, 340), 5, 15
PAINT (300, 380), 5, 15
PAINT (290, 140), 1, 6
PAINT (310, 140), 1, 6

Отзывов (6) на «Программа на QBasic, рисуем снеговика»

  1. Am 25 декабря 2009 в 22:05

    Привет!Спасибо тебе за программу.Я, к сожалению, не могу проверить как она работает, но надеюсь, что исправно. Интересный у тебя сайт, скачиваю твою»Красоту во все эпохи»,ты не против?

  2. Keyn 25 декабря 2009 в 22:24

    Думаю, если бы я был против, то просто не стал её выкладывать )

  3. КРЯК 24 марта 2010 в 20:49

    ВСЕ РАБОТАЕТ!!! прикольный снеговик))))

  4. anonim 30 ноября 2011 в 14:26

    ааааааааааа! пасибо! теперь 2 не получу))

  5. (keril : ) 7 декабря 2011 в 19:05

    можете показать картинку етого снеговика ?!

  6. МАНЯША 2 мая 2012 в 19:06

    Большое спасибо снеговик действительно получился!
    Я получила 5 спасибо=)))))))))))))))))))))

RSS-комментарии

Оставьте свой отзыв

Подписаться, не комментируя