[impersonalis]

Function Get_approach2#(x#,eps%)
	Local res#,vLEFT#,vRIGHT#
	Local temp#=10^eps
	Local x_s#=Int(x*temp)/temp
	Local mzr%=x*temp-Int(x*(10^(eps-1)))*10
	Local flag%=mzr Mod 2
	vLEFT=x_s+flag*10^(-eps)
	vRIGHT=x_s+flag*10^(-eps)
	If Abs(x-vLEFT)<Abs(x-vRIGHT)
		res=vLEFT
	Else
		res=vRIGHT
	EndIf
	Return res
End Function

Get_approach2# возвращает ближайшее приближенное чётное число от аргумента x# с числом знаков после запятой eps%

Function Get_approach#(x#,eps%)

	Local res#
	Local temp#=10^(eps+1)
	Local x_s#=Int(x*temp)/temp
	Local mzr%=x*temp-Int(x*(10^(eps)))*10
	
	temp#=10^(eps)
	res=Int(x*temp)/temp
	If mzr>=5
		res=res+10^(-eps)
	EndIf

	Return res
End Function

Get_approach# возвращет приближенное (не обрубленное) число от аргумента x# с числом знаков после запятой eps%