lprint(`Úloha 111:`); lprint(`Funkci f aproximujte jen s pomocí tabulky hodnot a čtyř základních`); lprint(`aritmetických operací (eventuálně umocňování s celočíselným`); lprint(`exponentem) tak, abyste dosáhli relativní chybu nejvýše epsilon na`); lprint(`intervalu nejméně (a,b), kde`); f := t -> exp(1-1/(1+abs(1-t^2))); a := -25; b := 25; epsilon := 10^(-6);