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 =)