Правка рисунка QBasic
Формулировка задачи:
Здравствуйте, надеюсь это моя последняя тема, произошла небольшая проблема с выводам рисунка в окно ответа, кажется центральный серый шар меньше или находится ниже заданного рисунка, прошу проверить мой рисунок.
Заданный рисунок:
Мой код:
Заранее, спасибо.
Листинг программы
- CLS
- CIRCLE (180, 100), 30, 11,
- PAINT (180, 100), 11
- LINE (180, 80)-(180, 60)
- LINE (170, 60)-(190, 60)
- LINE (170, 60)-(180, 40)
- LINE (180, 40)-(190, 60)
- PAINT (180, 50), 0
- CIRCLE (260, 40), 30, 2
- PAINT (260, 40), 2
- LINE (200, 90)-(250, 50)
- CIRCLE (180, 220), 30, 15
- PAINT (180, 220), 15
- LINE (180, 120)-(180, 210)
- CIRCLE (260, 180), 30, 14
- PAINT (260, 180), 14
- LINE (260, 60)-(260, 170)
- LINE (200, 210)-(250, 170)
- CIRCLE (420, 40), 30
- LINE (290, 40)-(390, 40)
- CIRCLE (420, 180), 30, 4
- PAINT (420, 180), 4
- LINE (420, 60)-(420, 160)
- LINE (280, 180)-(390, 180)
- LINE (270, 170)-(290, 150)
- LINE (280, 140)-(290, 150)
- LINE (290, 150)-(300, 160)
- LINE (280, 140)-(300, 140)
- LINE (300, 160)-(300, 140)
- CIRCLE (340, 220), 30, 5
- PAINT (340, 220), 5
- LINE (200, 220)-(310, 220)
- LINE (370, 215)-(400, 190)
- LINE (370, 220)-(400, 220)
- LINE (400, 210)-(400, 230)
- LINE (400, 210)-(410, 220)
- LINE (400, 230)-(410, 220)
- CIRCLE (280, 120), 15, 8
- PAINT (280, 120), 8
- CIRCLE (340, 100), 30, 1
- PAINT (340, 100), 1
- LINE (340, 120)-(340, 200)
- LINE (200, 100)-(310, 100)
- LINE (350, 80)-(395, 50)
- END
Решение задачи: «Правка рисунка QBasic»
textual
Листинг программы
- CIRCLE (300, 130), 30, 8
Объяснение кода листинга программы
В данном коде на языке QBasic выполняется команда рисования окружности (CIRCLE) с указанием координат центра (300, 130), радиуса (30) и цвета (8). Список действий:
- Команда CIRCLE
- Указание координат центра (300, 130)
- Указание радиуса (30)
- Указание цвета (8)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д