Mehrfach Sprung
Tuesday, April 26th, 2005
Ziel ist bei dieser Übung, dass Niki in aneinander gereihte Boxen springt und wenn Summer in der Box liegen, diese alle aufzunehmen. Am Ende sollen alle Summer wieder abgegeben werden.

Und so kann der Code zur Lösung aussehen:
program mehrfachsprung;procedure kehr;
begin
drehe_links;
drehe_links;
end;procedure drehe_rechts;
begin
drehe_links;
drehe_links;
drehe_links;
end;procedure sprung;
begin
vor;
drehe_rechts;
vor;
drehe_rechts;
vor;
kehr;
end;procedure nimm;
begin
while platz_belegt do nimm_auf;
end;procedure gib;
begin
while hat_vorrat do gib_ab;
end;(*Hauptprogramm*)
begin
while not rechts_frei do
begin;
sprung;
nimm;
end;
gib;
vor;
end.
Eine kleine Anmerkung. Es ist selbstredend, dass der Code, der Übersicht wegen, entsprechend eingerückt sein müsste. Jedoch ist das im HTML etwas mühsam und würde mir zuviel Zeit rauben. Wenn das jemand für mich erledigen möchte, der darf sich gerne bei mir melden…
Not commented yet.