Какое число ближе

Question

Как я могу узнать, какое число ближе? скажем, мое значение «1», и у меня есть два варианта: A: = 1.6 и b: = 1.001

В настоящее время вы просматриваете несколько цифр и получаете 0,1% +/- разницу и +/- 0,6 разницы. я просто не нужно, чтобы увидеть, какой ответ ближе к исходному значению .. код до сих пор ..

И ничего большим, код просто, чтобы остановить меня от делать их все вручную: D

procedure TForm1.Button1Click(Sender: TObject); 
var 
winlimit,test6high,test6low,test6,test1high,test1low,test1,value: double; 
begin 
value := 1.0; 
while value < 1048567 do 
    begin 
    test6high := value + 0.6 ; 
    test6low := value - 0.6 ; 

    test1high := (-0.1 * value)/100; 
    test1high := value - test1high; 

    test1low := (0.1 * value)/100; 
    test1low := value - test1low; 

    memo1.Lines.Add('value is '+floattostr(value)+': 1% High:'+floattostr(Test1high)+' 1% Low:'+floattostr(Test1low)); 
    memo1.Lines.Add('value is '+floattostr(value)+': 0.6 +/- '+floattostr(Test6high)+' 0.6 Low:'+floattostr(Test6low)); 
    memo1.Lines.Add(' '); 
    value := value*2; 
end 
end; 

Answer 1

Я думаю, вы имеете в виду такую ​​функцию:

function ClosestTo(const Target, Value1, Value2: Double): Double; 
begin 
    if abs(Target-Value1)<abs(Target-Value2) then 
    Result := Value1 
    else 
    Result := Value2; 
end; 

При использовании IfThen из Math блока вы можете записать его более сжато:

function ClosestTo(const Target, Value1, Value2: Double): Double; 
begin 
    Result := IfThen(abs(Target-Value1)<abs(Target-Value2), Value1, Value2); 
end;