comparar numeros aproximados

[danielrgoes]

Bom Dia pessoal

Gostaria de saber se existe um parametro no delphi que compara numeros aproximados

ou seja

eu tenho uma rotina com calculos

CAPf := CAPf + 0.1;//faixa;

auxpf := CAPf * Tan(AnguloT3);

pf := Pacm - auxPf;

Pf := 1.732 * Tensao0 * auxPf;

Pf := RoundTo(Pf,-2);

eu quero faze aki assim

if Pf for aproximadamanete nNum

ou seja se o calculp der 5436 e o nNum for 5490 ele entra no if

não da praa usar o entre porque o nNUm varia

muito Obrigado

[maikel]

Bom, mas qual critério você usa para dizer se um número é ou não aproximado?

Com base em que você diz que 5436 é aproximado de 5490? você tem algum percentual, se o numero se aproximar mais de 90% entra na condição if, senão não?

Se você usar essa porcentagem, você pode efetuar um calculo para saber a diferença.... e em cima disso vai ter um intervalo de valores que podem ser comparados... por exemplo... se estiver nos 90% o intervalo seria de 4941 até 6039....

Att

[Micheus]

eu quero faze aki assim

if Pf for aproximadamanete nNum

ou seja se o calculp der 5436 e o nNum for 5490 ele entra no if

danielrgoes, como o colega maikel comentou, você precisa explicar o que você quer avaliar como "aproximadamente".

Mas, apenas acrescentando, na unit Math há outra função chamada CompareValue que possui várias opções de parâmetros (overload) e um deles permite que você informe qual deve ser a máxima diferença entre os números. O resultado indica de é menor, igual ou maior.

Pode ser que ela lhe sirva e, neste caso, veja no help mais detalhes.

Abraços