Cálculo de número perfeito único

Publicado por Sérgio Abrantes Junior (última atualização em 21/05/2020)

[ Hits: 257 ]

Homepage: https://br.linkedin.com/in/sergioabrantes

Download NumeroPerfeitoUnico




numeroPerfeitoUnico

Shell script que testa se o número informado é perfeito.

Otimizações de código:

    Analisa até o divisor ser no máximo sua metade:
    Ex.: Número informado = 10
    Ele checará até o 5 no máximo.

  



Esconder código-fonte

#!/usr/bin/env bash
# shellcheck disable=SC2162
# Prove: NumeroPerfeitoUnico
# Descricao Curta: Verifica se número informado é perfeito
# Descrição Longa: Verifica se número informado é perfeito
# Frequencia: Sob demanda
# Autor: Sérgio Abrantes
# Contato: [email protected]
# Site: https://github.com/sergioabrantesjunior/numeroPrimoUnico
#
#
# Histórico:
#
#    v1.0.0 2020-01-17, Sérgio Abrantes:
#       - Versão inicial do script
: '
Em Matemática, um número perfeito é um número inteiro para o qual a soma de todos os seus divisores positivos próprios (excluindo ele mesmo) é igual ao próprio número.

Por exemplo, o número 6 é um número perfeito, pois:

6 = 1 + 2 + 3

O próximo número perfeito é o 28, pois:

28 = 1+ 2+ 4+ 7+ 14

Os quatro primeiros números perfeitos (6, 28, 496 e 8.128) eram os únicos conhecidos pelos gregos antigos desde pelo menos Euclides. No século XV acrescentou-se 33.550.336 à lista.

 

O conjunto dos números perfeitos é:

{6, 28, 496, 8128, 33550336, 8589869056, …}
'

clear
read -p "Digite um número: " numero



contadorLoop=1
somaDivisoresInteiros=0
while [[ "$contadorLoop" -le "$((numero / 2))" ]];do
   if [ "$(( numero % contadorLoop ))" = 0 ];then
      somaDivisoresInteiros=$((somaDivisoresInteiros + contadorLoop))
   fi   
   contadorLoop=$((contadorLoop + 1))
done

if [ "$somaDivisoresInteiros" -eq "$numero" ];then
   echo "O Número $numero é perfeito"
else
   echo "O Número $numero não é perfeito" 
fi

Scripts recomendados

MocPList - Enfileirador de áudio e locutor em voz sintetizada

flvconvert

montar disquete virtual

Estatísticas de tráfego de rede

S-info


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts