Нарисовать автомобиль - QBasic

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

Нужно написать программу рисунка, последний рисунок машинки. Пожалуйста очень надо((

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

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

CLS
SCREEN 11
WINDOW (0, 480)-(640, 0)
 
CIRCLE (200, 150), 50
CIRCLE (400, 150), 50
CIRCLE (200, 150), 10
CIRCLE (400, 150), 10
LINE (250, 150)-(350, 150)
LINE (180, 250)-(400, 250)
LINE (180, 250)-(180, 210)
CIRCLE (170, 220), 10
LINE (150, 190)-(160, 180)
 
CIRCLE (400, 150), 60, , .5, 2.6
CIRCLE (200, 150), 60, , .5, 2.5
 
CIRCLE (400, 200), 60, , 0, 1.57, .8
LINE (450, 160)-(460, 210)
 
CIRCLE (300, 180), 50, , 3, 0, .6
 
LINE (200, 210)-(200, 250)
LINE (250, 250)-(250, 300)
LINE (325, 250)-(325, 300)
LINE (400, 250)-(400, 300)
 
CIRCLE (288, 300), 38, , 0, 3.1
CIRCLE (363, 300), 38, , 0, 3.1
 
CIRCLE (325, 320), 90, , 5.7, 3.7, .7
END

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

Очистка экрана: команда CLS очищает экран перед началом рисования.
Открытие окна: команда WINDOW (0, 480)-(640, 0) открывает окно размером 640x480 пикселей в верхней части экрана.
Рисование автомобиля: с помощью команд CIRCLE и LINE рисуются контуры автомобиля. Верхняя и нижняя часть автомобиля рисуются с помощью двух окружностей CIRCLE (200, 150), 50 и CIRCLE (400, 150), 50, а боковые части с помощью двух прямых LINE (250, 150)-(350, 150) и LINE (180, 250)-(400, 250).
Рисование колёс: команды CIRCLE (170, 220), 10 и CIRCLE (400, 200), 60, , 0, 1.57, .8 рисуют колёса автомобиля.
Рисование переднего бампера: команды LINE (200, 210)-(200, 250) и LINE (250, 250)-(250, 300) рисуют передний бампер автомобиля.
Рисование заднего бампера: команды LINE (325, 250)-(325, 300) и LINE (400, 250)-(400, 300) рисуют задний бампер автомобиля.
Рисование стёкол: команды CIRCLE (288, 300), 38, , 0, 3.1 и CIRCLE (363, 300), 38, , 0, 3.1 рисуют стёкла автомобиля.
Рисование дверей: команда CIRCLE (325, 320), 90, , 5.7, 3.7, .7 рисует двери автомобиля.
Завершение рисования: команда END завершает рисование.