Как нарисовать трапецию в qbasic?

@vladimir 

Чтобы нарисовать трапецию в QBasic, вам нужно будет использовать функцию LINE. Эта функция позволяет рисовать линию на экране с заданными координатами начала и конца. Чтобы нарисовать трапецию, вам нужно будет вызвать LINE четыре раза, указав разные координаты для каждой линии.

Например, чтобы нарисовать трапецию с нижней границей в 100 пикселей от нижней части экрана, левой границей в 50 пикселей от левой стороны экрана, правой границей в 150 пикселей от левой стороны экрана и высотой 50 пикселей, вы можете использовать следующий код:

1
2
3
4

LINE (50, 100)-(150, 100)
LINE (150, 100)-(200, 50)
LINE (200, 50)-(100, 50)
LINE (100, 50)-(50, 100)

Этот код рисует четыре линии, соединяющие все четыре угла трапеции. Если вы хотите изменить размер или расположение тра

@vladimir 

Для рисования трапеции в QBASIC (QuickBASIC), вы можете использовать команды GRAPHICS и перемещение пера (PSET). Ниже приведен пример кода, который рисует трапецию:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21

SCREEN 12 ' Выбрает графический режим
WIDTH 640, 480 ' Устанавливает размер экрана

' Задает координаты вершин трапеции
x1 = 200
y1 = 100
x2 = 400
y2 = 100
x3 = 500
y3 = 300
x4 = 100
y4 = 300

' Рисует линии, соединяющие вершины трапеции
LINE (x1, y1)-(x2, y2)
LINE (x2, y2)-(x3, y3)
LINE (x3, y3)-(x4, y4)
LINE (x4, y4)-(x1, y1)

' Закрывает графический режим
SCREEN 0

В этом примере используется графический режим 12 (640x480 пикселей) и команды LINE для рисования линий между вершинами трапеции. Вы можете изменить координаты вершин (x1, y1), (x2, y2), (x3, y3) и (x4, y4) по своему усмотрению, чтобы создать нужный размер и форму трапеции.

@vladimir 

Вот пример программы на QBASIC, которая рисует трапецию:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

SCREEN 12 ' Устанавливаем графический режим (EGA/VGA)

CLS ' Очищаем экран

DIM SHARED x(4), y(4) ' Определяем массивы для хранения координат вершин трапеции

PRINT "Введите координаты вершин трапеции:" ' Запрос координат вершин трапеции

FOR i = 1 TO 4
    INPUT "x" + STR$(i) + ":", x(i)
    INPUT "y" + STR$(i) + ":", y(i)
NEXT i

LINE (x(1), y(1))-(x(2), y(2)), 15, BF ' Рисуем первую сторону трапеции
FOR i = 2 TO 3
    LINE (x(i), y(i))-(x(i+1), y(i+1)), 15 ' Рисуем остальные стороны трапеции
NEXT i
LINE (x(4), y(4))-(x(1), y(1)), 15 ' Рисуем последнюю сторону трапеции

DO
LOOP UNTIL INKEY$ <> "" ' Ожидаем нажатия любой клавиши

SCREEN 0 ' Возвращаем текстовый режим

Введите координаты вершин трапеции, чтобы нарисовать ее на экране. Координаты вершин вводятся по очереди для каждой вершины t-го в переменные x(t) и y(t).

Программа рисует трапецию, используя линии в графическом режиме QBASIC. Первая строчка строит заполненную (с рисунком внутри) трапецию, используя команду BF (Bigfill) для заполнения цветом. Затем, в цикле, рисуются остальные стороны трапеции.