Вопрос о рекурсии

[MeTeOpA]

Дали задачу : построить квадродрево из изображения. Почитал, почитал, начитал про рекурсию. Вроде делал все как указано в примере а вот незадача, пишет ошибку про несовместимость типов. Голову сломал уже почему дельфин не хочет воспринимать код.

Вот сам код :

function scan(x1,y1,x2,y2:integer):integer;
var i,j:integer;
begin
for i:=x1 to x2-1 do
for j:=y1 to y2-1 do
if Form1.Image1.Picture.Bitmap.Canvas.Pixels[i,j]=clblack then
scan(x1,y1,x2/2,y2/2);
//No_scanned[k]

end

Ругается на строчку scan(x1,y1,x2/2,y2/2);.

Подскажите в чем дело...???

[maxsept]

scan(x1,y1,x2/2,y2/2);

x2/2 - ето уже не целое число

можна напистаь так scan(x1,y1,Round(x2/2),Round(y2/2));

[MeTeOpA]

Почему не целое?...

x1:=0;
x2:=256;
y1:=0;
y2:=256;

[maxsept]

Сообщение от MeTeOpA

Почему не целое?...

x1:=0;
x2:=256;
y1:=0;
y2:=256;

происходит операция деления
scan(x1,y1,x2/2,y2/2);

[MeTeOpA]

Эм... но ведь делится целое четное на целое четное, о какой дробной части идет речь?...

[maxsept]

256/2=128.0

[FaTaL]

Компилятор думает если есть деление, значит тип должен быть real или на самом деле ставь функцию Round

[MeTeOpA]

Спасибо! А вообще кто-то делал подобную задачу?...

[GunSmoker]

Сообщение от MeTeOpA

Эм... но ведь делится целое четное на целое четное, о какой дробной части идет речь?...

Речь идёт о строчке "x2/2". Компилятор - не телепат, чтобы угадать, что в x2 у тебя будет сидеть 256. С тем же успехом там может быть и 5.

Операция деления всегда даёт в результате вещественное число.

Поэтому либо надо его округлять/отсекать, либо вместо деления делать целочисленное деление (div).