[Soul]

Hallo,
ich muss einen Weihnachtsbaum mit einem einzigen Zeichen mit turbo pascal schreiben.Hab hier jetzt schon was:


Program Weihnachtsbaum;
uses crt;
VAR k,i,Anzahl,j : integer;

BEGIN
clrscr;
Anzahl:=10;
k:=1;
i:=1;
Gotoxy (40,5);
FOR k:=1 TO Anzahl DO BEGIN
FOR i:=1 TO 2*k-1 DO BEGIN
GotoXY (40-(Anzahl DIV 2)+i-k,k);
textcolor (green);
write ('x');
END;
END;
FOR k:=1 TO 6 DO
For i:=1 TO 3 DO BEGIN
GotoXY (40-(Anzahl DIV 2)-1,Anzahl+1);
textcolor (brown);
writeln ('xxx');
GotoXY (40-(Anzahl DIV 2)-1,Anzahl+2);
write ('xxx');
END;
GotoXY (35,1);
textcolor (yellow);
write ('*');
GotoXY (12,Anzahl+3); write ('Oh Tannenbaum, oh Tannenbaum wie sch”n sind deine Bl„tter...'); delay (500);
readln;
END.

END.


Mein Problem ist, zum einen,wie mach ich den stamm?Weil das writeln ist ja gemogelt! Und zum andren wie hänge ich da noch "schmuck " drauf ?irgendwas,+ Zeichen oder so...


Sagt nix,ich weiss,doofe Aufgabe ;/

[Dimension]

Naja also ganz ohne Write/WriteLn geht es ja nicht, weil sonst nix aufm Bildschirm erscheint ...

[xero]

Zitat (Soul: 07.12.2003, 16:10)

Sagt nix,ich weiss,doofe Aufgabe ;/

So doof auch nicht, kam vor kuzem in einer Aufgabe der Uni vor... das ganze musste aber in Java realisiert werden...