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

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

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

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

};i--;

}

x*=-1;

}

gcvt(x,8,out);

};

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

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

void Bin2Hex(char *in,char *out)

{ int i,j,minus=0,dot=0;char triada[32][5],*p=in+strlen(in),*q;

strset(out,'\0');

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

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

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

{i=0;

while(p>=in)

{triada[i][3]=*p;

p--;

if(p
triada[i][2]=*p;

p--;

if(p