Funciones sencillas y simples

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,

  • Pingback: Calcular el factorial de un número | DaW - Labs

  • Pingback: Calcular el factorial de un número

  • HypnotiC

    He traducido el ejemplo 3 y 4.. los primeros 2 no los comprendo… la verdad es que no se en que lenguaje estan esos codigos.. pero los traduci.. XDDDDD
    aqui te los dejo…
    las etiquetas code no se como se aplican.. las puedes aplicar y explicarme como aplicarlas a la hora de postear? (he colocado [ Code][/ Code] pero no se si es la forma correcta..xD jajaja )

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

     public class ParImpar {
     
        public static void main(String[] args) {
     
    int Num= 13;
    int  x = (Num % 2);
    	if(x == 0){
    	System.out.println(Num + ": Es Par");
    }
    else
    	System.out.println(Num + ": Es Impar");
    }
    }

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

    public class EsDivisible{
     
        public static void main(String[] args) {
     
    int Num1= 18;
    int Num2= 4;
    int  x = (Num1 % Num2);
    	if(x == 0){
    	System.out.println(Num1 + "/" + Num2 + "\n Es divisible \n Resto:" + x);
    }
    else
    	System.out.println(Num1 + "/" + Num2 + "\n No es divisible \n Resto:" + x);
    }
     
    }

    Saludos!

  • WindHack


    HypnotiC:

    He traducido el ejemplo 3 y 4.. los primeros 2 no los comprendo… la verdad es que no se en que lenguaje estan esos codigos.. pero los traduci.. XDDDDD
    aqui te los dejo…[...]

    Jejeje, ¡que bien!, mira lo de las etiquetas para los códigos son:
    Etiquetas de código.

  • http://daw-labs.com criss

    como genero desde el teclado el numero d elos numeros fibonacci.

  • WindHack


    criss:

    como genero desde el teclado el numero d elos numeros fibonacci.

    Puedes mirar esta entrada ( http://daw-labs.com/2010/03/serie-fibonacci-en-pascal/ ) Tal vez te sea de ayuda.

    Un saludo.