Нарисовать окружность, и чтобы ее радиус уменьшался — QBasic(Бейсик)

disel
1
2
3
4
5
SCREEN 12
FOR r = 100 TO 1 STEP -0.5
    CIRCLE (320, 240), r, 15
    CIRCLE (320, 240), r, 0
NEXT

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

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

Leave a Comment