Programming Exercise (HP-15C, 15C LE - and others)

[churichuro]

version for HP PRIME:

Code:


EXPORT TEST2()
BEGIN
  LOCAL suma,n;

  suma:= 0;
  FOR n FROM 10000 DOWNTO 1 DO
    suma:= suma + (1/n)*(-1)^(n+1);
  END;
  MSGBOX("Suma="+suma);
END;

result in about 1 sec !
Suma=.693097183059