Positive Zahlen in negative umwandeln

[smallsmoker]

@#148 das mit dem decompilen ging ja wohl eher in die hose oder ?
ich poste mal dann doch die source.

€: merke grad das ich das wort "negieren" verwendet habe was irreführend sein könnte denn wir machen die zahl ja nur negativ ...

[Der.Kaktus]

Also ich wuerde hier so einige Varianten mal bei Codegear(em...) vorlegen..vielleicht koennen die sie in die naechste Version implementieren!

[Dax]

Zitat von sirius:

Zitat von divBy0:

Wenn die Zeile lang genug ist...

Ich meinte "eine Zeile" == "ein Befehl"

"DROP DATABASE kunden_db" *G*

[DeddyH]

Zitat von Der.Kaktus:

Also ich wuerde hier so einige Varianten mal bei Codegear(em...) vorlegen..vielleicht koennen die sie in die naechste Version implementieren!

Die schicken uns höchstens so schicke weiße Jacken mit Schleife auf dem Rücken

[Missionar]

Dann will ich mal nicht so sein und eine hochoptimierte Pascalversion zur Verfügung stellen. Das besondere hierbei ist, dass man zudem die Genauigkeit der Negation vorgeben kann. Leider nicht ganz so optimal, da hier die Eingabe - Verarbeitung - Ausgabe leider nicht in verschiedenen Routinen vorliegt. Aber vielleicht hilft es ja Lars Wiltfang.

Delphi-Quellcode:

PROCEDURE TForm1.bRechneClick(Sender: TObject);
  CONST
    Genauigkeit = 100000;
  VAR
    eZahl, aZahl: double;
    ix: integer;
  BEGIN
    //Eingabe zur Verfügung stellen
    eZahl := StrToFloatDef(eeingabe.Text, 0);


    //berechnen der hochkomplexen Negation
    aZahl := abs(eZahl) * Genauigkeit;
    FOR ix := 0 TO trunc(aZahl) * Genauigkeit DO //Genauigkeit mit 5 Stellen nach dem Komma
      aZahl := aZahl - 1;
    aZahl := aZahl / Genauigkeit;
    aZahl := abs((abs(aZahl) - abs(eZahl))) + aZahl;

    //Ausgabe zur Verfügung stellen
    eAusgabe.Text := FloatToStr(aZahl);
  END;

[Khabarakh]

Kommt Leute, es kann doch nicht sein, dass wir alle unsere Kreativität für ein Problem verschwenden. Für unser aller Wohl habe ich mal einen Webservice erstellt, der uns die harte Arbeit abnimmt. Er basiert auf alzaimers wunderschöner Rekursion und meiner Tail-Call-Verbesserung.
Interaktiv testbar unter http://honoghr.de/Services/NegateService.asmx

[DeddyH]

Jetzt läuft es völlig aus dem Ruder . Der Nächste versucht dann, ein Patent für das Negieren anzumelden.

[MaBuSE]

Um nochmal zum Thema zu kommen:

Hier eine "Komplexe" Lösung mit Varianten
Wobei der Aufruf von VarComplexSimplify es ja wieder simplifiziert - also einfach macht.

Delphi-Quellcode:

...
uses
  VarCmplx;

function MyNeg(Zahl: Integer): Integer;
begin
  Result := VarAsType(VarComplexSimplify(VarComplexCreate(Zahl)*VarComplexPower(VarComplexCreate(0,1), VarComplexCreate(2,0))), varInteger);
end;
...

gibt das gewünschte Ergebnis zurück.
Das ist zwar nicht so schnell wie function asmNeg(Zahl: integer): integer; asm neg eax end;, funktioniert aber genauso gut.
und wer sagt mit Vatianten kann mann nicht rechnen

[Der.Kaktus]

Zitat von DeddyH:

Zitat von Der.Kaktus:

Also ich wuerde hier so einige Varianten mal bei Codegear(em...) vorlegen..vielleicht koennen die sie in die naechste Version implementieren!

Die schicken uns höchstens so schicke weiße Jacken mit Schleife auf dem Rücken

Loool Deddy...koennte sein

[Matze]

@Sebby: Toller Dienst. *g*

Zitat:

System.OutOfMemoryException: Eine Ausnahme vom Typ System.OutOfMemoryException wurde ausgelöst.

Edit: bzw:

Zitat:

System.OutOfMemoryException: Eine Ausnahme vom Typ System.OutOfMemoryException wurde ausgelöst.
bei <StartupCode$NegateLib>.$[e-mail](Fas tFunc`2 cont, Int32 _arg1) in C:\Users\Kha\Documents\Tests\NegateService\NegateL ib\Module1.fs:Zeile 9.
bei NegateService.NegateService.Negate(Int32 i) in C:\Users\Kha\Documents\Tests\NegateService\NegateS ervice.asmx.cs:Zeile 23.

Bei EIngabe von "233454554", wohlgemerkt ist das innerhalb des Int32-Bereichs.