Pascal/Turbo Pascal - cuadrado ciclico

   
Vista:

cuadrado ciclico

Publicado por jose carlos (2 intervenciones) el 04/11/2010 20:23:41
Necesito, pero no doy con ello, programar en pascal, lo siguiente.
Se introduce por teclado un numero impar -n- y se tiene que visualizar lo siguiente.
Ej si meto un 3 se debería ver: 111
121
111

Si meto un 5 se debería ver: 11111
12221
12321
12221
11111

Si meto un 7 se deberia ver: 1111111
1222221
1233321
1234321
1233321
1222221
1111111
Etc, etc, según el ímpar introducido dibuja cuadrados mismo número.
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:cuadrado ciclico

Publicado por c (4 intervenciones) el 05/11/2010 09:58:41
for i:=1 to n div 2
begin
for j:=1 to i do
write(j);
for j:=1 to n-2*i do
write(i)
for j:=i downto 1 do
write(j)
writeln
end
for i:=1 to n div 2 +1 do
write(i)
for i:=n div 2 downto 1 do
write(i)
writeln
for i:=n div 2 downto 1
begin
for j:=1 to i do
write(j);
for j:=1 to n-2*i do
write(i)
for j:=i downto 1 do
write(j)
writeln
end
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:cuadrado ciclico

Publicado por josecarlos (2 intervenciones) el 05/11/2010 21:18:22
Un millón de gracias. <
Solo soy un novato, pero si en algo puedo ayudar estoy a vuestra disposición. Gracias de nuevo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar