vor

Zyklische Strukturen
WHILE - DO

weiter

Euklidischer Algorithmus

Es ist ein anwenderfreundliches Delphiprogramm zu erstellen, welches zu zwei eingegebenen natürlichen Zahlen den größten gemeinsamen Teiler (ggT) berechnet und ausgibt.

Für diesen Vorgang ist eine Schleife zu schreiben, in der jeweils der Rest bei der Division a durch b bestimmt wird. Das alte b wird zu a und der Rest wird zu b. Dann wird erneut dividiert, falls die Division nicht aufgegangen ist, d. h. falls der Rest noch nicht Null ist.

Dabei soll die Anzahl der Schleifendurchläufe gezählt werden.
Euklidischer Algorithmus
Komponente Eigenschaft Wert Bemerkungen
Form1 Caption 'ggt mit dem Euklidischen Algorithmus' Überschrift in der Kopfleiste des Programmfensters
Label1 Caption 'Zwei natürliche Zahlen größer als Null' Überschrift auf dem Formular
Label2 Caption 'a:' Eingabeaufforderung
Edit1 Text '1' Eingabefeld
Label3 Caption 'b:' Eingabeaufforderung
Edit2 Text '1' Eingabefeld
Button1 Caption 'ggT berechnen' Schalter zum Programmstart
Label4 Caption 'Der ggT ist:' Ausgabe
Edit3 Text '1' Eingabefeld
Read Only ist true
Edit3 Text '1' Ausgabe des ggT
Read Only true keine Eingabe möglich
Edit4 Text '1' Ausgabe der Anzahl
Read Only true keien Eingabe möglich
Label5 Caption 'Schleifen' Ausgabe
Button2 Caption 'neu' Schalter zum Neustart
Button3 Caption 'Ende' Schalter zum Programmende
Lösung
vor

Inhaltsverzeichnis

weiter