A Der PASCAL – Teil
A Der PASCAL – Teil
A Der PASCAL – Teil
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
Skript zur Vorlesung Allgemeine Datenverarbeitung 44<br />
6.3.3 REPEAT-Anweisung<br />
(repeat..until ⇒ wiederhole solange bis...)<br />
repeat<br />
;<br />
{..}<br />
;<br />
until <br />
Die zwischen den reservierten Wörtern repeat und until stehenden<br />
Anweisungen werden solange wiederholt, bis der nach dem until stehende<br />
Ausdruck (Austrittsbedingung) erfüllt ist. Das Ergebnis dieses Ausdruckes muß<br />
vom Datentyp Boolean sein.<br />
Die repeat..until-Schleife wird mindestens einmal durchlaufen, da die<br />
Austrittsbedingung erst zum Ende des Schleifendurchlaufes überprüft wird. Aus<br />
diesem Grunde muß auch die Bedingung zum Verlassen der Schleife innerhalb<br />
der Schleife verändert werden können, und zwar so, daß die Abbruchbedingung<br />
irgendwann einmal erfüllt wird (Endlosschleife !!).<br />
program repeat_1;<br />
uses wincrt;<br />
var a:integer;<br />
begin<br />
a:=1;<br />
repeat {wiederhole}<br />
writeln(a:4); {diese}<br />
a:=a+1; {beiden Anweisungen}<br />
until (a > 10); {bis a größer 10 ist}<br />
end.<br />
program repeat_2;<br />
uses wincrt;<br />
var a:char;<br />
begin<br />
a:='a';<br />
repeat<br />
write('Bitte ein Zeichen eingeben :');<br />
readln(a);<br />
until upcase(a) = 'X';<br />
end.<br />
Fachhochschule Gelsenkirchen Prof. Dr.-Ing. A. Rinschede<br />
Fachbereich Versorgungs- und Entsorgungstechnik