Einführung in das Programmieren mit DELPHI
6. While-Schleifen
Da bei der WHILE-Schleife die Bedingung am Anfang steht, eignet sie sich auch für solche Fälle, bei denen eine Schleife unter Umständen garnicht durchlaufen wird.
Ein Beispiel dafür ist die Division mit Rest.
User Interface:  |
Blockdiagramm:  |
Programmcode:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,n: integer;
begin
a := StrToInt(Edit1.Text);
a := StrToInt(Edit1.Text);
n := 0;
while a>b do
begin
a := a - b;
n := n + 1;
end;
Edit3.Text := IntToStr(n)+' Rest '+IntToStr(a);
end;
end.
|
Aufgaben :
Es sollen die Glieder der sogennanten Ulam-Folge ausgegeben werden. Sie beginnt mit einer beliebigen natürlichen Zahl a > 1.
Wenn a gerade ist, setzt man für das nächste Glied der Folge a = a/2 sonst a = 3a + 1. Die Folge bricht ab, wenn a = 1 erreicht ist.Lassen Sie folgende Reihe berechnen 1/1 + 1/4 + 1/9 + 1/16 + 1/25 + 1/36 + 1/49 ...
Eingegeben wird die Anzahl n der Reihenglieder und ausgegeben die Wurzel aus dem 6-fachen der Summe.Lassen Sie die folgende Reihe berechnen 1 - 1/3 + 1/5 - 1/7 + 1/9 - 1/11 + 1/13 - 1/15 ...
Eingeben wird die Anzahl n der Reihenglieder und ausgegebenl das 4-fache der Summe.Lassen Sie folgendes Produkt berechnen 8/9 · 24/25 · 48/49 · 80/81 · 120/121 · 168/169 ... bis die Faktoren größer als 0,999 werden.
Im Nenner stehen die ungeraden Quadratzahlen, im Zähler die Quadratzahlen - 1. Lassen sie das 4-fache des Produkts ausgeben.