Auslesen ob Integer Positiv oder Negativ ist

[Dennis07]

Zitat von TurboMagic:

Nur Achtung: das funktioniert so nur unter Win32, unter Win64 gibt's nur ganze
asm Funktionen und kein Inline asm...

Das ist doch eine ganze ASM-Funktion.
Und wer unter keinen Umständen ASM verwenden will, der kann das ganze auch als einzeiler in Pascal schreiben:

Delphi-Quellcode:

function IsNegative(const X: Integer): Boolean;
begin
  Result := Boolean(X shr 31);
end;

Ist jetzt wirklich kein Hexenwerk. Oder halt...

Delphi-Quellcode:

function IsNegative(const X: Integer): Boolean;
begin
  Result := X < 0;
end;

wie schon etliche male vorgeschlagen wurde.

[Zawuza]

Komplexe Aufgabe, habe richtig lange nach einer Lösung in meinem Mathe-Lehrbuch gesucht, hab danach das programmiert:

Delphi-Quellcode:

function IsNegativ(X: Integer): boolean;
var i, j: integer;    
    LBool: boolean;    
    point: double;
begin  
  point := Random(3000) - 1500;  
  while True do  
  begin    
    point := point - ((sin(point*point)+point)/(2*point*cos(point*point)+1));    
    if (Abs(point) < 0.00001) then    
    begin      
      Result :=  X < Round(point);      
      break;    
    end;  
  end;
end;

Offensichtlich funktioniert das, kann aber unendlich lange dauern... Hoffe, das war (nicht) hilfreich!

[Delphi.Narium]

@Zawuza

Wie kommt man auf so 'ne abgefahrene Idee?

[Dennis07]

Zitat von Delphi.Narium:

@Zawuza

Wie kommt man auf so 'ne abgefahrene Idee?

Bachelor in theoretischer Informatik, sagt alles...