Potencies high potencies

[Kernelpanic]

@LEM -  I think your issue is dimensioning the "sum" variables as long (or unsigned long).  The result of 5^16 is much larger than can be represented by a long, I think.  Try without dimensioning as unsigned long.

Thanks, that was it! And a typo in sum 2 was the reason for the wrong result. Now it works.

Code: (Select All)

'Matheuebung Potenzen hoch Potenzen - 7./8. Okt. 2024



Option _Explicit



Dim As Integer a, b, c

Dim As _Integer64 sum, sum2, sum3



Locate 2, 3

Print "Berechnet ((a ^ b) ^ c)"

Locate 3, 3

Print "======================="

'Beispiel: ((5^4)^4) = 5^16

'MS-Rechner: 152.587.890.625 -- Hier: 2.264.035.265



Locate 5, 3

Input "a: ", a

Locate 6, 3

Input "b: ", b

Locate 7, 3

Input "c: ", c



sum = ((a ^ b) ^ c)

Locate 9, 3

Print Using "Summe 1: ###,############"; sum



sum2 = a ^ (c * b)

Locate 11, 3

Print Using "Summe 2: ###,############"; sum2



sum3 = a ^ 16

Locate 13, 3

Print Using "Summe 3: ###,############"; sum3



End