<% def d v=[2,3,5,6,7,9] v[rand(5)] end #piccolo primo def pp v=[2,3,5] v[rand(3)] end def pp1 v=[1,2,3] v[rand(3)] end def pp2 v=[5,7,9,11] v[rand(4)] end def sq a=d; a*a; end def cube a=rand(4)+2 a*a*a; end puts "compito: "+String(rand(10000)) soluzione=""; #10 del tipo 1 indice e potenza uno multiplo dell'altro for j in 1..5 radicando=d;potenza=d;fattore=d;indice=potenza*fattore; puts "
#{j}) $root(#{indice})(#{radicando}^#{potenza})=$" soluzione=soluzione+ "
#{j}) $=root(#{fattore})(#{radicando})$" end cont=0 for j in 1..2 radicando=d;fattore=d;potenza=2;indice=potenza*fattore; puts "
#{6+(j-1)*4}) $-root(#{indice})(#{radicando*radicando})=$" soluzione= soluzione + "
#{6+(j-1)*4}) $=-root(#{fattore})(#{radicando})$" radicando=pp;fattore=d;potenza=3;indice=potenza*fattore; puts "
#{7+(j-1)*4}) $root(#{indice})(#{radicando*radicando*radicando})=$" soluzione = soluzione + "
#{7+(j-1)*4}) $=root(#{fattore})(#{radicando})$" radicando=d;fattore=d;potenza=2;indice=potenza*fattore; puts "
#{8+(j-1)*4}) $root(#{indice})(#{radicando*radicando})=$" soluzione = soluzione + "
#{8+(j-1)*4}) $=root(#{fattore})(#{radicando})$" radicando=pp;fattore=d;potenza=3;indice=potenza*fattore; puts "
#{9+(j-1)*4}) $-root(#{indice})(#{radicando*radicando*radicando})=$" soluzione = soluzione + "
#{9+(j-1)*4}) $=-root(#{fattore})(#{radicando})$" end for j in 1..3 num=pp1;den=pp2;qnum=num*num;qden=den*den;fattore=pp;indice=fattore*2; puts "

#{14+(j-1)}) $-root(#{indice})(#{qnum}/#{qden})=$" soluzione = soluzione + "

#{14+(j-1)}) $=-root(#{fattore})(#{num}/#{den})$" end for j in 4..7 num=pp2;den=pp1;qnum=num*num;qden=den*den;fattore=pp;indice=fattore*2; puts "

#{14+(j-1)}) $root(#{indice})(#{qnum}/#{qden})=$" soluzione = soluzione +"

#{14+(j-1)}) $=root(#{fattore})(#{num}/#{den})$" end puts "
SOLUZIONE:"+soluzione %>