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

};

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

void Oct2Hex(char *in,char *out)

{char s[length];

Oct2Bin(in,s);

Bin2Hex(s,out);

}

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

void Hex2Oct(char *in,char *out)

{char s[length];

Hex2Bin(in,s);

Bin2Oct(s,out);

}

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

void Hex2Dec(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(16,strlen(in)-i-1); break;

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