Números aleatorios decimales entre 0 y 1

[ecfisa]

Hola LuisAlf.

Delphi trae la función Random que genera números aleatorios.

Ejemplo con las dos funciones relacionadas a Random:

Código Delphi [-]
var
  x: Double;
  n: Longint;
begin
  n:= 1507;
  RandSeed:= n: // Inicia la sucesión pseudoaleatoria a en 'n' que será repetitiva si se vuelve a ejecutar con ese valor
  Randomize;    // Inicializa el generador basado en un número aleatorio (en este caso anularía lo asignado con RandSeed)
  x:= Random;   // donde x está comprendido entre 0 y 1
end;

Mostrar un número aleatorio entre 1 y 100:

Código Delphi [-]
   ShowMessage(IntToStr(Random(100) + 1)));

Notarás que al fijar el rango, en este caso no devuelve un número real. El '+1' es necesario pués sin él el resultado estaría comprendido entre 0 y 99

Tenés más información en la ayuda de Delphi, y también aca: Random .

Un saludo.

[LuisAlf::]

O que facil..!
No sabia que esa función se podia utilizar sin parametros..

Muchas gracias..!