elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  [SRC] [Delphi] Números perfectos [by *PsYkE1*]
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [SRC] [Delphi] Números perfectos [by *PsYkE1*]  (Leído 2,420 veces)
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
[SRC] [Delphi] Números perfectos [by *PsYkE1*]
« en: 26 Agosto 2010, 16:48 pm »

HOla, con esta sencilla funcion mia averiguo los numeros perfectos :D

Código
  1. (* * * * * * * * * * * * * * * * * * * * * * * * * *)
  2. (* Function : IsPerfectNumber                      *)
  3. (* Author   : *PsYkE1*                             *)
  4. (* Mail     : vbpsyke1@mixmail.com                 *)
  5. (* Date     : 24/8/10                              *)
  6. (* Purpose  : Check if number is a perfect number  *)
  7. (* Visit    : http://foro.rthacker.net/            *)
  8. (* * * * * * * * * * * * * * * * * * * * * * * * * *)
  9.  
  10. function IsPerfectNumber(lNumber:Integer):Boolean;
  11. var
  12.  i : Integer;
  13.  x : Integer;
  14. begin
  15.  I := 0;
  16.  Result := false;
  17.  if lnumber > 0 then
  18.    begin
  19.      for x := 1 to lnumber - 1 do
  20.        begin
  21.          if (lnumber mod x) = 0 then
  22.             i := i + x;
  23.        end;
  24.      if i = lnumber then
  25.       Result := true;
  26.    end;
  27. end;

Ejemplo:
Código
  1. procedure TForm1.FormCreate(Sender: TObject);
  2. var
  3.  n:integer;
  4.  s:String;
  5. begin
  6.  n := 6;
  7.  str(n,s);
  8.  if IsPerfectNumber(n) = true then
  9.     edit1.Text:= 'El ' + s + ' es un numero perfecto';
  10. end;
  11.  
  12. end.

DoEvents¡! :P


« Última modificación: 26 Agosto 2010, 17:08 pm por *PsYkE1* » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Programa en C que imprime los primeros m números perfectos
Programación C/C++
ERIK546 3 22,408 Último mensaje 29 Junio 2012, 21:36 pm
por ERIK546
Números perfectos (lenguaje C) « 1 2 3 »
Programación C/C++
NOB2014 22 12,636 Último mensaje 30 Septiembre 2014, 04:34 am
por rir3760
[C++] [?] Numeros perfectos
Programación C/C++
-JohnWalls 2 3,070 Último mensaje 7 Diciembre 2014, 20:33 pm
por -JohnWalls
Programa Numeros Perfectos C++
Programación C/C++
HIDE_95 2 3,866 Último mensaje 4 Agosto 2015, 21:34 pm
por HIDE_95
Numeros amigos y numeros perfectos programa en C
Programación C/C++
estudiante_1 2 5,630 Último mensaje 11 Agosto 2015, 23:51 pm
por estudiante_1
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines