# Functii
trece<-function(plop) {
if(2*round(plop/2,0)!=plop) TRUE
else FALSE
}
cunoscut<-function(x,y,epsilon,tu) {
if(abs(x-y)<=epsilon & y!=tu) TRUE
else FALSE
}
# Program principal
for(i in 1:100) {
if(runif(1,0,1<0.99) trece(plop)
}
for(i in -100:100) {
cunoscut(x,x+i/100/epsilon,epsilon,tu)
}
cunoscut(x,tu,epsilon,tu)
Publicat de dadatroll 