Positive Zahlen in negative umwandeln

[DeddyH]

Stimmt aber immer noch nicht, wie Neutral General bereits bemerkte

[Neutral General]

Zitat von Sven M.:

....hab's doch oben schon berichtigt...

Es ist aber immernoch falsch

[grizzly]

Das hier macht sogar die 0 negativ

Delphi-Quellcode:

FUNCTION Negativator(e: extended): extended;
BEGIN
  pbyteArray(@e)^[9] := pbyteArray(@e)^[9] or $80;
  Result := e;
END;

procedure TForm1.Button1Click(Sender: TObject);
var
  st : string;
begin
  Str(Negativator(42), st);       // st = '-4.20000000000000E+0001'
  Str(Negativator( 0), st);       // st = '-0.00000000000000E+0000'
  Str(Negativator(Infinity), st); // st = '                   -Inf'
end;

(Für "Infinity" müßt ihr die Math Unit einbinden).

Gruß
Michael

[Reinhardtinho]

Zitat von grizzly:

Das hier macht sogar die 0 negativ

[Sven M.]

@Deddy und General...
War denn irgendwo gesagt, dass die Zahl "invertiert" sein muss? Nö!

Aber um euch zufriedenzustellen...

Delphi-Quellcode:

if zahl>0 then 
begin 
  for i:=1 to ((zahl*2)+1) do 
    begin 
      dec(zahl); 
    end; 
end;

[DeddyH]

Da dürfte meins performanter sein (obwohl das auch vollkommener Quatsch ist, war ja Sinn oder besser Unsinn der Sache).

[Luckie]

Ich verschiebe das ganze jetzt einfach mal nach....? Gibt es hier eine Sparte "Quellcode den die Welt nicht braucht"? Jedensfalls Multimedia ist es nicht.

[Larsi]

Wie wärs denn mit Mülleimer oder du splittest den Thread nachdem die erste wertvolle Antwort kam und tust den Rest weg oder schiebst in in K&T.

[Tyrael Y.]

Ne das gehört in "Programmieren allgemein"...es zeigt sehr anschaulich, daß es für eine simples Problem sehr viele Wege geben kann

[DeddyH]

"Threads, die die Welt nicht braucht" oder "Kollektiver Wahnsinn" fände ich angebrachter