zum Üben; Teilermenge

[MB]

1) ClrText
2) Input Z, "Zahl"
3) Print "Teiler"
4)For 1 -> I To intg(Z/2)
5) Z/I -> T
6) If T=intg(T)
7)Then
8) Print I
9) IfEnd
10)next
11) Print Z

--> Ralf: nicht die Zahlen vorne mit abtippen

Dokumentation

1) Text löschen

2) Eingabe einer Zahl

3) Beschreibung, was das Programm tut: nämlich die Teiler in der Menge der positiven ganzen
Zahlen bestimmen

4) Schleife zur Untersuchung aller Zahlen von 1 bis zur Hälfte von Z.
(Von Z/2+1 bis Z-1 werden sicher keine Teiler von Z zu finden sein - man kann die ohnehin
sehr gemächliche Prozedur also an dieser Stelle abkürzen.)
I wird schrittweise um 1 erhöht (weil nichts anderes angegeben)

5) Bilde einen Quotienten aus der Zahl Z und dem aktuellen Wert von I

6) Prüfe, ob der Quotient eine ganze Zahl ist

7) und 8) Genau dann, wenn der Quotient eine ganze Zahl ist , ist I ein Teiler von Z
und (nur!) dann soll I auch ausgegeben werden als Teiler von Z

9) Abschluss der IfEnd-Anweisung (Diesen Befehl velangt der Classpad zwingend als Abschluss
der If-Then-Struktur ; hat mir einige Errors beschert, denn hinter diese Anweisung muss man
auch erstmal kommen)

10) Abschluss der Schleife: I wird um 1 erhöht (bis der Wert von Z/2 erreicht ist, siehe 4) )

11) Am Ende muss der Vollständigleit wegen natürlich auch Z als Teiler von sich selbst
ausgegeben werden.

----

Leider läuft das Programm bei mehr als 3 stelligen Zahlen sehr behäbig.



[geändert von MB am [TIME]1146708342[/TIME]]