/* Programa exer15_.calc Assunto: Somas de Riemann Descrição: cálculo de integrais aprox por somas de Riemann Cálculo aproximado de ln(2), ln(3), ln(5) Cálculo aproximado do número de Neper palavras chave: Riemann, integral, varredura por Tarcisio Praciano Pereira - C para matemáticos Sobral, Dezembro de 2005 - UeVA */ define f(x) { return (x <=0 )?0:1/x; } define entrada_float(msg, x) { printf("%s %f ",msg, x); scanf("%f", x); return(x); } define Riemann(inicio, fim, delta) { local soma=0,x=inicio; while (x <= fim) { soma = soma + f(x); x = x + delta; } return (soma*delta); } define E(n){ local k = 0; local soma = 0; while (k <= n){ soma = soma + 1/fact(k); k++; } return(soma); } print "valor aproximado de e com n = 20 ", E(20) ; log2 = Riemann(1,2,0.001) print "valor aproximado do ln(2) ", log2; log3 = Riemann(1,3,0.001); print "valor aproximado do ln(3) ", log3 log5 = Riemann(1,5,0.001) print "valor aproximado do ln(5) ", log5; log6 = Riemann(1,6,0.001); print "valor aproximado do ln(6) ", log6 print " ln(2) + ln(3) = ln(6) "; print log2 , "+", log3, " = ", log6 quit;