Hallo!

Wir haben eine Hausübung in der Schule bekommen, in welcher wir eine Integer Zahl einlesen sollen
sie danach trennen und den Kubus berechnen und die Summe dann ausgeben soll. Ich habe da schon in etwa eine Idee, bin aber mit der Syntax von VB noch nicht so ganz vertraut und kenne die Möglichkeiten
und Varianten nicht. Mein Professor meint man muss keinen Array verwenden um so eine Code zu erstellen
und die Zahlen als Integer getrennt werden sollen und nicht als String.

Hier ist die Angabe, welche wir von unserem Professor erhalten haben falls es etwas weiterhelfen sollte:

Schreiben Sie ein Programm, dass alle dreistelligen Zahlen ausgibt, die kleiner als Obergrenze
sind und die gleich der Summe der Kuben ihrer Ziffern sind.



Mit freundlichen Grüßen

Carnivor

Hä?

123 -> 1,2,3 -> 1^3, 2^3, 3^3 -> 1, 8, 27 -> 36 ?


Wieso "alle". Die Summe der Kuben aller Ziffern einer Zahl ist ja wohl EINE Zahl. Ergo kann man auch nur EINE (evtl) dreistellige Zahl ausgeben. Oder geht's auch noch um Kombinatorik?

picoflop schrieb:

Hä?

123 -> 1,2,3 -> 1^3, 2^3, 3^3 -> 1, 8, 27 -> 36 ?

Quellcode

1. dass alle dreistelligen Zahlen ausgibt, die kleiner als Obergrenze
2. sind und die gleich der Summe der Kuben ihrer Ziffern sind.

Wieso "alle". Die Summe der Kuben aller Ziffern einer Zahl ist ja wohl EINE Zahl. Ergo kann man auch nur EINE (evtl) dreistellige Zahl ausgeben. Oder geht's auch noch um Kombinatorik?

Dass Programm soll alle dreistelligen Zahlen ausgeben, welche gleich der Summe der Kuben ihrer Ziffern sind.
z.b.: 153 = 1^3 + 5^3 + 3^3 > 1 + 125 + 27 = 153 (Wird ausgegeben)
154 = 1^3 + 5^3 + 4^3 > 1 + 125 + 64 = 190 ( Wird nicht ausgegeben weil die Summe der Kuben der Zahl nicht mir der ursprünglich eingegebenen Zahl nicht übereinstimmt)


Ich weiß schon was zu tun ist, bleibe aber bei der Schleife hängen..
Wäre sehr nett wenn mir jemand erklären würde wie ich die Zahl trennen kann und dann später auf sie Zugriff habe.

Carnivor schrieb:

Wäre sehr nett wenn mir jemand erklären würde wie ich die Zahl trennen kann

Da gibts zwei Möglichkeiten.

"unmathematisch":
dim s as string = 123.tostring
ziffer(x) = integer.parse(s(x))

"mathematisch":
dim zahl as integer = 123
solange zahl > 0:
ziffer(counter)=zahl mod 10
zahl=zahl \10
counter += 1

Such Dir doch erst mal einen richtigen Algorithmus im Net.
Das ist nur wenig mehr als elementare Mathematik, und da gibt es bestimmt was.
Wenn Du einen solchen Algorithmus hast, überlege Dir, wie Du ihn in Quellcode umsenten kannst. Und wenn Du dann Probleme hast, poste Deine Frage.

Weil ich Einzeiler lustig finde und weil der garantiert nicht als Lösung akzeptiert wird sage ich mal:


Ergebnis:


Korrekt?