RUN the following cell to define the functions.

\(Clear[f, x, nfunct, e]; 
f[1, x_]\  = \ Sqrt[x]; 

    f[2, x_]\  = \ x^\((\(-1\))\); 
f[3, x_]\  = \ x^3; 

    f[4, x_]\  = \ e^x; 
f[5, x_]\  = \ 2^x; 
nfunct\  = \ 5; 


    Clear[list, i, fun, x]; 

    list\  = \ 
      \(Permutations[Table[i, {i, 1, nfunct}]]\)[
        \([Random[Integer, {1, \(\((nfunct)\)!\)}]]\)]; 

    fun[i_, x_]\  := \ f[list[\([i]\)], x]; 


    Clear[f1, f2, f3, f4, f5, f6, f7, f8, c1, c2, c3, n1, n2, n3]; 

    f1[x_]\  = \ fun[1, fun[2, x]]; 
f2[x_]\  = \ fun[3, fun[4, x]]; 

    f3[x_]\  = \ fun[5, fun[5, x]]; 
f4[x_]\  = \ fun[3, x]*fun[4, x]; 

    f5[x_]\  = \ fun[2, x]/fun[5, x]; 

    f6[x_]\  = \ 
      Random[Integer, {\(-4\), 4}]/2*fun[1, x] + 
        Random[Integer, {\(-9\), 9}]*fun[3, x]; 

    c1\  = \ Random[Integer, {\(-9\), 9}]; 

    c2\  = \ Random[Integer, {\(-9\), 9}]; 

    c3\  = \ Random[Integer, {\(-9\), 9}]; 

    n1\  = \ Random[Integer, {0, 9}]; 
n2\  = \ Random[Integer, {0, 9}]; 

    n3\  = \ Random[Integer, {0, 9}]; 

    f7[x_]\  = fun[2, c1*x^n1\  + \ c2*x^n2 + c3*x^n3]; 

    f8[x_]\  = \ fun[4, fun[2, fun[1, x]]]; \)

RUN the following cell to generate the quiz.

If you want to print out the quiz on the printer, highlight the ouput cells
by clicking on the cell brackets at the right, then go to the File menu and
pick "Print Selection".

Print["1.  (d/dx)\!\(\*
StyleBox[\((\),
FontSize->36]\)",f1[x],"\!\(\*
StyleBox[\()\),
FontSize->36]\)"];
Print[" "];
Print["2.  (d/dx)\!\(\*
StyleBox[\((\),
FontSize->36]\)",f2[x]	,"\!\(\*
StyleBox[\()\),
FontSize->36]\)"]Print[" "];
Print["3.  (d/dx)\!\(\*
StyleBox[\((\),
FontSize->36]\)",f3[x],"\!\(\*
StyleBox[\()\),
FontSize->36]\)"]Print[" "];
Print["4.  (d/dx)\!\(\*
StyleBox[\((\),
FontSize->36]\)",f4[x],"\!\(\*
StyleBox[\()\),
FontSize->36]\)"]Print[" "];
Print["5.  (d/dx)\!\(\*
StyleBox[\((\),
FontSize->36]\)",f5[x],"\!\(\*
StyleBox[\()\),
FontSize->36]\)"]Print[" "];
Print["6.  (d/dx)\!\(\*
StyleBox[\((\),
FontSize->36]\)",f6[x],"\!\(\*
StyleBox[\()\),
FontSize->36]\)"]Print[" "];
Print["7.  (d/dx)\!\(\*
StyleBox[\((\),
FontSize->36]\)",f7[x],"\!\(\*
StyleBox[\()\),
FontSize->36]\)"]Print[" "];
Print["8.  (d/dx)\!\(\*
StyleBox[\((\),
FontSize->36]\)",f8[x],"\!\(\*
StyleBox[\()\),
FontSize->36]\)"]Print[" "];

RUN the following cell to generate the answers to the quiz.

e  =  E;
Print[" "];
Print["ANSWERS:"];
Print[" "];
Print["1.  (d/dx)\!\(\*
StyleBox[\((\),
FontSize->36]\)",f1[x],"\!\(\*
StyleBox[\()\),
FontSize->36]\)"," = ",D[f1[x], x]]Print["2.  (d/dx)\!\(\*
StyleBox[\((\),
FontSize->36]\)",f2[x]	,"\!\(\*
StyleBox[\()\),
FontSize->36]\)"," = ",D[f2[x], x]]Print["3.  (d/dx)\!\(\*
StyleBox[\((\),
FontSize->36]\)",f3[x],"\!\(\*
StyleBox[\()\),
FontSize->36]\)"," = ",D[f3[x], x]]Print["4.  (d/dx)\!\(\*
StyleBox[\((\),
FontSize->36]\)",f4[x],"\!\(\*
StyleBox[\()\),
FontSize->36]\)"," = ",D[f4[x], x]]Print["5.  (d/dx)\!\(\*
StyleBox[\((\),
FontSize->36]\)",f5[x],"\!\(\*
StyleBox[\()\),
FontSize->36]\)"," = ",D[f5[x], x]]Print["6.  (d/dx)\!\(\*
StyleBox[\((\),
FontSize->36]\)",f6[x],"\!\(\*
StyleBox[\()\),
FontSize->36]\)"," = ",D[f6[x], x]]Print["7.  (d/dx)\!\(\*
StyleBox[\((\),
FontSize->36]\)",f7[x],"\!\(\*
StyleBox[\()\),
FontSize->36]\)"," = ",D[f7[x], x]]Print["8.  (d/dx)\!\(\*
StyleBox[\((\),
FontSize->36]\)",f8[x],"\!\(\*
StyleBox[\()\),
FontSize->36]\)"," = ",D[f8[x], x]]\(Print[" "]; 
Print["Note:"]; 

    Print["  Mathematica's ``E'' means ``e''"]; 

    Print["  Mathematica's ``Log'' means ``ln''"]; \)