FoxPro/Visual FoxPro - Ayuda ciclos for anidados en FoxPro

 
Vista:
Imágen de perfil de Angel

Ayuda ciclos for anidados en FoxPro

Publicado por Angel (1 intervención) el 08/07/2016 18:07:03
Buenos dias amigos nesecito de su ayuda con respecto a un codigo parecido a la piramide de pescal con la diferencia que en este caso se le agrega un rectangulo en la parte de abajo para formar una casa.

Lo unico que he podido hacer hasta ahorita es que me salga el triangulo (piramide) girado a 45° a la izquierda todo debe hacerse solo con ciclo for

Este es el codigo que tengo hasta ahora.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
*!*	Imprime la piramide en la pantalla del programa
*!*	Primer for imprime la altura de la piramide
for alp = 1 to 10
?allt(str(alp))
*!*	Segundo for imprime el ancho de la piramida
 for anp = 10 to alp step -1
 ??allt(str(anp))
 next
next
 
*!*	Imprime el rectangulo bajo el triangulo
*!*	Primer for imprime el alto del rectangulo
for alr = 1 to 4
?allt(str(alr))
*!*	Segundo for imprime el ancho del rectangulo
 for anr = 10 to 1 step -1
 ??allt(str(anr))
 next
next

Agradeceria su ayuda y colaboracion de antemano muchas 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