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]]