Factorial (Programa en Pascal)

Programa sencillo:

 Program Factorial;
uses crt;
var
  numero,cota:longint;
  contador:integer;
begin
  clrscr;
  write(‘Escriba un n£mero: ‘);
  read(cota);
  contador:=1;
  numero:=1;
 repeat
    numero:=numero*contador;
    contador:=contador+1;
 until
    contador>cota;
    writeln(‘El factorial del n£mero es: ‘,numero);
    readkey;
end.

Programa un poco más elaborado:

program factorial_numero;

    uses crt;

    var
    n,m,contador:integer;
    factorial:int64;
    bandera:boolean;
    seguir:char;

begin
 bandera:=true;
 while bandera do
   begin
     clrscr;
     writeln(‘Programa para Calculo de Factorial de un Numero’);
     writeln;
     contador:=1;
     n:=0;
     factorial:=1;
     while n=0 do
       begin
        write(‘Ingrese el numero al cual se le va a calcular el factorial: ‘);
        readln(n);
        writeln;
        if n<1 then
           writeln (‘Numero debe ser mayor que 1. Ingrese nuevamente.’);
       end;
     writeln;
     m:=n+1;
     while contador<m do
       begin
           factorial:=factorial*contador;
           contador:=contador+1;
       end;
     writeln(‘El Factorial de ‘,n,’ es: ‘,factorial);
     writeln;
     write(‘¨Desea calcular otro Factorial? (s/n)’);
     readln (seguir);
     if seguir<>’s’ then
        bandera:=false;
   end;

end.

Anuncios

Acerca de Luis Castellanos

Experto en e-Learning, Seguridad y Tecnología. luiscastellanos @ yahoo.com | @lrcastellanos

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

  1. Hola me gustaria recibir informacion de programacion en pascal gracias

  2. Saludos Roberto, pero esta página no es para ese fin… Lo siento.

  3. que buena informacion! la que tienen

  4. Hola, no tendrás algún código, o algo escrito en Ada 2005? gracias, de antemano y muy bueno, me ha ayudado a comprender algunas cosas de otros lenguajes.

  5. Saludos Alejandro. Te confieso que nunca he trabajado con Ada 2005. Sorry…

  6. Bueno, gracias de todas formas, lo puedo traducir a ADA sin problemas, pero era para ver un poco más.

    Gracias

  7. Hola de nuevo, este es el algoritmo de la función desarrollada en ADA 2005.

    function el_factorial (N : Integer) return Integer is
    Result : Integer := 1;
    begin
    if N < 0 then return -1; end if; — Devuelve que es un numero invalido, lo reconoce el principal
    for C in reverse 1 .. N loop
    Result := Result * C;
    end loop;
    return Result;
    end el_factorial;

    Espero que les ayude.

  8. como esta tal vez no se acuerde de mi pero si no me equivoco usted fue comandate de el freite y yo estaba en la gadaa en verda gracias . espero que este bien y estudio en la unefa gracias profesor

  9. Saludos Juan. Tienes razón: fui Comandante del Freites… A tu orden…

  10. que tal otra vez, a lo mejor no me recuerda pero era el mesa y parte del gadaa y me la mantenia con su guardia de comando portillo

  11. Saludos otra vez, Juan. No te ubico. Seguro que si te veo me acuerdo… De nuevo me reitero a la orden…

  12. disculpe tengo algunas dudas para que sirve la variable bandera y el boolean gracias espero respuesta

  13. Necesito La Elaboracion De Un Programa Sencillo en lenguaje pascal

    me lo podrias elaborar?

    gracias

  14. tengo una pregunta como puedo hacer el factorial de un numero de
    5!= 1x2x3x4x5x=120

  15. hey buen programa!! me ayudara en mi tarea de programacion para el colegio!!

  16. Buena la información, aunque me gustaría saber como se hace sin usar el longint o lo que sea.

  17. Ups lo siento!, no sabía que era, pero también se puede usar el integer vdd?

  18. Claro. Lo que pasa es que el longint tiene más capacidad y acepta números más grandes…

  19. quisiera ayuda para resolver este ejerccio en pascal
    Calcular cantidad de personas que saben conducir y que son mayores de 18 años y mujeres casadas. gracias mil
    si es posible antes del sabado.

  20. Pero bueno Miriam. Ponte a estudiar y a practicar en vez de pedir que te hagan la tarea… Y exijes con fecha y todo…

  21. La resolución ed factorial puede hacerse con una función que reciba un entero (oolongint) y emane otro?
    factorial:=n*factorial (n-1) haciéndola recursiva?

  22. ke tal komo zta? la vdd no le entiendo mucho a pascal ojala y me explike

  23. muy buena la informacion me ayudo mucho
    ponga mas programas. oiga uztd kmo zabe tanto
    de paskal………………

  24. muchas gracias me sirvio de arto porfavor sigan subiendo mas ejerciocios

  25. Gracias profe en verdad me ayudo que ya estaba desesperado

  26. hola, tengo una tareaota de progra; pero sin importar lo que haga siempre tengo errores que no son logicos; sino algo asi como: ilegal asignacion para for-loop variable “i”;
    cuando es una simple asignacion para un contador de un ciclo.
    o en los vectores, cuando meto un numero, se cae.
    y asi muchos otros riduculos problemas.
    es en pascal=(.
    Screwerman:=gracias;
    writeln(Screwerman);
    end.

  27. hola, tengo una tareota de progra, en pascal, pero tengo demaciados errores que no son logicos, sino algo asi como: ilegales asignaciones, errores al llenar un campo en un vector, variables que no se encuentran…
    todas estan asignadas en la parte de arriba en “var”, uso “crt;”, al hacer algunas funciones se cae la progra…
    y no se si mis codigos estan bien por estos errores. son errores fidiculos.
    i:=i+1; y se cae. llebo dias programando convertir de dec a bin y al imprimir en la celda se cae.
    Screwerman:=gracias;
    writeln(Screwerman);
    end.

  28. no tiene ejercicios como guia con ejercicios en combinacion o variacion tecnik d conteo

  29. blanca flor rmz sanchez

    disculpa por que se utiliza el
    uses crt;
    clrscr;
    es urgente te lo agradeceria mucho!!

  30. LUIS ERES UN FRIKI VICIAO!! pero me a servido de ayuda grax

  31. eeeeh xaval menos con luis Castellanos porke si sabrias la cantidad de carreras k te saca y lo inteligente que res respecto a el no dirias lo mismo. A parte que sepas que puede rastreador tu ordenador y meterte un virus.
    Luis no hagas caso de gente sin conocimiento alguno.
    Adios 😀

  32. quien me ayuda a hacer un programa en turbo pascal que desarrolle esta ecuacion
    n!
    ___________
    r!(n-r)!

  33. Hola , Buen día, Muy bueno el programa, me funciono, pero mi duda es como hacer que al calcular el factorial del número , salga el desarrollo; osea 4 = 4*3*2*1 = 24 , si me podrías decir porfavor, por su atención, Gracias c:

  34. Hola buenas, esta pagina a que se dedica???

Responder

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: