Wie man schon ma Titel erkennt geht es um Grafische rekursion.
Ich Habe da ne Frage zu einer Form oder wie man das nennt.
Am besten erst mal das Bild ansehen:
http://www.masterspace.biz/reaven/GrafRek.JPG (müsst den link in den Broser kopieren)
Nun weiß ich nicht wie ich das machen soll, ich hab mir was überlegt aber der gibt nur kleine dreiecke aus.
procedure ZeichneAufg1(Stufe: Integer; laenge :real);
begin
if stufe > 0 then begin
ZeichneAufg(Stufe-1,laenge/3);
stift.links(60);
ZeichneAufg1(Stufe-1,laenge/3);
stift.rechts(120);
ZeichneAufg1(Stufe-1,laenge/3);
stift.links(60);
ZeichneAufg1(Stufe-1,laenge/3);
stift.rechts(120);
ZeichneAufg1(Stufe-1,laenge/3);
stift.links(60);
ZeichneAufg1(Stufe-1,laenge/3);
stift.rechts(120);
ZeichneAufg1(Stufe-1,laenge/3);
stift.links(60);
ZeichneAufg1(Stufe-1,laenge/3);
stift.rechts(120);
ZeichneAufg1(Stufe-1,laenge/3);
stift.links(60);
ZeichneAufg1(Stufe-1,laenge/3);
stift.rechts(120);
ZeichneAufg1(Stufe-1,laenge/3);
stift.links(60);
ZeichneAufg1(Stufe-1,laenge/3);
stift.rechts(120);
end
else begin
stift.vorwaerts(laenge);
stift.links(120);
stift.vorwaerts(laenge);
stift.links(120);
stift.vorwaerts(laenge);
end
end;
sagt mir mal bitte warum das so nicht geht und wie ich es machen soll bei der KochKurve und na anderen GrafRek hats auch so geklappt.
danke schon mal jetzt
