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

out[i+1]='\0';

strcat(out,".");

if(x-(int)x!=0)

{y=x-(int)x;

for(i=0;i<10;i++)

{y*=2;

if(y>1) {strcat(out,"1");y-=1;}

else strcat(out,"0");

if(y==0)break;

}

}

}

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

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

void Dec2Oct(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%8==0) strcat(s,"0");

else if(l%8==1) strcat(s,"1");

else if(l%8==2) strcat(s,"2");