OpenOffice.info

do while zahl% <> rate%

if zahl% < rate% then
			print "Die Zahl ist zu groß!"
		else
			print "Die Zahl ist zu klein!"		
		end if

[quote] ich dachte, es gäbe eine Schleife, die sofort verlassen wird, wenn eine Bedingung erfüllt wird.
[/quote]
[b]und genau die gibt es, was Dir spätestens nach den Antworten im Thread eigentlich klar sein muss.[/b]

Du kannst hingegen nicht erwarten das eine Schleife verlassen wird wenn die dazu nötige Bedingungen nicht erfüllt ist und das ist bei Deinem ursprünglichen Code aus zwei Gründen der Fall:

1. zum Zeitpunkt wo die folgende Zeile abgearbeitet wird, ist "rate%" noch ohne wert:

[code]do while zahl% <> rate%
[/code]
2. Die folgende Bedingung beinhaltet den Gleichheitsfall innerhalb des Else:

[code]if zahl% < rate% then
print "Die Zahl ist zu groß!"
else
print "Die Zahl ist zu klein!"
end if
[/code]


Stephan

Vielen dank für eure Mühe,
alles klar jetzt. ich dachte, es gäbe eine Schleife, die sofort verlassen wird, wenn eine Bedingung erfüllt wird.
VG

Sub Main
	zahl%=55
	rate% = inputbox ("Rate die Zahl!")
	do while zahl% <> rate%

		if zahl% < rate% then
			print "Die Zahl ist zu groß!"
		else
			print "Die Zahl ist zu klein!"		
		end if	
		rate% = inputbox ("Rate die Zahl!")				
	loop
	print "Jawohl!"	
End Sub

Sub Main
	zahl%=55
	rate%=0
	do while zahl% <> rate%
		rate% = inputbox ("Rate die Zahl!")	
		if zahl% < rate% then
			print "Die Zahl ist zu groß!"
		elsif zahl% > rate% then
			print "Die Zahl ist zu klein!"
		else
			REM wir tun nichts - Schleife wird beendet und danach kommt das "Jawohl"		
		end if				
	loop
	print "Jawohl!"	
End Sub

Hallo,

[quote=erikafuchs post_id=274209 time=1521570194 user_id=8352]
welche Schleife wird sofort verlassen wenn die Bedingung stimmt?
[/quote]

damit eine abweisende Schleife sofort abweisen kann muß Sie etwas zu prüfen haben,
also würde ich die erste Eingabe vor der Schleife machen. Damit muß dann die nächste Abfrage hinter das IF/ELSE wandern:
[code]Sub Main
zahl%=55
rate% = inputbox ("Rate die Zahl!")
do while zahl% <> rate%

if zahl% < rate% then
print "Die Zahl ist zu groß!"
else
print "Die Zahl ist zu klein!"
end if
rate% = inputbox ("Rate die Zahl!")
loop
print "Jawohl!"
End Sub[/code]

Da ich mit Pascal "groß" geworden bin, wäre das für mich eher REPEAT UNTIL als WHILE....

Alternativ muß man wie schon ausgeführt realisieren, daß es 3 Unterscheidungen gibt:
Die Zahl kann kleiner, größer oder gleich 55 sein.
[code]Sub Main
zahl%=55
rate%=0
do while zahl% <> rate%
rate% = inputbox ("Rate die Zahl!")
if zahl% < rate% then
print "Die Zahl ist zu groß!"
elsif zahl% > rate% then
print "Die Zahl ist zu klein!"
else
REM wir tun nichts - Schleife wird beendet und danach kommt das "Jawohl"
end if
loop
print "Jawohl!"
End Sub[/code]

Hier habe ich noch eine 0-Initialisierung für den Ratewert eingesetzt - ich kannte "damals" auch BASIC-Interpreter,
die die Werte vom letzten Durchlauf noch im System hatten... Der zweite Durchlauf wäre dann sofort fertig.

MfG, Jörn

if zahl% < rate% then
  print "Die Zahl ist zu groß!"
else
  print "Die Zahl ist zu klein!"		
end if		

Hei Erika,

also, dein Programm ist technisch schon ok... hat aber einen logischen Fehler drin.

Unabhängig davon, dass sicher der Stil und die Art "ungünstig" gewählt wurde und die Ausführungen von Lorbass unbedingt beachtet werden sollten, ist das Programm an sich korrekt lauffähig.

Der logische Fehler liegt in Deiner inneren Abfrage:

[code]if zahl% < rate% then
print "Die Zahl ist zu groß!"
else
print "Die Zahl ist zu klein!"
end if
[/code]

Die eingegebene Zahl (rate%) wird zwar überprüft, ob sie größer ist als die Vorgabe (zahl%), aber eben dann auch nicht weiter konkretisiert. D.h. auch wenn die Zahl korrekt ist (also die Bedingung zahl% = rate% korrekt ist), wird die else-Schleife zunächst ausgeführt (mit der logisch falschen Aussage).

Anschließend aber beendet sich korrekterweise die Do-While Schleife und das Ergebnis wird dargestellt.

VG Tom

Na denn, ich dachte, ich hätte das mal anders zum Laufen gebracht.
Danke soweit.

Bei Ausführung einer [i]do loop[/i] wird die Abbruchbedingung entweder [b]vor[/b] Ausführung des Befehlsblocks geprüft, oder [b]nach[/b] Ausführung des Befehlsblocks. Wenn du, wie in deinem Beispiel, die Abbruchbedingung [b]innerhalb[/b] des Befehlsblocks prüfen und ggf. aus der [i]loop[/i] aussteigen willst, musst du das mit den üblichen Methoden wie z.B. [i]if … then … elseif … else… end if[/i] und dem „allseits beliebten Veteranen“ ;-) [i]goto[/i] oder (besser) [i]exit do[/i] machen.

Gruß
lorbass

Sub Main
	zahl%=55
	do while zahl% <> rate%
		rate% = inputbox ("Rate die Zahl!")	
		if zahl% < rate% then
			print "Die Zahl ist zu groß!"
		else
			print "Die Zahl ist zu klein!"		
		end if				
	loop
		print "Jawohl!"	
End Sub

Ihr Lieben,
mal was einfaches:
welche Schleife wird sofort verlassen wenn die Bedingung stimmt?
Ich dachte, das würde funktionieren und bei Eingabe von "55" kommt die Ausgabe "jawohl!"- geht aber nicht. Muss ich wirklich einn "exit" einbauen oder ein "elseif"?
[code]Sub Main
zahl%=55
do while zahl% <> rate%
rate% = inputbox ("Rate die Zahl!")
if zahl% < rate% then
print "Die Zahl ist zu groß!"
else
print "Die Zahl ist zu klein!"
end if
loop
print "Jawohl!"
End Sub[/code]
Pit