Número Primo (Programa Pascal)

program primos; uses crt;

var

     n, primo, divisor, residuo: integer;

     seguir:char;

     bandera:boolean;

begin

      bandera:=true;

     while bandera do

          begin

               clrscr;

writeln(‘Programa para determinar si un numero es o no Primo.’);

writeln;

write(‘Ingrese el numero a analizar: ‘);

n:=0; { Inicializar las variables a ser usadas}

primo:=0;

divisor:=2;

residuo:=0;

readln(n);

divisor:= n div 2;

while divisor<>1 do

begin

residuo:= n mod divisor;

if residuo=0

then

primo:=primo+1;

divisor:=divisor-1;

end;

if primo=0

then

writeln(n,’ es un numero primo.’)

else

writeln(n, ‘ no es un numero primo’);

write(‘Desea analizar otro número? (s/n)’);

readln(seguir);

if seguir<>’s’

then

bandera:=false;

end;

end.

Acerca de Luis Castellanos

Luego de unos años en Maracaibo, de regreso en Caracas. Docente Universitario y Bloguero. Orgulloso padre de dos hijos. luiscastellanos @ yahoo.com | @lrcastellanos

Publicado el marzo 24, 2007 en Programación. Añade a favoritos el enlace permanente. 15 comentarios.

  1. Oye pos no mucho lo entenci.
    Puedes explicar cada comando y que hace dentro del programa porfas

  2. por favor me pudes enviar los comandos para hacer la bandera de estados unidos

  3. muy wen codigo, oye sara posoble un roteo del programa??? con el valor 5 o 3

  4. jaja tu programa no funciona en los puntos criticos
    por ejemplo no funciona para el numero 2 que es primo

  5. gracias pedro por el trabajo

  6. oye sabes como hacer este?
    informar todos los divisores de un numero

    y este otro ? ,
    hacer un programa que permita generar N cantidad de multiplos de un valor dado

  7. hola dime me puedes ayudar mmmmmmm mira porque no muestras los ejercicios como en dfd

  8. Francisco Hernandez

    Este programa esta mal hecho xq recuerden qtodo los numeros impares son primos pero no todos los numeros primos son impares. que tal los puntos criticos?
    De verdad necesito saber como realizar adecuadament este ejercicio.. tengo un examen en la universidad en esta semana y este es el ejrcicio q no domino.
    Gracias espero respuestas!

  9. Erick Alejandro

    Creo que le falta algo al programa, ya que cuando tecleo el numero 1 me marca error por que dice que se esta dividiendo entre 0. ¿O me ara falta algo?

  10. Cómo se podría hacer un programa para calcular el factorial de un número, pero que aparezcan los números del uno al x, ejemplo:
    Factorial de 3
    3 x 2 x 1 = 6

Deja un comentario

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: