abs символа?

[dukales]

Есть си-шная хэш-функция:

unsigned short int Hash_Function(char *key)
{
	unsigned short int sum=0;
	char space = ' ';
	for (int i=0;(i+2)<=strlen(key);i+=2)
	{
		if (sum>=(sum+abs(key[i])+abs(key[i+1]))) //Если сумма после сложения увеличилась значит
		sum=(sum+abs(key[i])+abs(key[i+1])+1); //было переполнение . Спасаем этот бит
		else sum=(sum+abs(key[i])+abs(key[i+1]));
	if (sum & 0x8000!=0) //Организация циклического сдвига влево
		sum=(sum<<1) + 1; 
	else  sum=(sum<<1);
	}
	if (i==(strlen(key)-1))
	{
		if (sum>=(sum+abs(key[i])+space)) //Если сумма после сложения увеличилась значит
		sum=(sum+abs(key[i])+space+1);    //было переполнение . Спасаем этот бит
		else sum=(sum+abs(key[i])+space);
		if (sum & 0x8000!=0)  //Организация циклического сдвига влево
			sum=(sum<<1) + 1; else  sum=(sum<<1);
	}
return sum;
}

портирую её на паскаль:

function hash(key: string) : integer;
var i: integer; //счетчик
	sum: integer; //сумма 
    space: char; 
begin
 sum := 0;
 space:= ' ';
 i := 0;
 while (i+2)<=length(key) do
       begin
	     if (sum >= (sum + (abs(key[i])) + abs(key[i + 1]))) then //Если сумма после сложения увеличилась значит
		    begin
			  sum := (sum + abs(key[i]) + abs(key[i + 1]) + 1); //было переполнение . Спасаем этот бит
		    end
	 	     else 
			begin 
			  sum := (sum + abs(key[i]) + abs(key[i + 1]));
			end;
	     if sum >= $8000 then //Организация циклического сдвига влево
		    begin
			  sum := sum shl 1 + 1;
			end
		     else  
			begin
			  sum := sum shl 1;
			end;
	 i := i + 2;
   end;
 if (i = (strlen(key) - 1)) then
	begin		
	  if (sum >= (sum + abs(key[i]) + space)) then //Если сумма после сложения увеличилась значит
		  begin
		    sum :=(sum + abs(key[i]) + space + 1);    //было переполнение . Спасаем этот бит
		  end
		   else 
		  begin
		    sum := (sum + abs(key[i]) + space);
	      end;  
	  if sum >= $8000 then //Организация циклического сдвига влево
		 begin
		   sum := sum shl 1 + 1;
	     end
		  else  
	     begin
		   sum := sum shl 1;
	     end;
	end;
  hash:=sum;	
 end;

ругается на (abs(key[i])), спрашивается зачем модуль символа???

[dukales]

Так в чём всё-таки загвоздка?
а, да, собственно условия:
• Преобразование строкового ключа в целое число:
A) Сложение двухбайтовых слов; после каждого сложения – циклический сдвиг суммы на один разряд влево.

• Хеширование целочисленного ключа:
N) Алгоритм середины квадрата.

• Разрешение коллизий:
Z) Алгоритм Уильямса.

[Пепел Феникса]

спрашивается зачем модуль символа???

а в С, то не просто символ.
символ==число(причем со знаком)
потому там все так.
а в Паскале придется выкореживатся, либо делать как массив smallint(вроде он один байт)

[dukales]

на smallint паскаль орёт как на неопознанный тип.

[Пепел Феникса]

а shortint?(я уже не помню типы паскаля)

[dukales]

все равно орёт компилятор на место (abs(key[i]) - мол, функция с указанными параметрами abs не найдена