Entradas etiquetadas con function

Aquí dejaré algunas funciones sencillas que me han sacado de varios apuros.

1º – Calcular múltiplo. Función para calcular los múltiplos en un rango determinado.

function CalcularMultiplo(Desde,Hasta,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;

2º – Factorial. Función para calcular el factorial de un número.

function Factorial(Num:Integer):String;
var
I:Integer;
B:Extended;
begin
      B := Num;
      For I:=1 to Num - 1 do
         B := B * I;
         Result := FloatToStr(B);
         if Num > 170 then
          Result := 'Numero Infinito...'
end;

3º – Par o Impar. Función para saber si un número es par o impar.

function ParOImpar(Num:Integer):String;
begin
     if Num mod 2 = 0 then
        Result := IntToStr(Num)+' Es un número par'
     else Result := IntToStr(Num)+' Es un número impar'
end;

4º – Es divisible. FUnción para saber si un número es divisible por otro.

function EsDivisible(Num1,Num2:Integer):String;
begin
     if (Num1 mod Num2 = 0) then
        Result := 'Es divisible.'
        else Result := 'NO es divisible.';
End;

Espero les sea de ayuda.

Saludos,