Рисунок ёлочка - QBasic

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

Помогите с задачкой. Заполнить экран рисунком ёлочка из прямоугольных дощечек заданного размера.

Размер задается не только целыми числами, но и дробными!

Решение задачи: «Рисунок ёлочка»

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

                            CLS
  INPUT "Vvedite dlinu doski  : ", dl
  INPUT "Vvedite visotu doski : ", vs
 
SCREEN 12
 
  i = 1: Pr = 1
  DO
    IF i >= Pr THEN i = 0: Pr = Pr + 1
    x = 320 - (dl * i) / 2
       FOR l = 0 TO i
          LINE (x + l * dl, y)-(x + dl + l * dl, y + vs), 10, BF
       NEXT
    i = i + 1
    y = y + vs
  LOOP UNTIL y > 479
                        