Нарисовать параллелограмм - QBasic

Формулировка задачи:

помогите нарисовать параллелограмм в qbasic, а то в операторах этих плохо разбираюсь

Решение задачи: «Нарисовать параллелограмм»

Листинг программы

SCREEN 9
 
mx = 640
my = 400
k = 4
 
x1 = 25 + mx / k
x2 = 125 + mx / k
x3 = 0 + mx / k
x4 = 100 + mx / k
 
y1 = 0 + my / k
y2 = 0 + my / k
y3 = 100 + my / k
y4 = 100 + my / k
 
LINE (x1, y1)-(x2, y2), 1
LINE (x2, y2)-(x4, y4), 1
LINE (x4, y4)-(x3, y3), 1
LINE (x3, y3)-(x1, y1), 1
 
SLEEP 999

Объяснение кода листинга программы

Объявлены переменные: mx, my, k, x1, x2, x3, x4, y1, y2, y3, y4.
Значение переменной mx равно 640.
Значение переменной my равно 400.
Значение переменной k равно 4.
Значение переменной x1 равно 25.
Значение переменной x2 равно 125.
Значение переменной x3 равно 0.
Значение переменной x4 равно 100.
Значение переменной y1 равно 0.
Значение переменной y2 равно 0.
Значение переменной y3 равно 100.
Значение переменной y4 равно 100.
Выполнена команда LINE (x1, y1)-(x2, y2), 1.
Выполнена команда LINE (x2, y2)-(x4, y4), 1.
Выполнена команда LINE (x4, y4)-(x3, y3), 1.
Выполнена команда LINE (x3, y3)-(x1, y1), 1.
Значение переменной SLEEP равно 999.
Выполнена команда SLEEP 999.