Makro mit Kubikzahlen
alifa
es gib die Lösungen a=6714; b=5453; c=2547. Die For-Next Schleifen enthalten die abdeckenden Grenzwerte. Doch das Makro findet keine Lösung. Liegt es vielleicht an der Kubikwurzel? Dieses Makro soll auch andere Werte berechnen! Wo ist der Fehler?
Gruß, Erhard
Option Explicit
'gesucht sind 3 Zahlen a,b und c. Ihre Summe darf höchstens 15000 sein
'ab und a>c;
Sub TestKubikwurzel()
Dim a%, b%, c%, z%, t!
t = Timer
For a = 6500 To 10000
For b = 4000 To 7000
If a b And (a + b) ^ (1 / 3) = Int((a + b) ^ (1 / 3)) Then
For c = 1000 To 2600
If (a + b + c)