Нарисовать пирамиду — QBasic(Бейсик) — Справочник разработчика ИС

CLS
SCREEN 9
FOR i = 1 TO 7
    LINE (0 + k1, 350 - k2)-(640 - k1, 305 - k2 - 1), , BF
    k1 = i * 45
    k2 = i * 49
NEXT

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

Нарисовать пирамиду — QBasic(Бейсик)