1:
2:
3:
4:
5:
6:
7:
8:

  function Vorzeichen(vz: integer): integer;
  begin
    if vz = 0 then
      result := 1 else
        if vz = 1 then
          result := -1 else
            result := 0;
  end;					

1:

  a * vorzeichen(i);  // i ist 0 oder 1					

1:
2:
3:
4:
5:
6:
7:
8:

function Vorzeichen(vz: integer): integer;
begin
  if vz = 0 then
    result := 1 
  else
   result := -vz; // wenn der wert als minus zurückgegeben werden soll
   result := -1; // wenn immer minus 1 gegeben werden soll
end;					

1:

myvar:=integer(var1>0);					

1:

  a := sign(i - 0,5) * -1;					

1:
2:

Result := 1;
if VZ=1 then dec(VZ, 2);					

1:
2:
3:
4:

function vorzeichen (vz : integer) : integer;
begin
  result := -vz;
end;					

1:

a * -i;					

1:

  for i := 0 to 1 do					

1:

(i xor 1)					

1:

1 - 2 * i					

1:
2:
3:
4:
5:
6:
7:
8:

i := -1;
while i <= 1 do
begin
  {...}
  Variable := Positiver_Wert*i;
  {...}
  inc(i, 2);
end;					

1:
2:
3:
4:
5:
6:

function Vorzeichen(vz: integer): integer;
  begin

    result = 1 - (2 * vz);

  end;