 |
|
||||
Você está aqui: LISP ::: Desafios e Lista de Exercícios Resolvidos ::: Laços de Repetição |
Exercícios Resolvidos de Common Lisp - Como testar se um número é perfeito usando Common Lisp - Desafio de Programação Resolvido em LISPQuantidade de visualizações: 688 vezes |
|
Pergunta/Tarefa: Escreva um programa Common Lisp que pede para o usuário informar um número inteiro e informa se este número é um número perfeito. Um número perfeito é aquele cuja soma dos seus divisores, exceto ele próprio, é igual ao número. Por exemplo, o número 6 é perfeito, pois 1 + 2 + 3 = 6. Sua saída deverá ser parecida com: Informe um número inteiro: 6 O número informado é um número perfeito. Veja a resolução completa para o exercício em Common Lisp, comentada linha a linha:
; variáveis que vamos usar no programa
(let ((numero)(soma 0))
; Vamos pedir para o usuário informar o valor inteiro
(princ "Informe um número inteiro: ")
; talvez o seu compilador não precise disso
(force-output)
; atribui o valor lido à variável numero
(setq numero (read))
; Um laço que começa em 1 e vai até o
; número informado - 1
(loop for i from 1 to (- numero 1)
do(
; o resto da divisão é 0?
if (= 0 (rem numero i))
; soma o valor de i ao valor da soma
|
 Link para compartilhar na Internet ou com seus amigos: |
Mais Desafios de Programação e Exercícios e Algoritmos Resolvidos de LISP |
Veja mais Dicas e truques de LISP |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
