Программисты!хелп!как в qbasic нарисовать горизонтальные линии через 15 ** весь экран?там...

0 голосов
53 просмотров

Программисты!хелп!как в qbasic нарисовать горизонтальные линии через 15 на весь экран?там оператор цикла "для"...


Информатика (69 баллов) | 53 просмотров
Дан 1 ответ
0 голосов

SCREEN 9
FOR I = 1 TO 22
    Y = Y + 15
    LINE (0, Y)-(640, Y)
NEXT I