Positive Zahlen in negative umwandeln

[hathor]

Zitat von Luckie:

Zitat von hathor:

Schauspielerin Estelle Reiner gestorben
Nach dem Meg Ryan in einem voll besetzten Restaurant lautstark einen Orgasmus vorgetäuscht hatte, sagte sie zum Kellner: "Ich will genau das, was sie hatte." Der Satz ging in die Filmgeschichte ein.

Was hat das denn jetzt mit dem Thema zu tun? Bleibt bitte beim Thema, sonst müssen wir hier doch noch schliessen.

.

Zitat von kalmi01:

Ich will nicht wissen, warum Ihr es Esst/Trinkt/Raucht/Injeziert.

NEIN.

Sagt mir einfach nur, WAS es ist und wo man ES bekommt.

.

Zitat von taaktaak:

- ES -
gibt's nur in der DP

.
Im Anhang kann man die "Anstrengung" eines Dualcore-Prozessors sehen (Intel T9300) - man beachte auch die "empathischen" Temperaturen der HDD - beeindruckend!!! Das kleine Programm berechnet ALLE (in Worten: AAAALLLLLLEEE) negativen Integerwerte aus positiven Werten!!!
Wer Zeit hat, kann ja mal messen, wie lange der Computer dafür braucht...

Delphi-Quellcode:

//WARNUNG: Die Lösung ist NICHT trivial:
//Man braucht dafür:

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    START1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    CB1: TCheckBox;
    procedure START1Click(Sender: TObject);
//und viel, viel Zeit!

procedure TForm1.START1Click(Sender: TObject);
var zahl : currency; i : integer;
label exit1;
Begin
Memo1.clear;
Label2.Caption:= 'Start: '+TimeToStr(now);
Application.ProcessMessages;
Zahl:=0.00;
for i := 0 to 2147483647 do//2147483647 is maximum !!!
Begin
Label1.Caption:= IntToStr(i);
Zahl:= Zahl + 1;// or 0.01; ???
Memo1.lines.Add(FloatToStr(-Zahl));
if not CB1.Checked  then Goto exit1;
Application.ProcessMessages;
end;
exit1:
Label3.Caption:= 'Stop: '+TimeToStr(now);
End;

.
Im Übrigen:
Man beachte auch die unterschiedlichen Downloadzahlen der Anhänge!
Dies gibt Anlass, eine Doktorarbeit zu beginnen mit dem Thema:
Hat der Titel einen Einfluss auf das Downloadverhalten von Internetusern oder die Reihenfolge des Angebots oder die Größe des Obiekts oder die Virenangst (Hypochondrie!) oder der Zufall? (...und GOTT sprach: Ich habe den Würfel erfunden!)
.