Aufgaben < LOGO < Programmiersprachen < Praxis < Informatik < Vorhilfe
|
Status: |
(Mitteilung) Reaktion unnötig | Datum: | 18:12 Do 26.06.2003 | Autor: | Fab |
OK,
es sollen Quadrate sein !
Und die Anzahl der Quadrate soll mal nicht wieder beliebig sein, aber wenn die Seitenlänge > =, größer gleich 100 ist soll Ende sein!
pr quadrate :l
wenn :l >= 100 dann rk
quadrat :l
li 90
vw 5
re 90
quadrate :l + 5
ende
So,
und weiter gehts . . .
so jetzt ne spirale
pr spirale :l :w
wenn :l >= 100 dann rk
wenn :w <= 10 dann rk
vw :l re :w
spirale :l + 1 :w - 1
ende
So jetzt einen Streckenzug bei dem die anfangslänge beliebig ist und die Anfangslänge so lange mit 1.1 multpliziert wird bis die Länge einen beliebigen Wert MAX überschritten hat !
pr streckenzug :l :MAX
wenn :l >= :MAX dann rk
vw :l re 90
streckenzug :l * 1.1 :MAX
ende
|
|
|