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

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

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

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

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

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

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

};i++;

}

i=-1;

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

{switch(*p)

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

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

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

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

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

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

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

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

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

};i--;

}

x*=-1;

}

gcvt(x,8,out);