Programm schreiben - Gesellschaftsspiel. Dringende Hilfe!

[Nudel]

Hallo,

ich soll als Informatik Hausaufgabe ein Gesellschaftsspiel "Die böse sieben" programmieren.

Die Aufgabe lautet wie folgt:
"Beim Gesellschaftsspiel "Die böse Sieben" sitzen die Teilnehmer im Kreis und zählen reihum. Jede Zahl, welche durch 7 teilbar ist oder die Ziffer 7 enthält muss übersprungen werden. Schreiben Sie ein Programm welches alle gültigen Zahlen bis zu einer eingegebenen Zahl ausgibt."

Ich bin Anfängerin und habe erst ein halbes Jahr Informatik in der Schule, programmiere mit Delphi7 und hab gar keine Ahnung wie ich anfangen soll. Vielen Dank für eure Mithilfe!

Nudel

[DeddyH]

Wie wäre es denn mit einer Funktion, die ermittelt, ob eine Zahl "gültig" ist? Damit hast Du doch bereits den Kern des ganzen Spiels.

P.S.: Willkommen in der DP

[Sir Rufo]

Hallo und herzlich Willkommen hier.

Wenn du die Foren-Regeln gelesen hättest, dann wüsstest du, dass wir hier relativ allergisch reagieren auf Wörter wie Dringend oder auch Hausaufgabe.

Weiterhin ist das Wort Hilfe im Thema mehr als überflüssig, denn Hilfe gedenkt jeder hier zu bekommen.

Du hast auch keinerlei Anhaltspunkte geliefert, was du bisher schon an Code hast - sollen wir jetzt davon ausgehen, dass du dich mit der Thematik noch gar nicht auseinandergesetzt hast?

Bitte versuche eine konkrete Frage zu formulieren, dann werden wir dir auch ganz konkret helfen.
Ein fertiges Programm wirst du hier nicht bekommen ... es sei denn, du findest etwas über die Foren-Suche.

[himitsu]

Teile doch erstmal die Aufgabe in Teilaufgaben auf,
bau einen Teil nach dem Anderen in deine Anwendung ein
und prüfe jeweils deren Funktion.

- eingeben der Endzahl und Start der Berechnung (ein TEdit + TButton)

- durchgehen aller Werte ('ne For-Schleife)

- ausgeben aller Zahlen (ein TMemo)

und zum Schluß kommen die beiden Prüfungen rein

- prüfen ob sich die Zahl durch 7 teilen läßt (mod)

- prüfen ob die Ziffer 7 in der Zahl drin steckt (mathematisch: div und mod | stringvergleich: IntToStr und Pos oder IntToStr und For + If)

Zitat:

und hab gar keine Ahnung wie ich anfangen soll

Das sollte euch der Lehrer eigentlich beigebracht haben.

[Perlsau]

Zitat von Nudel:

Hallo,

ich soll als Informatik Hausaufgabe ein Gesellschaftsspiel "Die böse sieben" programmieren.
Die Aufgabe lautet wie folgt:
"Beim Gesellschaftsspiel "Die böse Sieben" sitzen die Teilnehmer im Kreis und zählen reihum. Jede Zahl, welche durch 7 teilbar ist oder die Ziffer 7 enthält muss übersprungen werden. Schreiben Sie ein Programm welches alle gültigen Zahlen bis zu einer eingegebenen Zahl ausgibt."
Ich bin Anfängerin und habe erst ein halbes Jahr Informatik in der Schule, programmiere mit Delphi7 und hab gar keine Ahnung wie ich anfangen soll. Vielen Dank für eure Mithilfe!
Nudel

Hast du denn überhaupt schon mal ein Programm geschrieben? Auf mich machen deine Zeilen den Eindruck, als hättest du vom Programmieren noch gar keine Ahnung. Mit dem Ebook des Delphi-Treffs kann dir geholfen werden.