LOGIN | NEU REGISTRIEREN

Schule > Informatik > Programmiersprachen > Teilerprogramm in Delphi

Quellcode um alle Teiler einer Zahl zu berechnen

PRIVATE
zahl, lauf : Integer;
lauf := 1;
REPEAT
IF (zahl MOD lauf) = 0
THEN memoTeiler.lines.Add(IntToStr(lauf) + '; ');
lauf := lauf + 1
UNTIL lauf > zahl

Erläuterungen
Die Variable Zahl enthält diejenige ganze Zahl, für die die Teiler berechnet werden sollen. Sie wird über die gesamte Prozedur hin nicht verändert! Die Variable lauf fängt immer mit 1 an und wird solange erhöht bis sie größer ist als die Variable Zahl, dann erfolgt ein Abbruch der REPEAT Schleife.
Jedes Mal wenn der MOD, also der Rest der Division, 0 ist wird in einem sogenannten MEMO-Fenster der derzeitige Wert der Variable lauf ausgegeben.
Dies ist aber absolut sekundär, da die Ausgabe von Variablen von Programm zu Programm unterschiedlich ist...

Download: PDF, DOC