D�vida de f�cil solu��o - Somar n�meros.......

Question

Er, quero fazer uma procedure que, quando o usu�rio digitar algum n�mero (exemplo: �184�), o programa some cada n�mero (1 + 8 + 4). Como fa�o isso?  :oops:...

Allen74 · Answer

Voc� pode realizar esta opera��o transformando em string e somando os d�gitos ou ent�o trabalhando com inteiro e utilizando a base 10 para calcular, que � mais r�pido. Veja as duas formas:

function SomaDigitosStr (num : string) : longint;
var
  i : integer;
begin
  result := 0;
  for i := 1 to length(num) do
    if num[i] in [�0�..�9�] // somar apenas n�meros :b
    then result := result + ord(num[i]) - ord(�0�);
end;

function SomaDigitos (num : longint) : longint;
begin
  result := 0;
  num := abs(num); // somente interessa n�meros positivos
  while num <> 0 do
  begin
    result := result + num mod 10;
    num := num div 10;
  end;
end;

Se voc� precisa repetir a opera��o muitas vezes e deseja ter maior velocidade, a segunda fun��o � recomendada, desde que a representa��o do n�mero n�o exceda o limite de armazenamento do tipo longint.

A primeira fun��o, apesar de ser mais lenta, n�o possui esta limita��o, sendo que voc� pode passar como par�metro uma string contendo n�meros de quantos d�gitos quiser. Ela somente � limitada pelo tipo do retorno (longint), ou seja, a soma dos d�gitos n�o poder� ultrapassar o valor: 2147483647.

F�rum D�vida de f�cil solu��o - Somar n�meros....... #225307