Problema con matrices que no logro resolver

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

[OSKR]

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

Pero ....a qién le dices esto?...
Estás usando 2 ciclos..los anteriores algoritmos funcionan al pelo (eso creo)
y además....:

m1[1]:= 1;

recuerda q empieza de 0.
Mejor hago caso a lo q dijo seoane:

Pero para la tonteria de problema que es creo que le estamos dando muchas vueltas.

y tiene toda la razón.