• Jueves 28 de Marzo de 2024, 17:47

Autor Tema:  Programa Numero Perfecto  (Leído 8741 veces)

ARIASE

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Programa Numero Perfecto
« en: Martes 7 de Noviembre de 2006, 20:18 »
0
buenaas!estoy en 1º de inórmatica de sistemas y tengo que hacer un programa que me encuentre el primer numero perfecto de una lista,la verdad es que nunca he programado y aunque llevo un mes de clase me suena todo a chino :S si alguien pudiese mirarme o corregirme lo que tengo hecho..gracias

el enunciado es este:"En el fichero de entrada hay grabada una secuencia de números enteros positivos. Codifíquese un programa Pascal para determinar la posición ocupada por el primer número perfecto. La posición
del número queda definida por dos valores numéricos: el número de línea y el lugar del número perfecto dentro de la línea.Si en el fichero no existe el número buscado se grabará el siguiente mensaje: ‘No existen números perfectos en el fichero’.Se dice que un número es perfecto si es igual a la suma de sus divisores (ejemplo 6 = 1+2+3)

Resolución:
La solución se ajustará a las siguientes especificaciones:
Especificaciones de entrada:
- Se utilizará un fichero de texto para la entrada de datos que debe llamarse datosp1.txt
En el código Pascal este fichero debe estar direccionado a la unidad a, es decir la sentencia assign
debe ser: assign (nombre_del_fichero, 'a :\datosp1.txt').
- Puede existir más de un número por línea y suponemos que todos los números están grabados correctamente, es decir, son enteros positivos y no existen en el fichero líneas en blanco.
Especificaciones de salida:
- Se utilizará el fichero estándar de salida: Output.
- Se recuerda que en la primera línea del Output aparecerán los datos: número de
matrícula, apellidos y nombre del alumno que realiza la práctica."

Y este es el programa que yo he hecho:

PROGRAM PrimerNumeroPerfecto (fentrada,output);

USES crt;
VAR
fentrada: text;
linea: string;
numero: longint; (*numero a evaluar*)
c: integer; (*auxiliar*)

FUNCTION EsNumeroPerfecto(num: Longint): boolean;
VAR
Sum: Longint;
I: integer;
BEGIN
EsNumeroPerfecto:=false; (*asumo que no es perfecto por omisi¢n*)
IF (num > 2) then
BEGIN
Sum:=0;
FOR i:=(num - 1) downto 2 DO (*for regresivo*)
IF (num mod i) = 0
THEN sum:=sum+i; (*si el resto de la division es cero, entonces es divisor por lo tanto hay que sumarlo*)
IF sum = num
THEN EsNumeroPerfecto:=true; (*si la sumatoria es igual al numero evaluado, entonces es N£mero perfecto*)
END; (*if*)
END; (*EsN£meroPerfecto*)

BEGIN (*principal*)
WriteLn ('MATRICULA:BD0183 APELLIDOS:REBOLLAR ESTEBAN NOMBRE:MARIA JOS

Enko

  • Miembro de PLATA
  • *****
  • Mensajes: 1562
  • Nacionalidad: 00
    • Ver Perfil
Re: Programa Numero Perfecto
« Respuesta #1 en: Martes 7 de Noviembre de 2006, 23:35 »
0
y que es lo que no te sale?
Leer desde el archivo? Encontrar si el numero leido es perfecto?
En donde tenés el problema?

maquina 2

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Re: Programa Numero Perfecto
« Respuesta #2 en: Jueves 21 de Diciembre de 2006, 02:10 »
0
hola necesito que me ayudes a resolver un ejercicio, en pascal necesito
entregarlo lo mas proto, posible....



muchas gracias... :smartass:

maquina 2

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Re: Programa Numero Perfecto
« Respuesta #3 en: Jueves 21 de Diciembre de 2006, 02:18 »
0
por favor este es el ejercicio.
se pide que uste realice un programa k dado 1 num entero positivo comprendido
entre 1-1999,devuelva su lectura por pantalla en letras es
decir:
1456: mil cuatrocientos cincuenta y seis
1000: un mil
548: quinientos cuarenta y ocho
64: sesenta y cuatro
5: cinco


 :smartass:

Enko

  • Miembro de PLATA
  • *****
  • Mensajes: 1562
  • Nacionalidad: 00
    • Ver Perfil
Re: Programa Numero Perfecto
« Respuesta #4 en: Jueves 21 de Diciembre de 2006, 14:11 »
0
Citar
:smartass:
¿Te crees muy listo pidiendo que te hagan la tarea?
Te quiero ver a la hora de los examenes..-...... :hola:

http://foros.solocodigo.com/index.php?showtopic=26071

Mollense

  • Miembro de PLATA
  • *****
  • Mensajes: 1755
  • Nacionalidad: ar
    • Ver Perfil
    • http://solocodigo.com/
Re: Programa Numero Perfecto
« Respuesta #5 en: Jueves 21 de Diciembre de 2006, 14:55 »
0
Cita de: "Enko"
Citar
:smartass:
¿Te crees muy listo pidiendo que te hagan la tarea?
Te quiero ver a la hora de los examenes..-...... :hola:

http://foros.solocodigo.com/index.php?showtopic=26071
Buenaaaas. EnKo, creo que no es el mismo tipo, ¿Te diste cuenta?.  :D

=mente tu respuesta vale  :devil:
"Los que renuncian son más numerosos que los que fracasan" H.F.
"No se cómo sería la III Guerra Mundial, pero la cuarta sería con piedras" A.E.
"Quién no fía no es de fiar..."


...no te quedes mirando.

Enko

  • Miembro de PLATA
  • *****
  • Mensajes: 1562
  • Nacionalidad: 00
    • Ver Perfil
Re: Programa Numero Perfecto
« Respuesta #6 en: Jueves 21 de Diciembre de 2006, 15:02 »
0
Cita de: "Angel_K_ido"
Cita de: "Enko"
Citar
:smartass:
¿Te crees muy listo pidiendo que te hagan la tarea?
Te quiero ver a la hora de los examenes..-...... :hola:

http://foros.solocodigo.com/index.php?showtopic=26071
Buenaaaas. EnKo, creo que no es el mismo tipo, ¿Te diste cuenta?.  :D

=mente tu respuesta vale  :devil:
La respuesta era para "máquina 2"