Problema con matrices que no logro resolver

[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.

[[seoane]]

Empezado por OSKR

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

Si parece que me ignoran ... En cuanto a lo de que son dos instrucciones mas, no hay que ver quien escribe mas si no quien ejecuta menos instrucciones. Me explico, en mi algoritmo ejecuto 2 instrucciones fuera del bucle y 2 dentro. En el que pones tu con el "if" ejecutas 4 instrcciones dentro del bucle (3 si no consideras el if una instruccion) eso multiplicalo por las 10 veces que se repite el bucle y veras que es mas rapido de la forma que yo digo. Pero para la tonteria de problema que es creo que le estamos dando muchas vueltas.