<%
puts "
DOMANDE
";
soluzione="";
def d # un decimale
v=[2,3,5,6,7,9]
v[rand(5)]
end
def pp #piccolo primo
v=[2,3,5]
v[rand(3)]
end
def pp1 #ancora piu' piccolo primo
v=[1,2,3]
v[rand(3)]
end
def rnd234 # 2 oppure 3 oppure 4
v=[2,3,4]
v[rand(3)]
end
def pp2 #un primo meno piccolo
v=[5,7,9,11]
v[rand(4)]
end
def sq # un quadrato
a=d;
a*a;
end
def cube #un cubo
a=rand(4)+2
a*a*a;
end
def l1 # una lettera casuale (insieme di lettere 1)
l=["A","B","C","E","F","H"]
l[rand(5)]
end
def l2 # lettera casuale (insieme di lettere 2)
l=["L","M","N","P","R","T"]
l[rand(5)]
end
def qc # un quadrato casuale
"$#{l1^4}+#{1}+2#{l1^2}$"
end
def intesta #intesta il foglio
puts ""
puts ""
puts ""
end
def chiudi #chiude il foglio
puts ""
end
#4 del tipo 1 indice e potenza uno multiplo dell'altro
cont=0
for j in 1..4
cont=cont+1;
radicando=d;potenza=d;fattore=d;indice=potenza*fattore;
puts "#{j}) $root(#{indice})(#{radicando}^#{potenza})=$
"
soluzione = soluzione + "#{j}) $=root(#{fattore})(#{radicando})$
"
end
#4 del tipo 2 con quadrati e cubi fino a 5 di cui 3 con segno negativo, segue altro...
cont=cont+1;
radicando=d;fattore=d;potenza=2;indice=potenza*fattore;
puts "
#{cont}) $-root(#{indice})(#{radicando*radicando})=$"
soluzione = soluzione + "
#{cont}) $=-root(#{fattore})(#{radicando})$"
cont=cont+1;
radicando=pp;fattore=d;potenza=3;indice=potenza*fattore;
puts "
#{cont}) $root(#{indice})(#{radicando*radicando*radicando})=$"
soluzione = soluzione + "
#{cont}) $=root(#{fattore})(#{radicando})$"
cont=cont+1;
radicando=d;fattore=d;potenza=2;indice=potenza*fattore;
puts "
#{cont}) $root(#{indice})(#{radicando*radicando})=$"
soluzione = soluzione + "
#{cont}) $=root(#{fattore})(#{radicando})$"
cont=cont+1;
radicando=pp;fattore=d;potenza=3;indice=potenza*fattore;
puts "
#{cont}) $-root(#{indice})(#{radicando*radicando*radicando})=$"
soluzione = soluzione + "
#{cont}) $=-root(#{fattore})(#{radicando})$"
cont=cont+1;
num=pp1;den=pp2;qnum=num*num;qden=den*den;fattore=pp;indice=fattore*2;
puts "
#{cont}) $-root(#{indice})(#{qnum}/#{qden})=$"
soluzione = soluzione + "
#{cont}) $=-root(#{fattore})(#{num}/#{den})$"
cont=cont+1;
num=pp2;den=pp1;qnum=num*num;qden=den*den;fattore=pp;indice=fattore*2;
puts "
#{cont}) $root(#{indice})(#{qnum}/#{qden})=$"
soluzione = soluzione + "
#{cont}) $=root(#{fattore})(#{num}/#{den})$"
cont=cont+1;
num=pp1;den=pp2;qnum=num*num;qden=den*den;fattore=pp;indice=fattore*2;
puts "
#{cont}) $-root(#{indice})(#{qnum}/#{qden})=$"
soluzione = soluzione + "
#{cont}) $=-root(#{fattore})(#{num}/#{den})$"
cont=cont+1;
num=pp2;den=pp1;qnum=num*num;qden=den*den;fattore=pp;indice=fattore*2;
puts "
#{cont}) $root(#{indice})(#{qnum}/#{qden})=$"
soluzione = soluzione + "
#{cont}) $=root(#{fattore})(#{num}/#{den})$"
cont=cont+1; #1
zl1=l1;zl2=l2;
puts "
#{cont}) $root(#{2})(#{zl1}^2+2#{zl1}#{zl2}+#{zl2}^2 )$"
soluzione = soluzione + "
#{cont}) $=#{zl1}+#{zl2}$"
cont=cont+1; #2
zl1=l1;zl2=l2;
puts "
#{cont}) $root(#{6})(2#{zl1}#{zl2}+#{zl1}^2+#{zl2}^2 )$"
soluzione = soluzione + "
#{cont}) $=root(#{3})(#{zl1}+#{zl2})$"
cont=cont+1; #15
zl1=l1;zl2=l2;
puts "
#{cont}) $root(#{4})(#{zl1}^4+1+2#{zl1}^2 )$"
soluzione = soluzione + "
#{cont}) $=root(2)(#{zl1}^2+#{1})$"
cont=cont+1; #16
zl1=l1;zl2=l2;n=rnd234
puts "
#{cont}) $root(#{2})(#{zl1}^2+#{2*n}#{zl2} #{zl1}+#{n*n}#{zl2}^2 )$"
soluzione = soluzione + "
#{cont}) $=#{zl1}+#{n}#{zl2}$"
cont=cont+1;#17
zl1=l1;zl2=l2;
;puts "
#{cont}) $root(#{4})(-2#{zl1}#{zl2}+#{zl1}^2+#{zl2}^2 )$"
soluzione = soluzione + "
#{cont}) $=root(#{2})(#{zl1}-#{zl2})$"
cont=cont+1;#18
zl1=l1;zl2=l2;
puts "
#{cont}) $root(#{6})(#{zl1}^3+#{zl2}^3+3#{zl1}^2 #{zl2} +3#{zl2}^2 #{zl1})$"
soluzione = soluzione + "
#{cont}) $=root(#{2})(#{zl1}+#{zl2})$"
cont=cont+1;#19
zl1=l1;zl2=l2;
zzl1=l1;zzl2=l2;
puts "
#{cont}) $root(#{12})((#{zl1}^3-#{zl2}^3-3#{zl1}^2 #{zl2} +3#{zl2}^2 #{zl1})/(#{zzl1}^3+3#{zzl1}^2 #{zzl2} +3#{zzl2}^2 #{zzl1}+#{zzl2}^3))$"
soluzione = soluzione + "
#{cont}) $root(#{4})((#{zl1}- #{zl2} )/(#{zzl1}+#{zzl2})$"
cont=cont+1;#20
zl1=l1;zl2=l2;
zzl1=l1;zzl2=l2;
puts "
#{cont}) $root(#{12})((#{zl1}^3-#{zl2}^3-3#{zl1}^2 #{zl2} +3#{zl2}^2 #{zl1})/(#{zzl1}^3+3#{zzl1}^2 #{zzl2} +3#{zzl2}^2 #{zzl1}+#{zzl2}^3)) : root(4)((#{zzl1}+#{zzl2})/(#{zl1}-#{zl2}))$"
puts "
SOLUZIONI
";
soluzione = soluzione + "
#{cont}) $=root(2)((#{zl1}^2-#{zl2}^2) / (#{zzl1}^2+#{zzl2}^2) )$"
#------------------
puts soluzione;
chiudi;
%>