Рисунок на 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.75 из 5