[ Foro de Pascal ]

Ayuda con patrones de *'s

25-Dec-2008 22:40
Douglas Andrik Chet Morales
1 Respuestas

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


12-Jan-2009 12:22
Nacho Cabanes (+32)

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






(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)