<%
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
%>