어느 쪽이 더 가깝습니까

Question

어떤 숫자가 더 가까운 지 어떻게 알 수 있습니까? 내 값이 "1"이고 두 개의 var, 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; 

당신이 Math 장치에서 IfThen를 사용하는 경우210

좀 더 간결하게 기록 할 수 있습니다 :

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