шахматная доска в qbasic

шахматная дощечка в qbasic

Задать свой вопрос
1 ответ
SCREEN 9
Y = 20
FOR J = 1 TO 8
    FOR I = 1 TO 8
        X = X + 20
        IF C = 4 THEN C = 14 ELSE C = 4
        LINE (X, Y)-(X + 20, Y + 20), C, BF
    NEXT I
    Y = Y + 20
    X = 0
    IF C = 4 THEN C = 14 ELSE C = 4
NEXT J
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт