Anmeldungsdatum: 15.02.2005 Beiträge: 42 Wohnort: Freiburg i. Brsg.
Verfasst am: 21. Feb 2005 17:46 Titel:
Alternative ohne Break in der Schleife:
Code:
Function Spiel(const ende: integer): integer;
var
ges,a: integer;
begin
ges:=0;
a:= random(5)+1;
while a <> 3 do
begin
inc(ges,a);
a:= random(5)+1; // neuer Wurf.
if ges>= ende then // Überprüfung ob angehalten werden soll
begin
result:=ges;
a:=3; // Schleife wird sicher beendet.
end;
end;
if ges < ende then // Würfeln wurde abgebrochen, weil eine drei gefallen ist.
result:= 0;
end;
Die erste Überprüfung war unnötig, da bei einer drei die Schleife ignoriert wird, und das result bei ges=0 auf Null gesetzt wird.
Alle Zeiten sind GMT + 1 Stunde Gehe zu Seite Zurück1, 2, 3
Seite 3 von 3
Du kannst keine Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum nicht antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen. Du kannst Dateien in diesem Forum nicht posten Du kannst Dateien in diesem Forum nicht herunterladen