IF FnF(x)=0 AND FnG(x)=0 THEN
y=x-1:z=x+1:l=1:DO:y=y+l:IF y>=x THEN l=l*.5:y=y-l
z=z-l:a=m:m=(FnF(y)/FnG(y)+FnF(z)/FnG(z))*.5:LOOP UNTIL ABS(m-a)<1E-30:?"Resultado :";m
ELSEIF FnG(x)=0 THEN ?"Resultado : ì
ELSE ?"Resultado :";FnF(x)/FnG(x)
ENDIF:KILL"Limite.Tmp":SYSTEM