Hallo zusammen,
ich habe ein Problem bei der Benutzung von int64

Gegeben sei eine integer und eine int64 Variable:

markieren

Code:

var x : integer;
    y : int64;
begin
   x:=122;
   y:=x*x*x*x*x*x*x*x*x*x*x*x*x*x;
   Edit1.Text:=IntToStr(y);
end;

Obwohl y eine int64 ist liefert delphi mir einen negativen Wert (-1841414144).

Auch

markieren

Code:

   y:=int64(x*x*x*x*x*x*x*x*x*x*x*x*x*x);

liefert dasselbe Ergebnis.

Ich hoffe mir kann jemand helfen.

y:=x*x*x*x*x*x*x*x*x*x*x*x*x*int64(x);

Edit:
122^13 ist doch viel größer als 2^64

122^14= 161.822.024.226.591.835.670.322.233.344
und übersteigt leicht den positiven Bereich von int64

Grüße
Klaus

hoi,

mach doch folg. wenns nur ums anzeigen geht

markieren

Delphi-Quellcode:

var
   x : integer ;
   y : extended ;
begin
     x := 122 ;
     y := power(x,13);
     ... := format('%f',[y]);
end;

cya

Trotz der Lösung noch eine Anmerkung:

Zitat von -=Breeze=-:

markieren

Code:

var x : integer;
    y : int64;
begin
   x:=122;
   y:=x*x*x*x*x*x*x*x*x*x*x*x*x*x;
   Edit1.Text:=IntToStr(y);
end;

Der erste Operand ist immernoch ein Integer, somit rechnet er mit 32 Bit.

Zitat von -=Breeze=-:

markieren

Code:

   y:=int64(x*x*x*x*x*x*x*x*x*x*x*x*x*x);

Auch hier ist der erste Operand immernoch 32 Bit, somit rechnet er das ganze immernoch mit 32 Bit Arithmetik. Da lohnt es sich dann auch nicht mehr, das Endergebnis zu casten, das ist dann schon versaut.[/quote]

Vielen Dank für die schnellen Antworten, da habe ich mich wohl vertan.

@soulies:

Zitat:

Undefinierter Bezeichner 'power'.

Nehmen wir an ich möchte herausfinden, wie ich die Zahlen von 97 bis 122 malnehmen muss, um 1489050905472 herauszubekommen.
Wenn ich Muetze1 da richtig verstanden habe, muss ich dafür Schleifen mit int64 Zahlen nehmen, oder?
Das geht aber nicht weil sie nicht ordinal sind...

Jemand eine Idee?

Zitat von -=Breeze=-:

Wenn ich Muetze1 da richtig verstanden habe, muss ich dafür Schleifen mit int64 Zahlen nehmen, oder?

Nein, es reicht den ersten Operanden entsprechend als Int64 zu casten:

y := int64(x)*x*x*x*x*x*x*x*x*x*x*x*x*x;

Zitat von -=Breeze=-:

Das geht aber nicht weil sie nicht ordinal sind...

Seit wann denn dies?

Seitdem Delphi das mir gesagt hat

Zitat:

FOR-Schleifenvariable muß von ordinalen Typ sein

Anscheinend verstehe ich noch nicht so ganz, ich poste einfach mal meinen Code, vllt seht ihr dann was ich meine

markieren

Delphi-Quellcode:

for a:=97 to 122 do
      for b:=97 to 122 do
          for c:=97 to 122 do
              for d:=97 to 122 do
                  if a*b*c*d= <irgendeinezahl> then <Aktion>

//Edit: Ich habe aber nicht nur 4 Schleifen sonder 8-10.

Zitat:

@soulies:
Zitat:
Undefinierter Bezeichner 'power'.

 uses math

Hallo,


if Int64(a)*Int64(b)*Int64(c)*Int64(d)= <irgendeinezahl>
Heiko