<% soluzione=""; compito=rand(10000); puts "DOMANDE #{compito}
"; def d # un decimale primo 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 v=[1,2,3] v[rand(3)] end def rnd234 v=[2,3,4] 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 def l1 # lettera casuale set1 l=["x","y","w","r","s","t"] l[rand(5)] end def l2 # lettera casuale set2 l=["k","a","f","z","m","p"] l[rand(5)] end def qc # quadrato cauale "$#{l1^4}+#{1}+2#{l1^2}$" end def intesta puts "" puts "" puts "" end def chiudi puts "" end #for i in 1..22 #numero di compiti # compito = File.new("comp" + String(i)+".html", "w") # soluzione = File.new("soluz" + String(i)+".html", "w") # $stdout = compito; intesta; # puts "compito: "+d+" "+ d+" " +d+" " +d+"
"; intesta; # soluzione = soluzione + "soluzione "+String(i)+"
"; #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 cont=cont+1; #1 zl1=l1;zl2=l2; puts "

#{cont}) $root(#{2})(#{zl1}^2+2#{zl1}#{zl2}+#{zl2}^2 )$" soluzione = soluzione + "

#{cont}) $=#{zl1}+#{zl2}$" #4 del tipo 2 con quadrati e cubi fino a 5 di cui 3 con segno negativo 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;#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; 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; #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; 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=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;#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; 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;#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; radicando=d;fattore=d;potenza=2;indice=potenza*fattore; puts "
#{cont}) $root(#{indice})(#{radicando*radicando})=$" soluzione = soluzione + "
#{cont}) $=root(#{fattore})(#{radicando})$" 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;#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}))$" soluzione = soluzione + "

#{cont}) $=root(2)((#{zl1}^2-#{zl2}^2) / (#{zzl1}^2+#{zzl2}^2) )$" 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; #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}$" puts "








SOLUZIONI #{compito}
"; #------------------ puts soluzione; chiudi; %>