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

case '6': strcat(out,"0110"); break;

case '7': strcat(out,"0111"); break;

case '8': strcat(out,"1000"); break;

case '9': strcat(out,"1001"); break;

case 'A': strcat(out,"1010"); break;

case 'B': strcat(out,"1011"); break;

case 'C': strcat(out,"1100"); break;

case 'D': strcat(out,"1101"); break;

case 'E': strcat(out,"1110"); break;

case 'F': strcat(out,"1111"); break;

case '0': strcat(out,"0000"); break;

case '.': strcat(out,"."); break;

case '-': strcat(out,"-"); break;

default : strcpy(out,"Error"); e=0; break;

}if(e==0) break;

}

}

//функція переведення з 2 системи у 8, обробляє вхідний рядок char *in і записує

//результат у вихідний рядок char *out

void Bin2Oct(char *in,char *out)

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

char triada[46][4],*p=in+strlen(in),*q;

strset(out,'\0');

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

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