Equations trigonométriques simples

<<trigo.m
n=0;
n++;eq[n]=2Sinus[2x]+1==0;

n++;eq[n]=√2 Cosinus[3x]+1==0;

n++;eq[n]=Tangente[2x]+√3==0;

n++;eq[n]=2Cosinus[x+π/4]+√3==0;

n++;eq[n]=HoldForm[-√3 Tangente[π/3-2x]-1==0];

n++;eq[n]=Sinus[x+π/4]+1==0;

n++;eq[n]=2Cosinus[π/3-3x]+1==0;

n++;eq[n]=Tangente[2x]==√3;

n++;eq[n]=Sinus[π/6-3x]==1/2;

n++;eq[n]=Cosinus[x+π/6]==0;

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

Solutions

Do[Print[i,") "];sol[i]=ResoudreTrigo[ReleaseHold[ eq[i]],x];
Print[sol[i]]
,{i,1,n}]