Навчальна програма переведення дійсних чисел з 2,8,10,16 у 2,8,10,16 системи числення

void Bin2Dec(char *in,char *out)

{int i,minus=0,dot=0;

char * p;

double x=0;

if(strchr(in,'-')!=NULL) minus=1;

if(strchr(in,'.')!=NULL) dot=1;

if(minus==0&&dot==0)

for(i=strlen(in);i>=0;i--)

{switch(in[i])

{case '1': x+=1*pow(2,strlen(in)-i-1); break;

case '0': x+=0*pow(2,i); break;

default : strcpy(out,"Error"); break;

};}

else if(dot==1&&minus==0)

{i=0;

for(p=strchr(in,'.')-1;p>=in;p--)

{switch(*p)

{case '1': x+=1*pow(2,i); break;

case '0': x+=0*pow(2,i); break;

default : strcpy(out,"Error"); break;

};i++;

}

i=-1;

for(p=strchr(in,'.')+1;p<=in+strlen(in);p++)

{switch(*p)