galmacland:
Cita:
|
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
__________________
Los Estados Unidos parecen destinados por la Providencia para plagar la América de miserias a nombre de la libertad."
Simón Bolívar
(Carta al Coronel Inglés Patricio Cambell 05/08/1829).
Última edición por OSKR fecha: 18-06-2006 a las 17:04:53.
|