Простенькая программа на 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
Привет!Спасибо тебе за программу.Я, к сожалению, не могу проверить как она работает, но надеюсь, что исправно. Интересный у тебя сайт, скачиваю твою»Красоту во все эпохи»,ты не против?
Думаю, если бы я был против, то просто не стал её выкладывать )
ВСЕ РАБОТАЕТ!!! прикольный снеговик))))
ааааааааааа! пасибо! теперь 2 не получу))
можете показать картинку етого снеговика ?!
Большое спасибо снеговик действительно получился!
Я получила 5 спасибо=)))))))))))))))))))))