[ Foro de Pascal ]

Ayuda con patrones de *'s

Hola Amigos, Gracias por su invaluable ayuda... ahora, se me presenta el problema de konstruir los siguientes patrones de *s...
<quote>
*
**
***
****
*****
******
*******
********
*********
**********
**********
*********
********
*******
******
*****
****
***
**
*
**********
*********
********
*******
******
*****
****
***
**
*
*
**
***
****
*****
******
*******
********
*********
**********
</quote>

bueno, el codigo ke imprime todos los asteriscos, lo he eskrito... gracias a Nacho, la situación es la de los espacios ke deben ir en el segundo grupo de *s....

el código ke tengo es este...
[code]
program asterisc;
uses crt;
var
x,y:integer;
begin
clrscr;
writeln('Programa de Impresion de patrones de *s');
for y:= 1 to 10 do
begin
for x:= 1 to y do
begin
write('*');
end;
writeln;
end;
for y:= 1 to 10 do
begin
for x:= 10 downto y do
begin
write('*');
end;
writeln;
end;
readkey;
for y:= 1 to 10 do
begin
for x:= 10 downto y do
begin
write('*');
end;
writeln;
end;
for y:= 1 to 10 do
begin
for x:= 1 to y do
begin
write('*');
end;
writeln;
end;
Readln;
end.
[/code]

he intentado imprimir tb espacios, pero... no he enkontrado komo... gracias por su ayuda

---

Cuando quieras imprimir espacios en vez de asteriscos, basta con que uses

write(' ') en lugar de write('*')

(fíjate que las dos comillas están separadas por un espacio).

---

---