Déterminer les primitives pour chacune des fonctions suivantes

<<analyse.m
n=0;
n++;int[n]=Integrale[HoldForm[(2x+3)/(2x+1)],x];
n++;int[n]=Integrale[HoldForm[(x+1)^2],x,t,x+1];
n++;int[n]=Integrale[HoldForm[1/(3+2x)],x];
n++;int[n]=Integrale[HoldForm[x/Sqrt[x^2+1]],x];
n++;int[n]=Integrale[HoldForm[(Sqrt[x]+Log[x])/x],x];
n++;int[n]=Integrale[HoldForm[x/(x^2+1)],x];
n++;int[n]=Integrale[HoldForm[x/(x^2-5)],x];
n++;int[n]=Integrale[HoldForm[x/(2x^2+3)],x];
n++;int[n]=Integrale[HoldForm[x/Sqrt[1-x^4]],x];
n++;int[n]=Integrale[HoldForm[x^2/(1+x^6)],x];
n++;int[n]=Integrale[HoldForm[E^(-2x)],x];
n++;int[n]=Integrale[HoldForm[E^x-E^(-x)],x];
n++;int[n]=Integrale[HoldForm[x E^(x^2+1)],x];
n++;int[n]=Integrale[HoldForm[x*7^(x^2)],x];
n++;int[n]=Integrale[HoldForm[(((E^x)-1)/(E^x))],x];
n++;int[n]=Integrale[HoldForm[((E^x)/((E^x)-1))],x];
n++;int[n]=Integrale[HoldForm[Cos[5x]],x];
n++;int[n]=Integrale[HoldForm[x/Cos[x^2]^2],x];
n++;int[n]=Integrale[HoldForm[Tan[x]],x];
n++;int[n]=Integrale[HoldForm[x E^(-x^2)],x];
n++;int[n]=Integrale[HoldForm[(1-Sin[x])/(x+Cos[x])],x];
n++;int[n]=Integrale[HoldForm[Cos[x] E^(Sin[x])],x];
n++;int[n]=Integrale[HoldForm[Sin[x] E^(Cos[x])],x];
n++;int[n]=Integrale[HoldForm[(x^2+x) (2x^3+3x^2+5)^6],x,t,2x^3+3x^2+5];
n++;int[n]=Integrale[HoldForm[3Sin[3x]],x];
n++;int[n]=Integrale[HoldForm[1/(1+(4x+2)^2)],x];
n++;int[n]=Integrale[HoldForm[x Sin[x] Cos[x]^2],x];
n++;int[n]=Integrale[HoldForm[x (x-3)^7],x,t,x-3];
n++;int[n]=Integrale[HoldForm[2x Cos[x]],x];
n++;int[n]=Integrale[HoldForm[3x/Sqrt[3+x]],x];
n++;int[n]=Integrale[HoldForm[-x^2/(1+x^2)^2],x];
n++;int[n]=Integrale[HoldForm[(2x^2-x) (4x^3-3x^2-7)^4],x,t,4x^3-3x^2-7];
n++;int[n]=Integrale[HoldForm[1/Sqrt[1-9x^2]],x];
n++;int[n]=Integrale[HoldForm[ArcCot[x]^2/(1+x^2)],x];

Do[Print[i,") ",int[i]],{i,1,n}]

Solutions

Do[Print[i,") ",Calcule[int[i]]],{i,1,n}]