[impersonalis]

забыл напостить правку ко 2ой функции:

Function Get_approach#(x#,eps%)
	Local res#=Float(Mid(Str(x),1,Len(Str(Int(x)))+1+eps))
	Local mzr%=Int(Mid(Str(x),Len(Str(Int(x)))+2+eps,1))
	If mzr>=5
		res=res+10^(-eps)
	EndIf
	Return res
End Function