wie kann ich eine raute mit delphi programmieren, das mir das auf einer konsolenanwendung angezeigt wird? bisher habe ich:
begin
try
Writeln('Welches Zeichen?');
Readln(s);
Writeln('Zeilen?');
Readln(n);
x := (n div 2);
for i := 1 to x do
begin
zeile := '';
sterne := '';
leer := '';
for j := 1 to ((i*2)-1) do
sterne := sterne + s;
for j := 1 to (40-i) do
leer := leer + ' ';
zeile := leer + sterne;
Writeln(zeile);
end;
for l := x+1 to n do
weiter weiß ich aber nicht...ich soll das ganze mit for-schleifen machen. die pyramide hab ich ja nun schon, fehlt mir mein unterteil der raute, kann mir wer helfen?
sacerdote Gast |
