Pascal/Turbo Pascal - Necesito ayuda con un programa de factoriales

   
Vista:

Necesito ayuda con un programa de factoriales

Publicado por Uriel Hernández userirock18@hotmail.com (1 intervención) el 11/05/2016 06:09:07
Necesito un program que saque él factorial del número N, pero este número n, no puede ser mayor a 12. Espero que puedan ayudarme (:
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Necesito ayuda con un programa de factoriales

Publicado por ramon (2072 intervenciones) el 11/05/2016 11:39:02
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
{Mira esto}
 
program fatorial;
  uses
   crt;
  var
    numero : integer;
    i, result : integer;
 
   function factor(n : integer) : integer;
   begin
     result := 1;
     for i := 1 to n do
     begin
     result := result * i;
     end;
     factor := result;
   end;
 
   begin
     clrscr;
     write('   Entre Numero : ');
     readln(numero);
     if numero > 12 then
     numero := 12;
     writeln;
     writeln('  El Factorial Es = ',factor(numero));
     writeln;
     writeln('    Pulse Una Tecla');
     readkey;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar