Составить рекурсивный алгоритм рисования вложенных квадратов

[stas45rus]

Помогите пжл. разобраться в условии задачи.
Составить рекурсивный алгоритм рисования вложенных квадратов. Строится первый квадрат со сторонами параллельными осям координат экрана. Каждая его сторона делится в отношении m=0,09, указывая таким образом на новую вершину. Затем на вновь полученных вершинах строится новый квадрат и т.д.
Строю квадрат со стороной равной 715 пикс. (на моём мониторе - это максимальная высота). Далее 715/0,09=7944,444... . Что я не правильно делаю? Сторона должна быть меньше, а получается ещё больше. Или может нужно построить маленький квадрат и увеличиваться до допустимого разрешения? Ещё вариант это найти какое количество пикселей приходится на отношение 0,09. 0,09*715=64 (примерно). Потом вычитать из 715 это количество и по ним строить квадрат. Разъясните как правильно?

[IT-man]

мне кажется что m все таки 0.9 должно быть

[stas45rus]

Нет условие именно такое

[BDA]

Не рекурсивная "рисовалка" (код на дельфи):

var
  a, b: array[1..4, 1..2] of integer;
  i, j, r: integer;
begin
  r := 400;
  a[1, 1] := 100;
  a[1, 2] := 50;
  a[2, 1] := a[1, 1] + r;
  a[2, 2] := a[1, 2];
  a[3, 1] := a[2, 1];
  a[3, 2] := a[2, 2] + r;
  a[4, 1] := a[1, 1];
  a[4, 2] := a[3, 2];
  for i := 1 to 1000 do
  begin
    canvas.Pen.Color:=i*25;
    canvas.moveto(a[4, 1], a[4, 2]);
    for j := 1 to 4 do
      canvas.lineto(a[j, 1], a[j, 2]);
    for j := 1 to 4 do
    begin
      b[j, 1] := round(a[j, 1] + (a[j mod 4 + 1, 1] - a[j, 1]) * 0.9);
      b[j, 2] := round(a[j, 2] + (a[j mod 4 + 1, 2] - a[j, 2]) * 0.9);
    end;
    a := b;
  end;
end;