Het is verder nog vrij rustig maar erg warm in het hotel. Ik ga op zoek naar wat Delphi beroemdheden!
Dit werkt dan meestal het beste:
Code:
while (not really_drunk) and (bars_to_visit > 0) do begin
bar_found := false;
repeat
search_for_bar;
until bar_found;
decrease(bars_to_visit);
goto bar_In_bar;
label Volgende_bar;
end;
if Really_drunk goto bed
else if bars_to_visit = 0 then begin
get(Really_Drunk);
goto bed;
end;
label bar_In_bar;
order(Drink);
repeat
Look_Around;
until celib_found or sure(No_One_There);
if celib_found then break
else goto Volgende_bar;
Zoals altijd: e&oe!
Tjoe, toch nog lastig om spagetti code te schrijven!
Bookmarks