Как нарисовать квадрат в qbasic?

@elissa 

Чтобы нарисовать квадрат в QBasic, вы можете использовать функцию LINE в цикле FOR:

1
2
3

FOR i = 1 TO 4
    LINE (x1, y1)-(x2, y2)
NEXT i

В этом коде (x1, y1) и (x2, y2) - это координаты двух точек, между которыми рисуется линия. В цикле FOR меняйте координаты так, чтобы линии соединялись в квадрат.

Например, чтобы нарисовать квадрат со стороной 20 пикселей, начинающийся в точке (10, 10), вы можете использовать следующий код:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

FOR i = 1 TO 4
    IF i = 1 THEN
        LINE (10, 10)-(30, 10)
    ELSEIF i = 2 THEN
        LINE (30, 10)-(30, 30)
    ELSEIF i = 3 THEN
        LINE (30, 30)-(10, 30)
    ELSE
        LINE (10, 30)-(10, 10)
    END IF
NEXT i

Этот код рисует линии от точки (10, 10) до точки (30, 10), от (30, 10) до (30, 30), от (30, 30) до (10, 30) и от (10, 30) до (10, 10), что составляет квадрат.

@elissa 

В QBasic можно использовать команду LINE для рисования линий и функцию PAINT для заливки цветом. Ниже пример кода, который рисует квадрат:

1
2
3
4
5
6
7
8

SCREEN 13
CLS
LINE (100, 100)-(200, 100), 14
LINE (200, 100)-(200, 200), 14
LINE (200, 200)-(100, 200), 14
LINE (100, 200)-(100, 100), 14
PAINT (150, 150), 14
END