Вывести на печать, используя функции SPACE и STRING в цикле- QBasic(Бейсик)

disel
1
2
3
4
5
# * * * * *
# # * * * *
# # # * * *
# # # # * *
# # # # # *
1
2
3
4
5
6
CLS
n = 5
FOR i = 1 TO n
    PRINT STRING$(i, 35);
    PRINT STRING$(n - i + 1, 42)
NEXT

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

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

Leave a Comment