?:s=(b-a)/n%:?"Formula retangular":i1=0:i2=0:FOR x=a TO b STEP s:y=Fnf(x)
IF x>a THEN i1=i1+y
IF x<b THEN i2=i2+y
NEXT:?"Valor 1:"; i1*s:?"Valor 2:"; i2*s:?"Valor M:"; (i1+i2)*.5*s:?:?"Formula trapezoidal":?(i1-Fnf(a)+(Fnf(a)+Fnf(b))*.5)*s:?:?"Formula parabolica":s=(b-a)/n%:i=Fnf(a)+Fnf(b):x=a:FOR t%=1 TO n%-1:x=x+s:y=Fnf(x):i=i+(2*(t% mod 2)+2)*y:NEXT:?i*s/3:?
KILL "Integral.Tmp":SYSTEM