Das Haus vom Nikolaus Konsolenanwendung

[ehX]

Ist bei der Aufgabe nicht generell die Vorgabe, ein haus zu zeichnen, ohne den "Zeichenstift" abzusetzen?
Wenn das so ist, ist die von mir im vorherigen Post genannte Lösung, ein simples String-Array auszuwerfen, ja theoretisch für ein CMD-Programm die einzig richtige, da das die einzige Lösung ist, bei der in der Konsole nicht neu positioniert werden muss und der "Zeichenstift" Zeile für Zeile durchgeht, ohne eine noch einmal zu durchwandern
(mal vom Zeilensprung von Writeln abgesehen, aber der lässt sich ja eh nicht vermeiden...)

Ich hab hier auch eine Unit rumliegen, mit der ich immer in der Konsole positioniere...die müsste ich allerdings mal von den Abhängigkeiten meiner Libs freischaufeln...

[Namenloser]

[OT]

Zitat von ehX:

Ist bei der Aufgabe nicht generell die Vorgabe, ein haus zu zeichnen, ohne den "Zeichenstift" abzusetzen?

Ohweia, jetzt wo du’s sagst... wahrscheinlich kommt der Lehrer als nächstes mit dieser Turtle-Unit an
[/OT]

[Jumpy]

Das würde wohl auch die ganzen read bzw. readln erklären, wenn nach jedem 'x' oder jedem "Strich" des Hauses eine Pause gemacht wird, damit man die Entwicklung sieht.

[himitsu]

Zitat von Jumpy:

Das würde wohl auch die ganzen read bzw. readln erklären, wenn nach jedem 'x' oder jedem "Strich" des Hauses eine Pause gemacht wird, damit man die Entwicklung sieht.

Wobei man sowas, vorallem bei einer Konsolenanwendung, extrem gut debuggen könnte, da sich Windows um das Zeichnen der Konsole kümmert und nicht die eigene Anwendung.

Aber das ReadLn am Schluß ist schon wichtig, wenn man das Programm micht über eine Konsole startet.
Also z.B. aus Delphi heraus oder über den Explorer.

Denn dort nimmt das Programm ja "seine" selbsterstellte Konsole mit und man sieht (fast) nix, ohne Debugger.

[AoN]

So hat man das ganze Haus; bei a wird die Größe eingegeben (Bis max. 80, da es sonst nicht mehr in die Konsole passt ).
Das mit a MOD ist da sonst die Diagonalen nicht ganz passen würden.

Code:

program Project1;
{$AppType Console}
var i, a, c, j: integer;
begin
   a := 10;
   if (a MOD 2) = 1 then
    a := a+1;
   c := (a div 2);
   for i := 0 to a do
   begin
    for j := 0 to a do
     if
    (((i=j) and (i>c)) or
    ((a-j=i) and (j<=c)))
    then
     write('X')
    else
     write(' ');
   writeLn
  end;
  for i := 0 to a do
  begin
   for j := 0 to a do
    if
    ((i=0) or (j=0) or (j=a) or (i=a) or (i=j) or (a-j=i))
    then
     write('X')
    else
     write(' ');
   writeLn
  end;
  readLn
end.

Viel Spaß damit =)

[himitsu]

Wenn du

Delphi-Quellcode:

for i := 0 to a do
  begin
   for j := 0 to a do

die Y-Achse von -a/2 bis a laufen läßt und die Diagonalen mit
einem "Überlauf" versiehst (ABS(x) und x mod (a+1) ),
dabei noch die senkrechten im negativen Y-Bereich nicht anzeigst,
dann kannst du die erste Dachschleife dort mit integrieren.

[Klaus01]

etwas OT:

alles auf ein zweifarbiges BMP zeichnen das BMP nach AsciiArt umwandeln.

Dann die erhaltenen Zeichen zeilenweise ausgeben.

Grüße
Klaus