LOGIN | NEU REGISTRIEREN

Schule > Informatik > Programmiersprachen > Delphi > Pascal - Niki - Aufgabe

PROGRAM muell;

PROCEDURE drehe_um;
BEGIN
drehe_links;
drehe_links;
END;
PROCEDURE drehe_rechts;
BEGIN
drehe_links;
drehe_links;
drehe_links;
END;
BEGIN
vor;
drehe_rechts;
vor;
IF NOT platz_belegt AND NOT rechts_frei THEN vor;
WHILE platz_belegt DO nimm_auf;
IF rechts_frei THEN drehe_rechts;
vor;
REPEAT
IF platz_belegt THEN nimm_auf;
IF NOT platz_belegt THEN vor;
UNTIL rechts_frei;
IF rechts_frei THEN drehe_rechts; vor;
REPEAT
IF platz_belegt THEN nimm_auf;
IF NOT platz_belegt THEN vor;
UNTIL rechts_frei;
IF rechts_frei THEN drehe_rechts; vor;
REPEAT
IF platz_belegt THEN nimm_auf;
IF NOT platz_belegt THEN vor;
UNTIL rechts_frei;
IF rechts_frei THEN drehe_rechts; vor;
REPEAT
IF platz_belegt THEN nimm_auf;
IF NOT platz_belegt THEN vor;
UNTIL rechts_frei;
IF rechts_frei THEN drehe_rechts; vor;
drehe_um
END.

Download: PDF, TXT