Не могу понять приведение типа в Turbo Pascal

[~Sл@\/яH~]

Добрый день. Например, есть код на С++

#define maxUnsigned(bits)	(mostSignBit(bits) | (mostSignBit(bits) - 1))

for(i = 0; checkgray(i,BITS) && i < (unsigned)maxUnsigned(BITS); i++);

При попытки сделать, почти тоже самое, выводит на i < maxUnsigned(BITS) о несоответствие типа. Хотя вроде как они оба должны быть одного типа integer.
Вот часть кода на паскале

function maxUnsigned(bits:integer):integer;
begin
maxUnsigned:=(mostSignBit(bits) Or (mostSignBit(bits) - 1));
end;

var i,BITS:integer;
begin
writeln('Vvedite bits: ');
readln(BITS);
for i:=0 to (checkgray(i,BITS) and i < maxUnsigned(BITS)) do
i:=i+1;

Буду благодарен за помощь

[Stilet]

Приведение тут ни при чем. в For нельзя условия писать.
Используй while

[~Sл@\/яH~]

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

Приведение тут ни при чем. в For нельзя условия писать.
Используй while

Если через цикл while, то будет либо зацикливаться, либо будет выводить не все что нужно

[Luuzuk]

А вы условие нормально поставьте, чтобы не было зацикливания или вывода лишней информации

[Poma][a]

Откуда такая инфа?

for i:=0 to (checkgray(i,BITS) and i < maxUnsigned(BITS)) do
i:=i+1;

Плавно переходит в

i := 0; while (checkgray(i,BITS) and i < maxUnsigned(BITS)) do
   Inc (i)

[BDA]

И скобочки попробуйте поставить:

while checkgray(i,BITS) and (i < maxUnsigned(BITS)) do

[~Sл@\/яH~]

Сообщение от Poma][a

Откуда такая инфа?

for i:=0 to (checkgray(i,BITS) and i < maxUnsigned(BITS)) do
i:=i+1;

Плавно переходит в

i := 0; while (checkgray(i,BITS) and i < maxUnsigned(BITS)) do
   Inc (i)

вот в таком цикле, как раз зацикливается. Поидее должно выводить 8 значений, если BITS задать 3. т.е. 2^3=8.

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

И скобочки попробуйте поставить:

while checkgray(i,BITS) and (i < maxUnsigned(BITS)) do

Если так, то он пишет о несоответствие типа

[BDA]

Просто Вы неправильно реализовали checkgray. В Паскале и Си разный приоритет операций.

[~Sл@\/яH~]

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

Просто Вы неправильно реализовали checkgray. В Паскале и Си разный приоритет операций.

Ну вот функция в С++

int checkgray(unsigned i,int BITS){
	printf("%4u", i); printbits(i,BITS); printbits(bin2gray(i,BITS),BITS); printf("\n");
	if(i != gray2bin1(bin2gray(i,BITS),BITS) ||
	  i != gray2bin2(bin2gray(i,BITS),BITS) ||
	   i != gray2bin3(bin2gray(i,BITS),BITS)){
	printf("%u: ошибка перевода из кода Грея!\n", i);
		return 0;
	}
	return 1;
}

А вот на Pascal

function checkgray(i,BITS:integer):integer;
begin
write(i);
printbits(i,BITS);
printbits(bin2gray(i,BITS),BITS);
writeln(' ');
if ((i <> gray2bin1(bin2gray(i,BITS),BITS)) Or
(i <> gray2bin2(bin2gray(i,BITS),BITS)) Or
(i <> gray2bin3(bin2gray(i,BITS),BITS))) then begin
writeln('ohibka perevoda iz koda grayя!');
checkgray:=0;
end;
checkgray:=1;
end;

[BDA]

function checkgray(i, BITS: integer): boolean;
begin
    checkgray := true;
    write(i:4);
    printbits(i, BITS);
    printbits(bin2gray(i, BITS), BITS);
    writeln;
    if ((i <> gray2bin1(bin2gray(i, BITS), BITS)) or
        (i <> gray2bin2(bin2gray(i, BITS), BITS)) or
        (i <> gray2bin3(bin2gray(i, BITS), BITS))) then
    begin
        writeln('ohibka perevoda iz koda grayя!');
        checkgray := false;
    end;
end;

В Си число тоже может считаться логическим выражением.
if (a) {} - ложь, если a = 0, истина, если a <> 0.
Даже если сделать преобразование числа в булево выражение, Ваша реализация содержит ошибку (всегда возвращает 1).