Positive Zahlen in negative umwandeln

[MaToBe]

sorry ...

[MSSSSM]

@hathor: Hm, mach das ganze mal mit Int64. :drunken:
Das bringt bei mir nur 68 Grad C.

Ohne Ausgabe geht das in etwa 3 Sekunden durch. (Int!)

[sirius]

Zitat:

Zitat von Sir Rufo

Hat er sehr wohl Reaktion von Larsi

Das werte ich nicht als zufriedenstellende Reaktiom.

[MaToBe]

undankbar halt =P

[taaktaak]

Zitat:

undankbar halt

Na, bei aller Zurückhaltung: Nach diesem Kreativ-Gewitter, das Larsi da verursacht hat, wird er sich schon bemüht haben, sich nicht beleidigt hinter das :duck: zu verdrücken. Von Larsi Dankbarkeit zu erwarten ist wohl etwas zu viel des Guten. Es war sehr lustig, aber jetzt ist wohl der Zenit überschritten

[mkinzler]

Und zudem braucht er unsere Hilfe auch nicht :mrgreen:

[haentschman]

Guten Abend alle...

Laßt doch mal Larsi... :wink:
...mit soviel Aufmerksamkeit muß man erst mal umgehen können. :-D

PS: so viel Spaß mit meiner eigenen "Blödheit" (bitte nicht in den falschen Hals !) möchte ich mal haben :mrgreen:

Gute Nacht... :hi:

[Sir Rufo]

Zitat:

Zitat von sirius

Zitat:

Zitat von Sir Rufo

Hat er sehr wohl Reaktion von Larsi

Das werte ich nicht als zufriedenstellende Reaktiom.

Aber auch nur, wenn man den Schalk im Nacken spürt ... tststststs ...

[3_of_8]

Mir war langweilig, darum habe ich das ganze mal eben als Bandmaschine mit dazugehörigem Simulator in Delphi implementiert.

Die Bandmaschine ist die Maschine M=({0,1,...,11}, {0, 1}, {0, 1, B}, σ, 0, EC, AC), wobei EC: Z->Σ* und AC: Σ*->Z die Eingabe-/Ausgabekodierungen sind, die aus einer ganzen Zahl Z ihre binäre Repräsentierung als Wort erstellen bzw. umgekehrt.

σ ist dabei wie folgt definiert:
σ(1)=(R, 2)
σ(2)=(B, 3, 1)
σ(3)=(L, 4)
σ(4)=(0?, 3, 5)
σ(5)=(L, 6)
σ(6)=(1?, 7, 8)
σ(7)=(0, 10)
σ(8)=(0?, 9, 11)
σ(9)=(1, 10)
σ(10)=(L, 6)
σ(11)=HALT

(L ist eine Linksbewegung des Kopfes, R eine Rechtsbewegung. Ein Symbol steht für das Schreiben des Symbols, ein Symbol mit einem Fragezeichen für einen Vergleich des Symbols mit dem unter dem Lesekopf. Die Zahlen danach stehen für den Folgezustand bzw. bei einem Vergleich den Folgezustand, wenn er zutrifft und wenn er es nicht tut)

Die Negation ist dann die Funktion fM: Z->Z, die durch die Ausführung von M entsteht.

Delphi-Implementierung im Anhang.

[himitsu]

gleich mal eine neue Funktionalität ausprobieren...

Delphi-Quellcode:

type
  TMyNegateObject = class
  end;

var
  MNO: TMyNegateObject;
  S: String;

begin
  MNO := TMyNegateObject.Create;
  S := PChar($0003374C)^ + MNO.ToString + IntToStr(DieZuNegierendeZahl);
  Delete(S, Ord(PChar($00033756)^) - Ord('0'), Ord(PChar($00033770)^) - Ord('0'));
  MNO.Free;
  DieZuNegierendeZahl := StrToInt(S);

Mindestvoraussetzung: Delphi 2009 und idealer Weise ein WinXP-SP3 (bin mir bei den Adressen nicht so sicher)


oh man, das ist ja zu köstlich hier :lol:

PS: cool, den Service von #156 gibt es immernoch :shock:

[Aphton]

Man könnte den Bufferoverflow in mrinfo.exe (xp-sp1) ausnützen und mrinfo dazu bringen, eine Zahl zu negieren ...

[SimStar001]

kann vielleicht mal jemand den Beitrag schließen? son scheiß hat hier nix zu suchen!

Das überhaupt so viele Leute darauf anspringen ist schon Traurig. Selbst wenn so eine banale Frage gestellt wurde, wurde sie doch beantwortet (auch wenn das eh nur nen Fake war). Und damit sollte doch gut sein!
Ich weiß echt nicht wieviel Langeweile manche haben.

Vielen Dank!

[Larsi]

Dito :|

Hi,

langsam reicht es echt mit dem Positiv und Negativ Zahlen Quatsch. Ich sehe ja ein, dass die Frage vielleicht ein bisschen platt war dennoch bin ich der Meinung, dass jetzt dieses über mich Herziehen genug ist. Ich bitte darum, dass dieser Thread endlich geschlossen wird. :pale: Das ist einfach nur noch eine Frechheit. :dp:

[mkinzler]

Auf Wunsch des TE

* * * G E S C H L O S S E N * * *