Предмет: Информатика,
автор: Ksenon66
Написать программу, в результате выполнения которой слово “QBASIC” пробежит по экрану слева направо и справа налево.
Ответы
Автор ответа:
0
CLS
(COLOR 10) - для красоты
(a:) - слово будет двигаться бесконечно
FOR i = 1 TO 75
CLS
LOCATE 12, i
PRINT "QBasic"
FOR k = 1 TO 20000
NEXT k
NEXT i
FOR i = 75 TO 1 STEP -1
CLS
LOCATE 12, i
PRINT "QBasic"
FOR k = 1 TO 20000
NEXT k
NEXT i
(GOTO a) - слово будет двигаться бесконечно
(Чем больше выделенное число, тем медленнее двигается слово, на разных ПК по-разному)
(COLOR 10) - для красоты
(a:) - слово будет двигаться бесконечно
FOR i = 1 TO 75
CLS
LOCATE 12, i
PRINT "QBasic"
FOR k = 1 TO 20000
NEXT k
NEXT i
FOR i = 75 TO 1 STEP -1
CLS
LOCATE 12, i
PRINT "QBasic"
FOR k = 1 TO 20000
NEXT k
NEXT i
(GOTO a) - слово будет двигаться бесконечно
(Чем больше выделенное число, тем медленнее двигается слово, на разных ПК по-разному)
Похожие вопросы
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: Аноним
Предмет: Английский язык,
автор: marahovskaya0
Предмет: История,
автор: БеЛкА21
Предмет: Биология,
автор: Рань