Pascal/Turbo Pascal - ayuda porfavor ayuda urgente

   
Vista:

ayuda porfavor ayuda urgente

Publicado por josh (2 intervenciones) el 26/01/2010 02:16:28
buenas necesito un gran favor llevo 1 semana tratando de hacerlo pero no puedo y tengo q entregarlo mañana tengo q diseñar un programa q genere el triangulo de pascal porfavor necesito ayuda urgente lo agradeceria muchisimo =(
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:ayuda porfavor ayuda urgente

Publicado por Diego Romero (997 intervenciones) el 26/01/2010 03:22:08
Tus urgencias no son las nuestras.

Pon lo que llevas hecho.
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:ayuda porfavor ayuda urgente

Publicado por josh (2 intervenciones) el 26/01/2010 03:24:25
program triangulo
uses crt

DIM D, K AS INTEGER
LOCATE 10, 10
INPUT "POTENCIA DEL TRIANGULO DE PASCAL?", D
K = D + 1
DIM A(K, K) AS INTEGER
DIM F, C, W, Z, Y, X AS INTEGER

FOR I = 1 TO D

A(I, 1) = 1
A(I, I) = 1

IF I >= 2 THEN

FOR X = 2 TO I
A(I + 1, X) = A(I, X - 1) + A(I, X)
NEXT X
Q = Q + 1

END IF
NEXT I

A(K, 1) = 1
A(K, K) = 1
Y = 0
C = 40
W = 15
FOR Z = 1 TO K
IF Z > 1 THEN
C = 40 - Y
END IF

FOR F = 1 TO K

IF F <= Z THEN
LOCATE W, C
PRINT A(Z, F)
IF Z > 1 THEN
C = C + 4


END IF

END IF

NEXT F
Y = Y + 2
W = W + 2
NEXT Z
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:ayuda porfavor ayuda urgente

Publicado por edwin (71 intervenciones) el 26/01/2010 06:11:35
esto es basic
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