Criteri di divisibilitÓ

<% '*********************************************** dim NumeroProposto NumeroProposto = Request.QueryString("NumeroProposto") if int(NumeroProposto) > 0 then controllo() end if %>  
" method="get">
       
 

Ŕ divisibile per   

  2  
      3  
    5  
  Seleziona i divisori corretti e poi
verifica le tue risposte
7  
    11  
     

  connessi <%=application("connessi") %>
 

<% '1 metodo 'Dim Item 'For Each Item In Request.QueryString("multiple") ' Do Whatever you want to do with each one. ' I'll just write them out with spaces after ' each one so they don't run together. ' Response.Write Item & " " 'Next '2 metodo 'Dim I 'For I = 1 To Request.QueryString("multiple").Count ' Again I'm just writing them out. ' Response.Write Request.QueryString("multiple")(I) & " " 'Next '3 metodo '= Request.QueryString("multiple") %> <% '################################################################################# '## SUB ROUTINE ricarica_pagina() '################################################################################# Sub ricarica_pagina() Response.redirect("http://localhost/ubimath/prime/div.asp") End Sub %> <% '################################################################################# '## SUB ROUTINE Numero() '################################################################################# Private Function numero() numero_proposto = 1 ' prendo un numero tra 1 e 500 compresi Randomize() iRandom = Int(500 * Rnd + 1) numero_proposto = iRandom Response.Write numero_proposto End Function %> <% '################################################################################# '## SUB ROUTINE controllo() '################################################################################# Sub controllo() Dim i 'NumeroDaElaborare = Request.QueryString("NumeroProposto") NumeroDaElaborare = NumeroProposto Response.Write "" Response.Write "Valutazione della risposta precedente per il " Response.Write NumeroDaElaborare & "
" Response.Write "" d2=0 d3=0 d5=0 d7=0 d11=0 For I = 1 To Request.QueryString("multiple").Count ' Again I'm just writing them out. if Request.QueryString("multiple")(I) = 2 then D2 = 1 elseif Request.QueryString("multiple")(I) = 3 then D3 = 1 elseif Request.QueryString("multiple")(I) = 5 then D5 = 1 elseif Request.QueryString("multiple")(I) = 7 then D7 = 1 elseif Request.QueryString("multiple")(I) = 11 then D11 = 1 end if Next '*** DUE *********************************************************************************************************** num = NumeroProposto cifra = "" somma = 0 regola = "" lungh= len(Num) cifra = mid(num,lungh,1) if (NumeroDaElaborare/2 = Int(NumeroDaElaborare/2) and D2 = 1) then Response.Write "BRAVO :) " & NumeroDaElaborare & " Ŕ divisibile per 2! " elseif (NumeroDaElaborare/2 = Int(NumeroDaElaborare/2) and D2 = 0) then Response.Write "ERRORE:( " & NumeroDaElaborare & " Ŕ divisibile per 2! " Response.Write "L'ultima cifra " & cifra & " Ŕ, infatti, 0 o 2 o 4 0 6 o 8" elseif (NumeroDaElaborare/2 <> Int(NumeroDaElaborare/2) and D2 = 0) then Response.Write "BRAVO :) " & NumeroDaElaborare & " non Ŕ divisibile per 2! " elseif (NumeroDaElaborare/2 <> Int(NumeroDaElaborare/2) and D2 = 1) then Response.Write "ERRORE:( " & NumeroDaElaborare & " NON Ŕ divisibile per 2! " Response.Write "L'ultima cifra " & cifra & " NON Ŕ 0, 2, 4, 6 o 8" end if '*** TRE *********************************************************************************************************** Response.Write "
" cifra = "" somma = 0 regola = "" for i= 1 to lungh cifra = mid(num,i,1) somma = somma + int(cifra) if i < lungh then regola = regola & cifra & " + " else regola = regola & cifra end if next regola = regola & " = " & somma if (NumeroDaElaborare/3 = Int(NumeroDaElaborare/3) and D3 = 1) then Response.Write "BRAVO :) " & NumeroDaElaborare & " Ŕ divisibile per 3! " elseif (NumeroDaElaborare/3 = Int(NumeroDaElaborare/3) and D3 = 0) then Response.Write "ERRORE:( " & NumeroDaElaborare & " Ŕ divisibile per 3! " Response.Write "La somma delle sue cifre " & regola & " Ŕ multipla di 3." elseif (NumeroDaElaborare/3 <> Int(NumeroDaElaborare/3) and D3 = 0) then Response.Write "BRAVO :) " & NumeroDaElaborare & " non Ŕ divisibile per 3!" elseif (NumeroDaElaborare/3 <> Int(NumeroDaElaborare/3) and D3 = 1) then Response.Write "ERRORE:( " & NumeroDaElaborare & " NON Ŕ divisibile per 3! " Response.Write "La somma delle sue cifre " & regola & " NON Ŕ multipla di 3." end if '*** CINQUE *********************************************************************************************************** Response.Write "
" cifra = "" somma = 0 regola = "" cifra = mid(num,lungh,1) if (NumeroDaElaborare/5 = Int(NumeroDaElaborare/5) and D5 = 1) then Response.Write "BRAVO :) " & NumeroDaElaborare & " Ŕ divisibile per 5! " elseif (NumeroDaElaborare/5 = Int(NumeroDaElaborare/5) and D5 = 0) then Response.Write "ERRORE:( " & NumeroDaElaborare & " Ŕ divisibile per 5! " Response.Write "L'ultima cifra " & cifra & ", infatti, Ŕ 0 o 5." elseif (NumeroDaElaborare/5 <> Int(NumeroDaElaborare/5) and D5 = 0) then Response.Write "BRAVO :) " & NumeroDaElaborare & " non Ŕ divisibile per 5! " elseif (NumeroDaElaborare/5 <> Int(NumeroDaElaborare/5) and D5 = 1) then Response.Write "ERRORE:( " & NumeroDaElaborare & " non Ŕ divisibile per 5! " Response.Write "L'ultima cifra " & cifra & " NON Ŕ 0 o 5." end if '*** SETTE *********************************************************************************************************** Response.Write "
" cifra = "" if (NumeroDaElaborare/7 = Int(NumeroDaElaborare/7) and D7 = 1) then Response.Write "BRAVO :) " & NumeroDaElaborare & " Ŕ divisibile per 7! " elseif (NumeroDaElaborare/7 = Int(NumeroDaElaborare/7) and D7 = 0) then Response.Write "ERRORE:( " & NumeroDaElaborare & " Ŕ divisibile per 7! " Response.Write "Consulta la guida e i link per il criterio di divisibilitÓ." elseif (NumeroDaElaborare/7 <> Int(NumeroDaElaborare/7) and D7 = 0) then Response.Write "BRAVO :) " & NumeroDaElaborare & " non Ŕ divisibile per 7! " elseif (NumeroDaElaborare/7 <> Int(NumeroDaElaborare/7) and D7 = 1) then Response.Write "ERRORE:( " & NumeroDaElaborare & " non Ŕ divisibile per 7!" Response.Write "Consulta la guida e i link per il criterio di divisibilitÓ." end if '*** UNDICI *********************************************************************************************************** Response.Write "
" cifra = "" somma = 0 regola = "" for i= 1 to lungh cifra = mid(num,i,1) if i < lungh then if i mod 2 = 0 then regola = regola & cifra & " + " somma = somma + int(cifra) else regola = regola & cifra & " - " somma = somma - int(cifra) end if else if i mod 2 = 0 then regola = regola & cifra somma = somma + int(cifra) else regola = regola & cifra somma = somma - int(cifra) end if end if next if somma < 1 then somma = somma * (-1) end if regola = regola & " = " & somma if (NumeroDaElaborare/11 = Int(NumeroDaElaborare/11) and D11 = 1) then Response.Write "BRAVO :) " & NumeroDaElaborare & " Ŕ divisibile per 11! " elseif (NumeroDaElaborare/11 = Int(NumeroDaElaborare/11) and D11 = 0) then Response.Write "ERRORE:( " & NumeroDaElaborare & " Ŕ divisibile per 11! " Response.Write "La differenza delle cifre di posto pari e dispari " & regola & " Ŕ multipla di 11" 'Response.Write "Consulta la guida e i link per il criterio di divisibilitÓ." elseif (NumeroDaElaborare/11 <> Int(NumeroDaElaborare/7) and D11 = 0) then Response.Write "BRAVO :) " & NumeroDaElaborare & " non Ŕ divisibile per 11! " elseif (NumeroDaElaborare/11 <> Int(NumeroDaElaborare/7) and D11 = 1) then Response.Write "ERRORE:( " & NumeroDaElaborare & " non Ŕ divisibile per 11! " Response.Write "La differenza delle cifre di posto pari e dispari " & regola & " NON Ŕ multipla di 11" 'Response.Write "Consulta la guida e i link per il criterio di divisibilitÓ." end if Response.Write "
" End Sub %>