Pascal/Turbo Pascal - algoritmos??

 
Vista:

algoritmos??

Publicado por kathy (4 intervenciones) el 14/03/2008 15:01:20
como realizar un algoritmo que permita calcular el producto de los n primeros naturales, con la siguiente formula: N*(n-1)*(n-2)*...*3*2*1, que en términos matemáticos se le conoce como FACTORIAL DE N. Con la estructura SI
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

RE:algoritmos??

Publicado por Mariano (57 intervenciones) el 15/03/2008 22:41:01
Funcion factorial

function fact(n:word):longint;
var
i:word;
val:longint;
begin
val:=1;
for i:=2 to n do begin
val:=val*i;
fact:=val
end;

Cualquier cosaa pregunta :)

saludoss
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

RE:algoritmos??

Publicado por Jesús (1 intervención) el 16/03/2008 00:09:11
Se puede programar de oforma recursiva como:

function factorial ( n : integer ): longint;
begin
if n = 0 then factorial:=1
else factorial:= n * factorial(n-1);
end;

Espero que te haya servido de ayuda.

Ciao!
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