Indetectables

Publicado: **20 Feb 2010, 15:28**

Una función sencilla, y quizás de muy poca ayuda.
La programé yo, y quizás no sea la gran cosa, pero sirve (Por lo menos para termina unos deberes que tenía... ).

Código: Seleccionar todo

function CalcularMultiplo(Desde:Integer;Hasta:Integer;Multiplo:Integer):String;
var
    I:Integer;
begin
  for I:=Desde to Hasta do
    begin
      if I mod Multiplo = 0 then
        Result := Result + IntToStr(I) +','
    end;
end;

Su uso:

Código: Seleccionar todo

CalcularMultiplo(16,100,4)

El primer parámetro es el número desde el cual se empieza, el segundo donde terminará la cuenta,y el último es el múltiplo que se buscará en el rango declarado (Desde y Hasta).

Se puede agregar un Memo o RichEdit para obtener lo valores:

Código: Seleccionar todo

RichEdit1.Lines.Add(CalcularMultiplo(16,100,4))

Publicado: **20 Feb 2010, 15:30**

Bueno, aquí les dejo esta sencilla aplicación, por si necesitan obtener múltiplos rápidamente.
Usa casi (Nótese el "casi") la misma función que está arriba.

Descarga (Sólo .exe):
[Enlace externo eliminado para invitados]

Publicado: **20 Feb 2010, 21:22**

Muy bien, asi me gusta, arriba Delphi y Object Pascal :).

La función en si no es muy dificil ni puede que tampoco muy necesaria para la gente ya que creo yo que otro tipo de sources es lo que anda buscando la gente que visita esta sección y cada uno de sus temas.
Esto no implica, y para mi es lo mas importante, que tu tuviste una necesidad, en este caso crear una función que busque los multiplos de algun número en un rango especifico de ellos y que lo hiciste a la perfección; creeme, un lenguaje de programación se aprende mejor con casos como estos en los que tienes que aplicar todo lo teorico y conocido del mismo que simplemente mirando sources y videotutoriales por ahi que te lo dan todo echo y listo para un copy/paste para que luego le pongas un label con tu nombre.

-Abel

Publicado: **22 Feb 2010, 20:19**

Gracias por el comentario

Indetectables

function CalcularMultiplo [ObjectPascal] by .:WindHack:.

function CalcularMultiplo [ObjectPascal] by .:WindHack:.

Re: function CalcularMultiplo [ObjectPascal] by .:WindHack:.

Re: function CalcularMultiplo [ObjectPascal] by .:WindHack:.

Re: function CalcularMultiplo [ObjectPascal] by .:WindHack:.