Нарисовать параллелограмм - QBasic
Формулировка задачи:
помогите нарисовать параллелограмм в qbasic, а то в операторах этих плохо разбираюсь
Решение задачи: «Нарисовать параллелограмм»
textual
Листинг программы
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.