ayuda con un codigo
Publicado por Angeles (1 intervención) el 21/02/2002 01:48:20
por favor quisiera ver si alguien me puede ayudar a pasar este programa a C. es que no entiendo este otro lenguaje.
De antemano agradezco su atencion.
IMPLICIT none
REAL:: term, test, sum, x
INTEGER::i
i=0
term=1.
sum=1.
test=0.
PRINT *, 'x ='
READ *, x
PRINT *, 'i', 'term', sum
DO
IF (sum.EQ.test) EXIT
PRINT *, i, term, sum
i=i+1
term=term*x/i
test= sum
sum=sum+term
END DO
PRINT *, 'exact value=' , exp(x)
END
De antemano agradezco su atencion.
IMPLICIT none
REAL:: term, test, sum, x
INTEGER::i
i=0
term=1.
sum=1.
test=0.
PRINT *, 'x ='
READ *, x
PRINT *, 'i', 'term', sum
DO
IF (sum.EQ.test) EXIT
PRINT *, i, term, sum
i=i+1
term=term*x/i
test= sum
sum=sum+term
END DO
PRINT *, 'exact value=' , exp(x)
END
Valora esta pregunta


0