Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Delphi » Ayuda programa numeros perfectos

Delphi - Ayuda programa numeros perfectos

Volver
Nuevo Tema
<<>>
 
Vista:
Mensajes realizados anteriormente (No estaban la última vez que entraste)Ayuda programa numeros perfectos
JeanKH (16/06/2016 23:31:05)686 visitas
1 respuesta
Mensajes realizados anteriormente (No estaban la última vez que entraste)Ayuda programa numeros perfectos
E.T. (17/06/2016 01:32:36)
Imágen de perfil de JeanKH

Ayuda programa numeros perfectos

Publicado por JeanKH (2 intervenciones) el 16/06/2016 23:31:05
Me asignaron realizar el siguiente programa:

Un número perfecto es aquel que es igual a la suma de todos sus divisores excepto el mismo. El primer número perfecto es seis (6) ya que 1+2+3=6. Escriba un programa que muestre todos los números perfectos menores que mil.

Pero no puedo utilizar el ciclo "for" solo "repeat o while" y he intentado plantearlo pero no consigo que me de los numero que me piden, quisiera que me pudieran ayudar.
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
sin imagen de perfil
Val: 35
Ha aumentado su posición en 8 puestos en Delphi (en relación al último mes)
Gráfica de Delphi

Ayuda programa numeros perfectos

Publicado por E.T. (1219 intervenciones) el 17/06/2016 01:32:36
Un algoritmo básico en las clases de programación
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button1Click(Sender: TObject);
var i, j, k: integer;
    sPerfectos: string;
const
    cLimite = 1000;
begin
  i := 1;
  sPerfectos := '';
  repeat
    j := 0;
    k := 1;
    repeat
      if (i mod k = 0) and (i <> k) then
        j := j + k;
      inc(k);
    until k > trunc(i/2);
    if j = i then
      sPerfectos := sPerfectos + IntToStr(i) + ', ';
    inc(i);
  until i = cLimite + 1;
  ShowMessage(sPerfectos);
end;
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