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

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

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

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

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

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

}if(e==0) break;

}

}

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

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

void Dec2Bin(char *in,char *out)

{int i;

char s[length]="";

double x,y;

int l;

x=atof(in);

if(x<0) strcat(out,"-");

l=(int)x;

while(l!=0)

{if(l%2==0) strcat(s,"0");

else strcat(s,"1");

l/=2;

}

for(i=strlen(s)-1;i>=0;i--)

out[i-strlen(s)+1]=s[i];