por favor necesito ayuda urgente no sean malos !!!
por favor necesito hacer unos programas para pasar de ciclo ya he hecho algunos pero solo me faltan estos.
-un programa que convierta un numero decimal a binario
-un programa que diga si el numero ingresado es primo o no
-hacer un programa que diga si un numero ingresado es un numero perfecto o no
eso es todo por favor lo necesito para el viernes sino repito de ciclo por favor se los ruego por favor
por favor, muchisimas gracias,saludos,Paola
-un programa que convierta un numero decimal a binario
-un programa que diga si el numero ingresado es primo o no
-hacer un programa que diga si un numero ingresado es un numero perfecto o no
eso es todo por favor lo necesito para el viernes sino repito de ciclo por favor se los ruego por favor
por favor, muchisimas gracias,saludos,Paola
Bueno Paola, como no quiero que repitas ciclo te doy las funciones que necesitas para esos programas.
Piensa en cambiar el tipo de datos según te convenga.
Un saludo.
'Public Function aBinario(Numero As Long) As String
'Dim vRetorno As String
'
'While Numero > 0
' vRetorno = vRetorno & Mid(Cadena, (Numero Mod 2) + 1, 1)
' Numero = Numero 2
'Wend
'aBinario = StrReverse(vRetorno)
'End Function
'
'
'
'Public Function EsPrimo(ByVal Numero As Long) As Boolean
'Dim Cont As Long
'
'For Cont = 2 To Numero - 1
' If Numero Mod Cont = 0 Then Exit Function
'Next
'EsPrimo = True
'End Function
'
'
'
'Public Function EsPerfecto(ByVal Numero As Long) As Boolean
'Dim Suma As Long
'Dim Cont As Long
'
'For Cont = 1 To Numero - 1
' If Numero Mod Cont = 0 Then Suma = Suma + Cont
'Next
'If Suma = Numero Then EsPerfecto = True
'End Function
Piensa en cambiar el tipo de datos según te convenga.
Un saludo.
'Public Function aBinario(Numero As Long) As String
'Dim vRetorno As String
'
'While Numero > 0
' vRetorno = vRetorno & Mid(Cadena, (Numero Mod 2) + 1, 1)
' Numero = Numero 2
'Wend
'aBinario = StrReverse(vRetorno)
'End Function
'
'
'
'Public Function EsPrimo(ByVal Numero As Long) As Boolean
'Dim Cont As Long
'
'For Cont = 2 To Numero - 1
' If Numero Mod Cont = 0 Then Exit Function
'Next
'EsPrimo = True
'End Function
'
'
'
'Public Function EsPerfecto(ByVal Numero As Long) As Boolean
'Dim Suma As Long
'Dim Cont As Long
'
'For Cont = 1 To Numero - 1
' If Numero Mod Cont = 0 Then Suma = Suma + Cont
'Next
'If Suma = Numero Then EsPerfecto = True
'End Function