FoxPro/Visual FoxPro - Numeros Perfectos

 
Vista:
sin imagen de perfil

Numeros Perfectos

Publicado por enn (1 intervención) el 11/03/2014 00:42:49
Bueno amigo soy nuevo en este foro... les contare como llegue aqui

Buscando en la web sobre numeros perfectos, y ya con dolores de cabeza pensando como hacer este ejercicio.... llegue a este foro en busca de ayuda...

el enunciado dice:

" un numero perfecto es aquel numero que es igual a la suma de todos sus divisores exectuando el mismo el primer numero perfecto es el 6 ya que 1+2+3= 6.... escriba un programa que imprima los numeros perfectos que hay entre 1 y 50"

hasta el momento lo e resovido en visual basic... pero quiero hacerlo en foxpro... este es el codigo en basic

Private Sub Cmdcalcular_Click()
Dim numero As Long, sumas As Double, i As Long

numero = Val(Txtnu.Text)
sumas = 0
For i = 1 To numero - 1
If numero Mod i = 0 Then sumas = sumas + i
Next
If sumas = numero Then
Lblres.Caption = Str(numero) + " es un numero perfecto"
Else

Lblres.Caption = Str(numero) + " no es un numero perfecto"
End If
End Sub


Amigos me gustaria hacerlo en fox pro... es un lenguaje nuevo para mi.... gracias de ante mano...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Numeros Perfectos

Publicado por Saul (728 intervenciones) el 14/03/2014 06:25:49
Tomando en cuenta que hiciste una forma

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
numero = 0.00
sumas = 0.00
i     = 0.00
 
numero = Thisform.Txtnu.value
sumas = 0
 
For i = 1 To numero - 1
	If MOD(numero,i) = 0 Then
		sumas = sumas + i
	endif
Next
 
If sumas = numero Then
	Thisform.Lblres.Caption = ALLTRIM(Str(numero)) + " es un numero perfecto"
Else
	Thisform.Lblres.Caption = ALLTRIM(Str(numero)) + " no es un numero perfecto"
ENDIF


Si gustas te mando la forma escribe a
[email protected]
y te paso la forma para que veas como es.

Att.

Saúl Hernández
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar