[Pascal] Calculadora de numero primos.

  • 1 Respuestas
  • 6008 Vistas

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

Desconectado chivo

  • *
  • Underc0der
  • Mensajes: 30
  • Actividad:
    3.33%
  • Country: 00
  • Reputación 0
  • 127.0.0.1
  • Skype: chivoxxx
    • Ver Perfil
    • Email

[Pascal] Calculadora de numero primos.

  • 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) [Seleccionar]
Program Divisores;
  uses crt;
  Var N,I,C:longint;

Function ConDiv(X:longint) : longint;
  Var C,I: longint;
  Begin
    C := 1;
    For I:= 1 to X div 2 do
        if X mod I = 0 then
           C := C + 1;
    ConDiv := C;
  End;


Begin
  clrscr;
  write('Introduzca el Numero: '); read(N);

  For I := 1 to N do
    if ConDiv(I) <= 2 then
       write(I,'  ');

  readkey;
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 »
Haitumichu you! or wachiton wachiton to!!

Casa Fantasma

Desconectado UpecBlack

  • *
  • Underc0der
  • Mensajes: 70
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil

Re:[Pascal] Calculadora de numero primos.

  • 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