Das Haus vom Nikolaus Konsolenanwendung

[ehX]

Höhö.....

Delphi-Quellcode:

program DasHausVomNikolaus;

{$APPTYPE CONSOLE}

var
  i : Integer ;
  haus : array[0..42] of string = (
'______________X',
'_____________X_X',
'____________X___X',
'___________X_____X',
'__________X_______X',
'_________X_________X',
'________X___________X',
'_______X_____________X',
'______X_______________X',
'_____X_________________X',
'____X___________________X',
'___X_____________________X',
'__X_______________________X',
'_X_________________________X',
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXX',
'XX_________________________XX',
'X_X_______________________X_X',
'X__X_____________________X__X',
'X___X___________________X___X',
'X____X_________________X____X',
'X_____X_______________X_____X',
'X______X_____________X______X',
'X_______X___________X_______X',
'X________X_________X________X',
'X_________X_______X_________X',
'X__________X_____X__________X',
'X___________X___X___________X',
'X____________X_X____________X',
'X_____________X_____________X',
'X____________X_X____________X',
'X___________X___X___________X',
'X__________X_____X__________X',
'X_________X_______X_________X',
'X________X_________X________X',
'X_______X___________X_______X',
'X______X_____________X______X',
'X_____X_______________X_____X',
'X____X_________________X____X',
'X___X___________________X___X',
'X__X_____________________X__X',
'X_X_______________________X_X',
'XX_________________________XX',
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
);



begin

for i := 0 to High(Haus) do
    Writeln(Haus[i]);

readln; // Wenn man unbedingt nen Stop braucht...
end.

Vielleicht nicht ganz....im Sinn der Informatiklehrers....aber eine Lösung
(Unterstriche evtl noch durch Leerzeichen ersetzen, die Leerzeichen hatte es mir hier beim Posten zerschossen )

P.S: Ja, ich weiss, es geht auch anders, indem man es "wirklich" programmiert..aber ich würde meinem Infolehrer bei so einer doofen Aufgabe (CMD-Programm...) genau das vorsetzen