Calcul de limites

Calculer les limites suivantes

n=0;

f[x_]:=(Sqrt[x+4]-2)/x;
a=0;
n++;lim[n]=Limite[f[x],x,a];



f[x_]:=(Sqrt[2x+1]-3)/(x-4);
a=4;
n++;lim[n]=Limite[f[x],x,a];

f[x_]:=(x^2-9)/(Sqrt[x]-Sqrt[3]);
a=3;
n++;lim[n]=Limite[f[x],x,a];

f[x_]:=(1-Sqrt[1-x])/x;
a=0;
n++;lim[n]=Limite[f[x],x,a];

f[x_]:=(Sqrt[x+3]-2)/(x-1);
a=1;
n++;lim[n]=Limite[f[x],x,a];

f[x_]:=(Sqrt[x+2]-Sqrt[3x-2])/(x-2);
a=2;
n++;lim[n]=Limite[f[x],x,a];

f[x_]:=(2-Sqrt[x+3])/Sqrt[x-1];
a=1;
n++;lim[n]=Limite[f[x],x,a];

f[x_]:=(Sqrt[x+2]-Sqrt[2x+1])/(Sqrt[x+3]-Sqrt[3x+1]);
a=1;
n++;lim[n]=Limite[f[x],x,a];

f[x_]:=x/(Sqrt[x+1]-1);
a=0;
n++;lim[n]=Limite[f[x],x,a];

f[x_]:=(Sqrt[x]-1)/(x-1);
a=1;
n++;lim[n]=Limite[f[x],x,a];

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

Solutions

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