@fkerber ... ich glaub der Baum sollte net nur halb gezeichnet werden.
Ich hab mal nen kurzen Pascal-Quelltext gemacht (da es für die Schule ist soll's ja bestimmt in Pascal sein, oder lernt von euch jemand in der Schule Delphi???...Das wär natürlich geil)
...hoff mal der funzt
Delphi-Quellcode:
var
a,b,x,y,z: integer;
begin
write('Bitte Höhe der Krone einegben: ');
readln(a);
write('Bitte Höhe des Stammes einegben: ');
readln(b);
writeln;
writeln;
for x := a downto 1 do
begin
for y := 1 to (x-1) do write(' ');
if (a-x) > 0 then
for z := 1 to 2*(a-x) do write('*');
writeln('*');
end;
for x := 1 to b do
begin
for y := 1 to (a-2) do write(' ');
writeln('***');
end;
readln;
end.
MfG Niels
PS: Meine Lösung ist genau nach der Aufgabe des Lehrers...siehe oben @fkerber