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