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

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

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

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