PureBoard

Verfasst: **23.04.2010 18:29**

Hi,

hier ist Rattle22, ein Purebasicbenutzer der unteren Stufe.
In folgendem Programm soll mit einem einfachen Allgorythmus (oder wie es geschrieben wird

) eine Zahlenkombination gefunden und angezeigt werden.
Wie jedoch anzeigen??
Das ist der bisherige code:

Code: Alles auswählen

a.l = 1
b.l = 1
c.l = 1
For c = c To 10000
  For b = b To 10000
    For a = a To 10000
      If a * a * a + b * b * b = c * c * c
        MessageRequester("Jeah!","a.l ³+ b.l ³= c.l ³",0)
        End
      EndIf
    Next
  Next
Next
End

Danke schonmal vorweg

.

__________________________________________________
Code-Tags hinzugefügt & Code eingerückt
23.04.2010
RSBasic

Verfasst: **23.04.2010 18:37**

Guten tag, willkommen im Forum.

Bitte benutze für Codes, die Code-Tags im Forum, damit es einfacher lesbar ist.

Um Zahlen-Variablen mit Zeichenketten zu mischen kannst du Str() benutzen:

Code: Alles auswählen

MessageRequester("Jeah!",Str(a)+" ³ + "+Str(b)+" ³ = "+Str(c)+" ³",0)

Im übrigen musst du für dieses Programm deine Potenzen erst woanders zwischenspeichern, weil die entstehenden Zahlen zu groß für LONG sind.

Desweiteen ist die schleife "seltsam" es heißt wenn dann:

Code: Alles auswählen

For a = 1 To 10000

Verfasst: **23.04.2010 18:50**

Danke!
Leider hab ichs doch nicht wiederlegt...

Ich werde deine Hinweise nicht verachten!!!

Verfasst: **23.04.2010 18:54**

willkommen an Board!

zur Ausgabe ist eine Console besser geeignet.
die restlichen Punkte hat SG ja schon benannt.
und es lohnt sich vielleicht auch, zwischenzeilen auszugeben, damit man sieht, wie weit die berechnung ist...

Code: Alles auswählen

OpenConsole()

For c.l = 1 To 10000
  For b.l = 1 To 10000
    If b % 100 = 0
      PrintN( "*** C = " + Str(c) + " : B = " + Str(b) + " ***" )
    EndIf
    For a.l = 1 To 10000
      a3.q = a*a*a
      b3.q = b*b*b
      c3.q = c*c*c
      If a3 + b3 = c3
        PrintN( Str(a) + "^3 + " + Str(b) + "^3 = " + Str(c) + "^3 : " + Str(a3) + " + " + Str(b3) + " = " + Str(c3) )
      EndIf
    Next
  Next
Next

PureBoard

Mathe-Programm

Mathe-Programm

Re: Mathe-Programm

Re: Mathe-Programm

Re: Mathe-Programm