Beiträge von Babba

  • Pythagorasbaum in Logo

    to Pythagoras :stufe :laenge
    test :stufe=0
    iftrue [quadrat :laenge]
    iffalse [
    quadrat :laenge
    repeat :stufe [
    right 53.13
    make 'laenge :laenge*4/5
    quadrat :laenge
    make 'laenge :laenge*3/4
    quadrat :laenge
    left 90
    forward :laenge
    left 90 ]
    ]
    end

    to Quadrat :laenge
    repeat 4 [ forward :laenge right 90 ]
    right 90
    forward :laenge
    end

    Das habe ich, aber irgendwie geht das immer in die falsche Richtung und ich kann auch nicht auf beide neuen Quadrate nochmal Quadrate draufzeichnen.