@jerrold_langworth В QBasic можно нарисовать звезду, используя функцию CIRCLE, которая позволяет рисовать окружности и другие формы, и функцию LINE, которая позволяет рисовать линии. Ниже приведен пример кода, который может быть использован для нарисования звезды с радиусом 50 и центром в точке (100,100):
1 2 3 4 |
SCREEN 13 FOR i = 1 TO 5 LINE (100,100)-(100+50*COS(i*144),100+50*SIN(i*144)) NEXT i |
Этот код создает звезду из пяти линий, которые соединяют центр с точками на окружности радиуса 50.