Positive Zahlen in negative umwandeln

[DeddyH]

Stimmt aber immer noch nicht, wie Neutral General bereits bemerkte ;)

[Neutral General]

Zitat:

Zitat von Sven M.

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

Es ist aber immernoch falsch :mrgreen:

[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:

Zitat von grizzly

Das hier macht sogar die 0 negativ ;)

:shock:

[Sven M.]

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

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 :mrgreen: (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 :mrgreen: