有这样一个函数：
fun_12=function(a){
if (a=floor(a))
b<-a
n<-1
else
{
b<-floor(a)
while (b<a)
{
c<-floor((a-b)*10^n)
b<-b+c/10
n<-n+1
}
return(c)
}

现在我想返回c，可是c只在while循环中有效，那么怎么样才能返回c呢????希望高手帮忙解决一下，麻烦了~~~~