Как нарисовать ромб? - QBasic

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

Привет всем)) подскажите как нарисовать ромб в SCREEN 12??

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

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

CLS
SCREEN 12
WINDOW (-20, 15)-(20, -15)
 
LINE (-10, 0)-(0, 5), 11
LINE (-10, 0)-(0, -5), 11
 
LINE (10, 0)-(0, 5), 11
LINE (10, 0)-(0, -5), 11
 
END

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

В данном коде на языке QBasic происходит рисование ромба на экране компьютера.

CLS - команда очистки экрана.
SCREEN 12 - команда выбора экрана из 12 возможных.
WINDOW (-20, 15)-(20, -15) - команда установки области окна для рисования, в данном случае 400 на 300 пикселей, начиная с верхнего левого угла.
LINE (-10, 0)-(0, 5), 11 - команда рисования линии из точки (-10, 0) в точку (0, 5) длиной 11 пикселей.
LINE (-10, 0)-(0, -5), 11 - команда рисования линии из точки (-10, 0) в точку (0, -5) длиной 11 пикселей.
LINE (10, 0)-(0, 5), 11 - команда рисования линии из точки (10, 0) в точку (0, 5) длиной 11 пикселей.
LINE (10, 0)-(0, -5), 11 - команда рисования линии из точки (10, 0) в точку (0, -5) длиной 11 пикселей.
END - команда завершения программы. Таким образом, ромб рисуется с помощью 4-х линий длиной 11 пикселей каждая, соединяющих вершины прямоугольника со сторонами 20 на 10 пикселей, начиная с верхнего левого угла.