Domaine de définition

Le domaine de définition d’une fonction réelle f est l’ensemble 

dom f = { x ∈ ℝ : f(x) ∈ ℝ}

Déterminer le domaine de définition des fonctions suivantes:

i=0;
f[x_]:=(16x^2-2x+8)/(x^2+5x+6);
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=Sqrt[x^2+3x-10];
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=(x+6)/(x^3+5x);
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=Sqrt[4x-x^3];
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=Sqrt[3x-2];
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=(8x^2-5x+3)/(x^2-5x+6);
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=Sqrt[x^2-3x-18];
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=(4x^2-5x+15)/(x^3+6x);
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=1/Sqrt[2x-x^3];
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=Sqrt[2-x]/Sqrt[5x-1];
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=Sqrt[2-3x+x^2]/Sqrt[2x-1];
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=(x^2+x-1)/Sqrt[2x^2-3x+1];
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=Sqrt[x+7]+Sqrt[2x^2-3x-9];
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=Sqrt[x+4]+Sqrt[x^2-3x-10];
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=Sqrt[2x^2-5x-3]/(x^2-2x-3);
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=(x^2+5x-7)/Sqrt[2x^2+3x-2];
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=Sqrt[3-x]/Sqrt[4x-1];
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=Sqrt[x^2-5]/(x+1);
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=Sqrt[x+1]+(1/(8-(x^3)));
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

f[x_]:=Sqrt[(2-5x)/(x^2-6x+5)];
i++;
fct[i]=f[x];dom[i]=Presente["dom f",Domaine[fct[i],x]];

Do[Print[n,") f(x) =",fct[n]],{n,1,10}]

Do[Print[n,") f(x) =",fct[n]],{n,11,20}]

Solutions

Do[Print[n,") ",dom[n]],{n,1,20}]