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]
-------------------------------------------------------------------------
