oi , estou precisando de uma ajudinha , se for possível !!!
É o seguinte , preciso resolver o seguinte exercício :
Diz - se que um número inteiro é um número perfeito , se a soma de seus
fatores , incluindo o 1 é igual ao próprio número . Por exemplo , 6 é um número
perfeito , porque 6=1+2+3 . Escreva um método perfect que determina se seu
parâmetro number é um número perfeito . Utilize esse método em um applet que
determina e exibe todos os números perfeitos entre 1 a 1000 . exiba , para cada
número seus fatores . O resultado deve ser mostrado em JTextArea.
O problema é o seguinte , consegui o algoritimo em VBScript , mas não sei
passar p/ Java . e não sei o que é um método perfect !!!!
Aqui vai o algoritimo em VBScript:
for x=1 to 1000
if perfect(x) then
Msgbox X&"é um numero perfeito
end if
next
function prfect(numero)
dim numero_primo
dim quociente
dim soma_divisor
soma_divisor=2
numero_primo=0
quociente=numero
do while quociente>1
if(quocienteMODnumero_primo=0)them
quociente=quociente/numero_primo
soma_divisor=soma_divisor+numero_primo
else
numero_primo=BuscaProximoNumeroPrimo(numero_primo)
end if
loop
soma_divisor=soma_divisor+1
if clng(soma_divisor)=clng(numero)then
perfect=true
else
perfect=false
end if
end function
function BuscaProximoNumeroPrimo(numero_primo_inicial)
dim prox_numero_primo
dim k
dim qtd_divisoes
dim_eh_primo
eh_primo=false
prox_numero_primo=numero_primo_inicial+1
do while eh_primo=false
qtd_divisoes=0
for k=1 to prox_numero_primo
if prox_numero_primoMODk=0 then
qtd_divisoes=qtd_divisoes+1
end if
next
'se houver apenas duas divisoes , significa que o numerofoi dividido
'apenas por 1 e por ele mesmo , logo ele é primo
ifqtd_divisoes=2 then
BuscaProximoNumeroPrimo=prox_numero_primo
eh_primo=true
else
'se não for primo , testar o próximo numero
prox_numero_primo =prox_numero_primo+1
end if
loop
end function
Por favor me responda , caso vc não possa me ajudar e conheça alguém que possa
me fale , desde já agradeço !
Patricia!!!
------------------------------------------------------
Esta mensagem foi enviada usando o WebMail Canbras.Net
http://www.canbrasnet.com.br
------------------------------ LISTA SOUJAVA ----------------------------
http://www.soujava.org.br - Sociedade de Usuários Java da Sucesu-SP
dúvidas mais comuns: http://www.soujava.org.br/faq.htm
regras da lista: http://www.soujava.org.br/regras.htm
para sair da lista: envie email para [EMAIL PROTECTED]
-------------------------------------------------------------------------
