Нарисовать цель или мишень- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
CLS
SCREEN 9
LINE (150, 175)-(450, 175)
LINE (300, 25)-(300, 325)
FOR i = 1 TO 6
    r = i * 25
    CIRCLE (300, 175), r, , , , 1
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment