Tcl: diferenças entre revisões
Conteúdo apagado Conteúdo adicionado
Linha 72:
# for estilo C
}
</source>
=== Números Perfeitos ===
Este é um exemplo de um comando que imprime os 4 primeiros números perfeitos. Para usa-lo basta chama-lo com a quantidade de números perfeitos desejada. Ex: numsPerfeitos 5
<source lang="tcl">
console show
proc numsPerfeitos { n } {
set i 0
set maxNumPerfeito 0
set numPerfeito 0
set somaNum 0
while {$i < $n} {
incr numPerfeito
for {set j 1} {$j <= $numPerfeito} { incr j} {
if {$numPerfeito % $j == 0 } {
set somaNum [expr $somaNum + 1]
}
}
if {$somaNum == $numPerfeito} {
puts $numPerfeito
incr i
}
}
}
numsPerfeitos 3
</source>
|