Karel D. Robot - Workshop, G.I.

Mehrere Robots in Aktion - Gras mähen

Karel D. Robot - Rasen mähen

var RD1, RD2 : TRobot;
Karel : TKarel;
.....

repeat
if RD1.HindernisPruefen is TGras then RD1.Vor;
if RD2.HindernisPruefen is TGras then RD2.Vor;

if Karel.HindernisPruefen is TGras
then
    begin
      karel.Aufnehmen;
      Karel.Vor;
    end;

if RD1.VorneFrei then RD1.RechtsDrehen;
if RD2.VorneFrei then RD2.RechtsDrehen;
if Karel.VorneFrei then Karel.RechtsDrehen;
until ((RD1.VorneFrei) and (RD2.VorneFrei));