• Viernes 29 de Marzo de 2024, 11:32

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - conyers

Páginas: [1]
1
Pascal / Re:Elaboración de programa.
« en: Viernes 24 de Junio de 2016, 19:15 »
Asi seria el programa en VFP:

clear
i=2   && i=variable que ira desde 2 hasta mil
Do while i<=1000
   x=1  && x iniciara desde 1 hasta i-1 para sumar los numeros divisores que estan entre 1 e "i"
   s=0  && Suma es igual a cero
   Do while x<i
      if int(i/x)=(i/x)  && Pregunto si el valor estero de la divicion es igual a la divisin natural
                     && Esto es para saber si no hay residuos en la division                     
         s=s+x         && Si es divisor sumo "x" a la suma "s"
      endif
      x=x+1
   Enddo
   if s=i         && Si la suma me da igual a "i", es perfecto
      ?i
      wait
   endif
   i=i+1
Enddo   



Saludos

Páginas: [1]