send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Pascal] Calculadora de numero primos.

  • 1 Respuestas
  • 4053 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado chivo

  • *
  • Underc0der
  • Mensajes: 26
  • Actividad:
    0%
  • Reputación 0
  • 127.0.0.1
    • Ver Perfil
    • Email
  • Skype: chivoxxx
« en: Enero 30, 2013, 12:21:59 pm »
Hola a todos estaba revisando el baul para ver que posteaba y consegui un que no habia posteado este:

Lo que realmente hace es decirte cuanto numero primo has ingresado.

Programado en pascal.

Código: Pascal
  1. Program Divisores;
  2.   uses crt;
  3.   Var N,I,C:longint;
  4.  
  5. Function ConDiv(X:longint) : longint;
  6.   Var C,I: longint;
  7.   Begin
  8.     C := 1;
  9.     For I:= 1 to X div 2 do
  10.         if X mod I = 0 then
  11.            C := C + 1;
  12.     ConDiv := C;
  13.   End;
  14.  
  15.  
  16. Begin
  17.   clrscr;
  18.   write('Introduzca el Numero: '); read(N);
  19.  
  20.   For I := 1 to N do
  21.     if ConDiv(I) <= 2 then
  22.        write(I,'  ');
  23.  
  24.   readkey;
  25. end.


Bueno pense como demostrarle algun ejemplo y lo quize hacer sobre mi windows xp chimbo.



Como se ve en la imagen coloque ( 8 ) como ejemplo desde entonces se ven los numeros primos. Como lo son " 1, 2, 3, 5 7 "

Saludos.
« Última modificación: Abril 27, 2013, 01:23:43 pm por Expermicid »
Sacando la Basura.p

Haitumichu you! or wachiton wachiton to!!

Casa Fantasma

Desconectado UpecBlack

  • *
  • Underc0der
  • Mensajes: 69
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
« Respuesta #1 en: Agosto 18, 2013, 01:27:13 am »
esta bueno el codigo , se podria mejorar mas y resolver algunos detalles que estan mal unos de ellos el 1 , fijate q el 1 no es primo por lo tanto no lo deberia mostrar

 

¿Te gustó el post? COMPARTILO!



Reto Indicar un numero y crear formula para calcular edad de underc0de

Iniciado por Oggy

Respuestas: 5
Vistas: 2474
Último mensaje Octubre 23, 2012, 07:37:39 pm
por Oggy
[Haskell] Compilador de Pseudocodigo Pascal,C++,Java

Iniciado por Snifer

Respuestas: 0
Vistas: 2027
Último mensaje Julio 23, 2011, 07:19:34 pm
por Snifer
[Pascal] Generador de clave.

Iniciado por chivo

Respuestas: 5
Vistas: 2906
Último mensaje Enero 13, 2014, 01:20:44 am
por chivo
[Descarga] Dev Pascal 1.9.2

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1961
Último mensaje Febrero 24, 2010, 03:50:39 pm
por ANTRAX