Buscar en Asptutor     
Demo Tienda Virtual Tutorcar
 Navegacion->Inicio | Active Server Pages  

La web de los recursos y ejemplos de asp

Versión para imprimir

 

Alojado en:


urbe-networks.com

Recomienda esta pagina a un amigo

Servicios Gratuitos

Articulos relacionados

Utilizar GetRows()

Tienda Virtual - Carrito de compra

Messenger a través de BD en ASP

Miniaplicacion de comercio electronico

Objeto Datagrid de ASP.NET en ASP

Acotación de resultados

Uso de Server Side Include

Como Imprimir desde un enlace

Introduccion ADO

Como poner las fechas en castellano

Un contador de usuarios activos

El Objeto Command

Un Generador de claves aleatorias

Como pasar información entre páginas

El Objeto Browser Capabilities

El Objeto Session


Enlaces recomendados

   

Tutorial ASP

Ejemplo de Calculo de numeros primos
Este articulo ha sido leído 48.984 veces

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


 

¿Estas empezando y este articulo es muy complejo para tí?
Empieza por el principio, visita Ejemplos Básicos

Puedes obtener un listado completo de todos los artículos y ejemplos de ASP en http://www.asptutor.com/asp/todoslosarticulos.asp
 

Valora este articulo   Malo Excelente  
37 usuarios han valorado este articulo. Valoracion media:

Nota: Para cualquier consulta u opinión sobre este articulo puedes usar los foros

 

 

AspTutor lo hacemos entre todos ¿Como vas a colaborar hoy?


Google

 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar