22/08/2019, 10:00:00 pm *
Bienvenido(a), Visitante. Por favor, ingresa o regístrate.
¿Perdiste tu email de activación?

Ingresar con nombre de usuario, contraseña y duración de la sesión
Noticias: LISTADO ACTUALIZADO DE CURSOS
 
 
Páginas: [1]   Ir Abajo
  Imprimir  
Autor Tema: Número perfecto, magma  (Leído 799 veces)
0 Usuarios y 2 Visitantes están viendo este tema.
Julio_fmat
Pleno*
*****

Karma: +0/-0
Desconectado Desconectado

Sexo: Masculino
Chile Chile

Mensajes: 1.763



Ver Perfil WWW
« : 24/10/2017, 03:09:03 am »

Un número entero positivo [texx]n[/texx] es perfecto si la suma de sus divisores propios es igual con [texx]n[/texx]. Ocupando el comando Magma Divisors(), escriba un programa que entregue los primeros 4 números perfectos.

Bueno, en algún momento usamos el comando Divisors(). Por otro lado, creo que no usamos function, porque no nos piden una funcion... Pero si "IF".
En línea

"Haz de las Matemáticas tu pasión".
sugata
Pleno*
*****

Karma: +0/-0
Desconectado Desconectado

Sexo: Masculino
España España

Mensajes: 2.281


Ver Perfil
« Respuesta #1 : 24/10/2017, 03:15:53 am »

La sentencia IF es un bucle que acaba en THEN, habitualmente en otros lenguajes.
Entonces con este bucle podemos determinar si el número es perfecto determinando IF suma de divisores =n THEN el número es cuadrado.
Esto debería ir en otro bucle que cuente los números encontrados y al llegar a 4 pare.
En línea
Ignacio Larrosa
Moderador Global
Pleno*
*

Karma: +0/-0
Desconectado Desconectado

Sexo: Masculino
España España

Mensajes: 2.242


Ver Perfil WWW
« Respuesta #2 : 24/10/2017, 04:16:43 am »

Un número entero positivo [texx]n[/texx] es perfecto si la suma de sus divisores propios es igual con [texx]n[/texx]. Ocupando el comando Magma Divisors(), escriba un programa que entregue los primeros 4 números perfectos.

Bueno, en algún momento usamos el comando Divisors(). Por otro lado, creo que no usamos function, porque no nos piden una funcion... Pero si "IF".

Con Derive, y aplicando tan solo la definición de nýumero perfecto, bastaría con

SELECT(SUM(DIVISORS(n)) = 2·n, n, 1, 10000)

para obtener [texx][6, 28, 496, 8128][/texx].

La función DIVISORS(n) obtiene la lista de todos los divisores positivos de [texx]n[/texx], incluidos [texx]1\textrm{ y }n[/texx].

En Magma debe ser similar.

Saludos,
En línea

Daría todo lo que se por la mitad de lo que ignoro (R. Descartes)
O incluso por muchísimo menos ...  (yo)
Páginas: [1]   Ir Arriba
  Imprimir  
 
Ir a:  

Impulsado por MySQL Impulsado por PHP Powered by SMF 1.1.4 | SMF © 2006, Simple Machines LLC XHTML 1.0 válido! CSS válido!