Ejemplo de Calculo de numeros primos


http://www.asptutor.com

Calculo de números primos

Este pequeño ejemplo nos permite saber si un numero introducido por pantalla es o no primo.

Consta de 2 páginas:

  1. Primos.html       página html normal que contiene un formulario para introducir el numero a evaluar.
  2. Primos.asp          página asp que recibe el numero introducido y devuelve al usuario una página en la que dice si el numero es primo o no.

 

Primos.html
<html>
<head>
<title>Calculo de numeros primos</title>
</head>
<body>
<h2 align="center">Calculo de numeros primos</h2>
<center>
<table border="1" width="30%">
  <tr>
    <td width="100%"><p align="center">Introduce un numero</p>
    <form method="POST" action="primos.asp">
      <p><input type="text" name="numero" size="20"></p>
      <center><p><input type="submit" value="Enviar" name="B1">
      <input type="reset" value="Restablecer" name="B2"></p>
      </center>
    </form>
    </td>
  </tr>
</table>
</center>
</body>
</html>











Primos.asp
<%option explicit%>
<html>
<% dim numero,contador,primo,result,doble
numero=request.form("numero")
%>

<head>
<title>Calculo de numeros primos</title>
</head>
<body>
<hr>
<%if isnumeric(numero) then
doble = cdbl(numero)
numero=clng(numero)
if numero <> doble or numero > 30000000 then
%>

<p align="center">
el numero no puede tener decimales ni ser mayor de 30000000
<%else
contador = 2
primo=true
   do while contador < numero-1 and primo = true
         if numero mod contador = 0 then
               primo=false
         else
           contador=contador+1  
  end if
         
   loop
   if primo then 
      response.write  "el numero "&numero &" es primo"
   else
      response.write "el numero "& numero& " no es primo, es divisible por " &contador 
end if
end if
else
%>
 El campo de consulta debe ser numerico
<%end if%>
 </p>

<hr align="center">

<p align="center"><a href="primos.html">Otra vez</a></p>
</body>
</html>

Atras

Siguiente