неожиданный рисунок Опции

[compiler]

Добрый день!
есть программка которая должна отрисовывать 5 прямоугольников в вертикальном положении через небольшое расстаяние, но она не работает:(

uses Graph;
function init:integer;
var
	grDriver: Integer;
	grMode: Integer;
begin
	grDriver := Detect;
	InitGraph(grDriver, grMode, '');
	init := GraphResult;
end;

procedure dr;
var
	i:integer;
	x1,x2,y1,y2,k:integer;
begin
	ClearViewPort;
	k:=round ((GetMaxY / 200));//отступ
	x2:=round (GetMaxX*(2/3));
	x1:=round (GetMaxX*(1 / 3));
        for i:=1 to 5 do begin
		y1:=round ((GetMaxY / 9)*(1+i) -k);
		y2:=round ((GetMaxY/9)*(1+ 2*i ));
		Rectangle(X1,Y1,X2,Y2);
	end;
end;

begin
	if init = grOk then begin 
			Dr;
			Readln;
			CloseGraph;  
	end; 
end. 

на скрине видно что отступы между прямоугольниками пропадают, и откуда-то берется шестой прямоугольник...
помогите...

Сообщение отредактировано: compiler - 11.07.2007 18:51

[volvo]

Это не 6 прямоугольников, а 5, но переплетены так, что

Поменяй

        for i:=1 to 5 do begin
		y1:=round ((GetMaxY/9)*(1+i) - k);
		y2:=round ((GetMaxY/9)*(2+i)); { <--- Здесь }
		Rectangle(X1,Y1,X2,Y2);
                readln; { <--- Для теста }
	end;

и все будет нормально рисоваться ...

Сообщение отредактировано: volvo - 11.07.2007 19:06