Karel D. Robot - Workshop, G.I.

Aufgabe 5 a - Iteration - Lösung

Fügen Sie der Klasse TMyRobot eine Methode UmDieSperre hinzu, die Robby von A nach B fahren läßt.

procedure TMyRobot.UmDieSperre;   // mit Schleifen
Var SpaltenAnzahl,
    ZeilenAnzahl : Integer;
begin
ZuDerSperre_iterativ (SpaltenAnzahl);
RechtsDrehen;
RechtsDrehen;
RechtsDrehen;
NachOben_iterativ (ZeilenAnzahl);
RechtsDrehen;
Vor;
Vor;
RechtsDrehen;
NachUnten_iterativ (ZeilenAnzahl);
RechtsDrehen;
RechtsDrehen;
RechtsDrehen;
VonDerSperreWeg_iterativ (SpaltenAnzahl);
end;

procedure TMyRobot.NachOben_iterativ(var Anzahl: Integer);
begin
Anzahl := 0;
While (RechtsFrei = False) Do
    Begin
      Anzahl := Anzahl + 1;
      Vor;
    End;
end;

procedure TMyRobot.NachUnten_iterativ(Anzahl: Integer);
Var x: Integer;
begin
For x := 1 To Anzahl Do
    Vor;
end;

procedure TMyRobot.VonDerSperreWeg_iterativ(Anzahl: Integer);
Var x: Integer;
begin
For x := 1 To Anzahl Do
    Vor;
end;

procedure TMyRobot.ZuDerSperre_iterativ(var Anzahl: Integer);
begin
Anzahl := 0;
While VorneFrei Do
    Begin
      Anzahl := Anzahl + 1;
      Vor;
    End;
end;