[duda Sencilla] Delphi

[Abaco]

Hola caro, lo primero disculparme por los errores, quizas son muy tontos...
Mira me sigue dando error...
No se que se me escapa, estos son los errores que me saltan :

[Warning] Unit1.pas(41): Return value of function 'IsPerfectNumber' might be undefined
[Error] Unit1.pas(51): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Muchisimas gracias de verdad...

[Abaco]

Es suficiente informacion para resolverme la duda?

[[Caral]]

Hola
Pues no se de donde sale el error, a mi no me genera ninguno, lo unico es que simplemente no envia el 'Hola' al edit ya que para que se de; la funcion tiene que generar el factor boleano y este la unica manera en que puede cumplirlo es en la ultima condicion.
Para que la condicion if i = lnumber then se cumpla tiene que i := i + x;, al no darle valor a i nunca se cumple.
Por esta razon la logica 'De novato' me dice que si se da valor a i se cumple con la condicion, pero, siempre lo hara, en tal caso la funcion no haria nada importante, simplemente hace una comparacion logica, algo que hace una variable sin problemas.
Es lo que veo al hacer esta pruebita interesante de practica.
Saludos

[[egostar]]

Hola

Código Delphi [-]

function IsPerfectNumber(lNumber:Integer):Boolean;
var
  i : Integer;
  x : Integer;
begin
//Inicializamos el resultado de la función para evitar el aviso de no definida
  Result := false; 
  if lnumber > 0 then
    begin
      for x := 1 to lnumber do
        begin
          if (lnumber mod x) = 0 then
             i := i + x;
        end;
      if i = lnumber then
       Result := true; //Cambia el nombre de la función por la palabra reservada Result
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if IsPerfectNumber(6) = true then 
     edit1.Text:= 'hola';
end; //Agrega ésta linea

end.

saludos

[[Caral]]

Hola
Amigo y que hace esto
No genera errores pero no hace el efecto.
Saludos

[ecfisa]

Hola.

Lo que tanto temia se volvio realidad....

!! NO EXISTEN LOS NUMEROS PERFECTOS !!!

Saludos.

[[egostar]]

Empezado por ecfisa

Hola.

Lo que tanto temia se volvio realidad....

!! NO EXISTEN LOS NUMEROS PERFECTOS !!!

Saludos.

saludos

[[egostar]]

Empezado por Caral

Hola
Amigo y que hace esto
No genera errores pero no hace el efecto.
Saludos

saludos

[[Caral]]

Hola
Si, lo se, pero en el ejemplo que pusiste no generaba ningún dato ya que i no contenía valor alguno.
Estoy probando los códigos para aprender algo mas.
Saludos

[Abaco]

Graciaaaaas, ahora no da error, peeeeeeero...
Deberia devolver true con 6...
Mira asi hago en vb:

Private Sub Form_Load()
    MsgBox IsPerfectNumber(6)
End Sub

Public Function IsPerfectNumber(ByVal lNumber As Long) As Boolean
Dim x                       As Long
Dim i                       As Long
    For x = 1 To lNumber - 1
        If (lNumber Mod x = 0) Then i = i + x
    Next
    If i = lNumber Then IsPerfectNumber = True
End Function

Me podrias ayudar un pco mas?
Muchas gracias

[[egostar]]

Empezado por Abaco

Graciaaaaas, ahora no da error, peeeeeeero...
Deberia devolver true con 6...
Mira asi hago en vb:

Private Sub Form_Load()
    MsgBox IsPerfectNumber(6)
End Sub

Public Function IsPerfectNumber(ByVal lNumber As Long) As Boolean
Dim x                       As Long
Dim i                       As Long
    For x = 1 To lNumber - 1
        If (lNumber Mod x = 0) Then i = i + x
    Next
    If i = lNumber Then IsPerfectNumber = True
End Function

Me podrias ayudar un pco mas?
Muchas gracias

Hola

Código Delphi [-]

function IsPerfectNumber(lNumber:Integer):Boolean;
var
  i : Integer;
  x : Integer;
begin
//Inicializamos I en 0
  I := 0;
//Inicializamos el resultado de la función para evitar el aviso de no definida
  Result := false;
  if lnumber > 0 then
    begin
      for x := 1 to lnumber - 1 do //Te faltó restarle 1 a lnumber
        begin
          if (lnumber mod x) = 0 then
             i := i + x;
        end;
      if i = lnumber then
       Result := true; //Cambia el nombre de la función por la palabra reservada Result
    end;
end;

saludos

[[Caral]]

Hola
Es una funcion sencilla de entender y mira que soy malo con las funciones.
Saludos
PD: Que feo es Visual Basico.

[ecfisa]

Hola de nuevo.

Mi vida no tendría sentido sín números perfectos, así que teclee un poco:

Código Delphi [-]
function NumeroPerfecto( Num: Integer): Boolean;
var
 con,ac: Integer;
begin
  Result:= False;
  con:= 1;
  ac:= 0;
  while con < Num do
  begin
    if Num mod con = 0 then
      ac:= ac + con;
    Inc(con)
  end;
  if ac = Num then
    Result:= True;
end;

Saludos.