Problema con matrices que no logro resolver

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

[OSKR]

seoane:

En cuanto a lo de que son dos instrucciones mas, no hay que ver quien escribe mas si no quien ejecuta menos instrucciones.

Sip, lo sé, a simple vista se ve, solo hago imcapié en q el algoritmo la faltaba el factorial de 0 y q es tuyo no de gamacland.

[raulmm26]

lo que sucede con lo que haceis con el factorial es que lo haceis mal no se pone un for despues sino un while y multiplicar quitando a la posicion en que se encuentra hasta que sea uno,quedaria algo asi:
var
i,fact,n: integer;
m1, m2: array[1..10] of Cardinal;
begin
m1[1]:= 1;
m2[1]:=1;
fact:=1;
for i:= 2 to 10 do
begin
m1[i]:= i;
n:=i;
while n>=1 do
begin
fact:=fact*n;
n:=n-1;
end;
m2[i]:= fact;
fact:=1;
end;
end;