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

else if(l%16==10) strcat(s,"A");

else if(l%16==11) strcat(s,"B");

else if(l%16==12) strcat(s,"C");

else if(l%16==13) strcat(s,"D");

else if(l%16==14) strcat(s,"E");

else if(l%16==15) strcat(s,"F");

l/=16;

}

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

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

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

strcat(out,".");

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

{y=x-(int)x;

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

{y*=16;

if(y>1)

{if((int)y==1) strcat(out,"1");

else if((int)y==2) strcat(out,"2");

else if((int)y==3) strcat(out,"3");

else if((int)y==4) strcat(out,"4");

else if((int)y==5) strcat(out,"5");

else if((int)y==6) strcat(out,"6");

else if((int)y==7) strcat(out,"7");

else if((int)y==8) strcat(out,"8");