Рисунок на qbasic
Формулировка задачи:
Помогите пожалуйста, ласт задание осталось.
Повторить рисунок в qBasic.
Решение задачи: «Рисунок на qbasic»
textual
Листинг программы
- CLS
- SCREEN 11
- WINDOW (-12, 9)-(12, -9)
- CIRCLE (0, 0), 6, , , , .5
- CIRCLE (0, 0), .8
- CIRCLE (6, 0), .8
- CIRCLE (-6, 0), .8
- CIRCLE (3, 2.5), .8
- CIRCLE (-3, 2.5), .8
- CIRCLE (3, -2.5), .8
- CIRCLE (-3, -2.5), .8
- CIRCLE (0, 8), .8
- CIRCLE (0, -8), .8
- LINE (0, 8)-(6, 0)
- LINE (0, 8)-(-6, 0)
- LINE (0, 8)-(3, 2.5), , , &HFFF0
- LINE (0, 8)-(3, -2.5)
- LINE (0, 8)-(-3, 2.5), , , &HFFF0
- LINE (0, 8)-(-3, -2.5)
- LINE (0, -8)-(6, 0)
- LINE (0, -8)-(-6, 0)
- LINE (0, -8)-(3, 2.5), , , &HFFF0
- LINE (0, -8)-(3, -2.5)
- LINE (0, -8)-(-3, 2.5), , , &HFFF0
- LINE (0, -8)-(-3, -2.5)
- LINE (0, -8)-(0, 8)
- END
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д