Problema con matrices que no logro resolver

[bpesoj]

Hola, galmacland.

Creo que este código hace lo que indicas:

El uso del tipo double es por si el valor del factorial se hace mayor que
el mayor valor admitido a un entero.

Function Factorial(n:Integer): Double;
var

k:Integer;
f: Double;

begin

f:=1;
for k:=1 to n do

f:=f*k;

Result:=f;

end;

procedure Calcular;
var

m1:Array[0..9] of integer;
m2:Array[0..9] of Double;
k:Integer;

begin

for k:=0 to 9 do

begin

m1[k]:=k;
m2[k]:=Factorial(k);

end;

end;

Saludos.

[galmacland]

Graciaspor tu ayuda, se como hacerlo con funciones, el caso es que no me funciona usando las 2 matrices, sin usar las funciones, el caso es que es un manual con ejercicios y no ha llegado a la parte de las funciones....

[D-MO]

Código Delphi [-]
program factorial; var
i,i:Integer; f : Double;    m1 : Array[0..9] of integer;    m2 : Array[0..9] of Double;     
begin
for i:=0 to 9 do
begin
m1[i]:=i; 
end; 
for i:=0 to 9 do
begin
m2[j]:=1; for j:=0 to m1[i] do
m2[j]:=m2[j]*j;
end; 
end;

supongo que algo asi te podria funcionar, no lo he provado pero me parece que si funciona. Aunque creo que por el hecho de iniciar de "0" es posible que todos los resultados sena "0"

saludos.

[[seoane]]

No lo probe pero deberia ser algo asi:

Código Delphi [-]
var
  i: integer;
  m1, m2: array[1..10] of Cardinal;
begin
  m1[1]:= 1;
  m2[1]:= 1;
  for i:= 2 to 10 do
  begin
     m1[i]:= i;
     m2[i]:= m2[i-1] * i;
  end;
end;

[OSKR]

galmacland:

en la primera se almacenen los 10 primeros numeros naturales, empezando desde 0

Veo q no se ha tomado en cuenta el "0" y q su factorial es 1
Modificando el código de seoane

Código Delphi [-]
var
  i: integer;
  m1, m2: array[0..10] of Cardinal;
begin
  for i:= 0 to 10 do
  begin
     m1[i]:= i;
     m2[i]:=1;
     if(i>1)then
       m2[i]:= m2[i-1] * i;
  end;
end;

//Nota: No lo he probado

[Innovacl]

Una pequeña modificación al algoritmo de galmacland

var
i: integer;
m1, m2: array[0..10] of Cardinal;
begin
m1[0]:=0;
m2[0]:=1;
for i:= 1 to 10 do
begin
m1[i]:= i;
m2[i]:= m2[i-1] * i;
end
end;

... no requiere el if y ahorra un ciclo. Con recursividad es un poco más elegante.

[OSKR]

Innovacl:

no requiere el if y ahorra un ciclo

Pues si...aunqe reqiere 2 instrucciones mas y además el algoritmo es de seoane.