Calcula el factorial de un numero
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | {-Victor De la Rocha} {-Algoritmia@groups.msn.com} {-www.myalgorithm.com} uses crt;var numero,limite,contador:integer; begin ClrScr; Write('Numero: ');Readln(numero); limite:=numero; numero:=1; for contador:=1 to limite do begin numero:=numero*contador; end; write('Factorial: ',numero); ReadKey; end. |
Numero: 33
Factorial: 8.68331761881E+036
6 comentarios en "Calcula el factorial de un numero"
Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress las eliminó al verlas como etiquetas HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios. Y lo mas importante: Todos los ejemplos fueron realizados por personas con únicamente conocimiento básico del lenguaje, no de programación.
Otro punto importante: Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:
- Si es lenguaje C <code lang="c">Código en C</code>
- Si es lenguaje Pascal <code lang="pascal">Aquí dentro el código de Pascal</code>.
De esta manera el código coloreas el código.
Otro punto importante para muchos que crees que te he ignorado: Todos los comentarios los reviso y en su debido momento los apruebo, pero ojo con el con lo siguiente:Me reservo el derecho de alterar, publicar o no los comentarios así como también cambiar mis condiciones en el momento que yo lo requiera.
¿Si estas de acuerdo? Adelante! que ya te he quitado bastante tiempo leyendo esta basura :)
Programando el Factorial | Móchate
0000-00-00 00:00:00
[...] Pascal, Via: Mis Algoritmos. [...]
angelica
2010-01-25 17:45:41
no me compilaaaaaaaa..me mueroo.
Neo
2010-04-23 22:15:53
Bueno amigo tengo una hija que esta estudiando progra en el bachillerato, yo no entiendo casi nada de lo que es programacion aun asi quisiera ayudarle entonces digame por donde puedo empezar a instruirme o que manuales puedo consultar para poder entender y de esa forma poder ayudarle, estare muy agradecido de su colaboracion
jesus peña
2010-05-26 20:49:04
ESTUDIO INFORMATICA 5 AÑO .............. Y CON ESTE CODIGO SAQUE EL MIO 100% EFECIVO SI NO ME ESCRIBEN A MI CORREO NO SOLO PARA QUEJAS SI LES PUEDO AYUDAR EN ALGO MAS PS MI CORREO ES: yohan.pram@hotmail.com
program factorial;
uses
crt,dos;
var
a,b,c,res:integer;
begin
clrscr;
writeln('introdusca un numero');
read(a);
b:=a-1;
for c:=1 to b do
begin
a:=a*c;
end;
writeln('el factorial es:',a);
readkey;
end.
jesus peña
2010-05-26 20:50:46
program factorial;
uses
crt,dos;
var
a,b,c,res:integer;
begin
clrscr;
writeln('introdusca un numero');
read(a);
b:=a-1;
for c:=1 to b do
begin
a:=a*c;
end;
writeln('el factorial es:',a);
readkey;
end.
MIKEY
2010-08-19 01:30:37
buenisimo