Einführung in das Programmieren mit DELPHI  

5. Repeat-Schleifen

Ein Beispiel, für das sich die Repeat-Schleife eignet, ist die näherungsweise Berechnung der Wurzel aus a nach HERON.
Geht man von einer ersten Näherung x für die Wurzel aus a aus, so liegt der exakte Wert immer zwischen x und x/a.
Als nächste Näherung bietet sich daher der Mittelwert von x und x/a an, also (x + x/a)/2.
Das Ganze wiederholt man, bis sich x und x/a um weniger als z.B. 0.000001 unterscheiden.

User Interface:

Programmcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,x:real;
begin
     a := StrToFloat(Edit1.Text);
     x := 1;
     repeat
           x := (x+a/x)/2;  { Mittelwert von  x  und  a/x }
     until Abs(x*x - a) < 0.000001;
     Edit2.Text := FloatToStr(x);
end;

Aufgaben :

  1. Schreiben Sie ein Programm zu folgendem Algorithmus (Wurzel aus n)

  2. Schreiben Sie ein Programm zu folgendem Algorithmus (ggT von a und b)

  3. Nach wieviel Jahren verdoppelt sich ein Kapital K bei einem Zinssatz p ?

  4. Wertetabelle von Sinus, Kosinus und Tangens zwischen 0° und 360° in 15° Schritten.

» Lösungen

© 2008 : Bernd Schultheiss