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 ;/
Seite 1 von 1
Weihnachtsbaum Mit Einem Zeichen ?! Turbo Pascal !
Anzeige
#2
geschrieben 29. Dezember 2003 - 20:05
Naja also ganz ohne Write/WriteLn geht es ja nicht, weil sonst nix aufm Bildschirm erscheint ...
#3
geschrieben 04. Januar 2004 - 18:55
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...
Thema verteilen:
Seite 1 von 1