Für Schule Niki

  • program aufg3b;
    procedure U;
    begin
    vor;
    gib_ab;
    vor;
    gib_ab;
    vor;
    gib_ab;
    vor;
    gib_ab;
    vor;
    gib_ab;
    end;


    procedure uu;
    begin
    drehe_links;
    vor;
    gib_ab;
    vor;
    gib_ab;
    drehe_links;
    end;


    procedure weg;
    begin
    drehe_links;
    vor;
    vor;
    vor;
    vor;
    vor;
    drehe_links;
    drehe_links;
    drehe_links;
    vor;
    vor;
    vor;
    vor;
    vor;
    drehe_links;
    drehe_links;
    drehe_links;
    end;



    BEGIN
    Arbeitsfeld(aufg3b);
    weg;
    U;
    uu;
    U;
    END.







    program aufg3d;
    procedure mauer;
    begin
    vor;
    nimm_auf;
    drehe_links;
    drehe_links;
    drehe_links;
    vor;
    vor;
    nimm_auf;
    vor;
    vor;
    nimm_auf;
    vor;
    vor;
    nimm_auf;
    vor;
    vor;
    vor;
    drehe_links;
    vor;
    nimm_auf;
    drehe_links;
    vor;
    vor;
    nimm_auf;
    vor;
    vor;
    nimm_auf;
    vor;
    vor;
    nimm_auf;
    vor;
    vor;
    nimm_auf;
    vor;
    drehe_links;
    drehe_links;
    drehe_links;
    end;

    procedure gehe;
    begin
    vor;
    vor;
    end;

    procedure gehen;
    begin
    vor; vor; vor; vor;
    end;

    BEGIN
    Arbeitsfeld(aufg3d);
    mauer;
    gehe;
    mauer;
    gehen;
    mauer;
    END.

    Von nichts kommt nichts.