small negative values instead of zeros in nested loop

Hi,I am trying to run a code with a series of nested for loops, here is a simplified version of it:
J<-seq(0,1,0.2)                    D<-seq(0,1,0.2)                    
for (x in 1:10)                            {        for (j in 1:length(J))                        {            for (d in 1:(length(D)-j+1))                        {                x.end<-x*(1-J[j]-D[d])                                print(x)                print(J[j])                print(D[d])                print(x.end)                }    }}
The problem is that whenever x.end should be zero it takes a small negative value really close to zero instead. Any idea of why this might be happening and how can I fix it?Thanks!
                        
   [[alternative HTML version deleted]]