Calcul de logarithmes

Calculer

calcul[1]=HoldForm[Log[2,64]];reponse[1]=ReleaseHold[calcul[1]];
calcul[2]=HoldForm[Log[1/3,27]];reponse[2]=Simplify[ReleaseHold[calcul[2]]];
calcul[3]=HoldForm[Log[5,(Sqrt[125])]];reponse[3]=Simplify[ReleaseHold[calcul[3]]];
calcul[4]=HoldForm[Log[6,(1/(36^(1/3)))]];reponse[4]=Simplify[ReleaseHold[calcul[4]]];
calcul[5]=HoldForm[Log[10,0.0001]];reponse[5]=Simplify[ReleaseHold[calcul[5]]];
calcul[6]=HoldForm[Log[10,1000]];reponse[6]=Simplify[ReleaseHold[calcul[6]]];
calcul[7]=HoldForm[Log[1/7,49]];reponse[7]=Simplify[ReleaseHold[calcul[7]]];
calcul[8]=HoldForm[Log[16,(1/4)]];reponse[8]=Simplify[ReleaseHold[calcul[8]]];
calcul[9]=HoldForm[Log[(1/(E^5))]];reponse[9]=Simplify[ReleaseHold[calcul[9]]];
calcul[10]=HoldForm[Log[((1/E)^(1/3))]];reponse[10]=Simplify[ReleaseHold[calcul[10]]];
calcul[11]=HoldForm[Log[(Sqrt[E])]];reponse[11]=Simplify[ReleaseHold[calcul[11]]];
calcul[12]=HoldForm[Log[2,0.125]];reponse[12]=Simplify[ReleaseHold[calcul[12]]];

Do[Print[i,") ",calcul[i]," = "],{i,12}];

Solutions

Do[Print[calcul[i]," = ",reponse[i]],{i,12}]

Calculer sans utiliser la calculatrice, sachant que log 2 = 0,30103 et log 3 = 0,477121:

Clear[x];Clear[m];Clear[a,b,c,d,log];
For[i=1,i<6,
a[i]=0;While[a[i]==0,
a[i]=Random[Integer,{-4,4}]];
b[i]=0;While[b[i]==0,
b[i]=Random[Integer,{-4,4}]];
c[i]=Random[Integer,{-4,4}];
d[i]=Random[Integer,{-4,4}];
Print[i,") ",log  [2^(c[i]/a[i])*3^(d[i]/a[i])]];
i++];

CellPrint[Cell["Solutions :","Subsubtitle",PageBreakAbove->True]]

Solutions :

For[i=1,i<6,
Print[i,") ",(c[i]/a[i])*log[2]+(d[i]/a[i])*log[3]];
i++];