Karel D. Robot - Workshop, G.I.

Aufgabe 6 - Kanalsuche - Lösung

procedure TMyRobot.SucheBlume;
// Findet und pflückt die Blume. Rekursive Suche.
Begin
If (HindernisPruefen is TBlume)
Then Aufnehmen
Else
    Begin
      If VorneFrei
      Then
        Begin
          Vor;
          SucheBlume;
          Zurueck
        End
      Else
        If linksFrei
        Then
          Begin
            LinksDrehen;
            SucheBlume;
            RechtsDrehen
          End
        Else
          Begin
            RechtsDrehen;
            SucheBlume;
            LinksDrehen
          End;
    End;
End;