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

strcat(out,"-");

for(j=i;j>=0;j--)

if(strcmp(triada[j],"0000")==0) strcat(out,"0");

else if(strcmp(triada[j],"0001")==0) strcat(out,"1");

else if(strcmp(triada[j],"0010")==0) strcat(out,"2");

else if(strcmp(triada[j],"0011")==0) strcat(out,"3");

else if(strcmp(triada[j],"0100")==0) strcat(out,"4");

else if(strcmp(triada[j],"0101")==0) strcat(out,"5");

else if(strcmp(triada[j],"0110")==0) strcat(out,"6");

else if(strcmp(triada[j],"0111")==0) strcat(out,"7");

else if(strcmp(triada[j],"1000")==0) strcat(out,"8");

else if(strcmp(triada[j],"1001")==0) strcat(out,"9");

else if(strcmp(triada[j],"1010")==0) strcat(out,"A");

else if(strcmp(triada[j],"1011")==0) strcat(out,"B");

else if(strcmp(triada[j],"1100")==0) strcat(out,"C");

else if(strcmp(triada[j],"1101")==0) strcat(out,"D");

else if(strcmp(triada[j],"1110")==0) strcat(out,"E");

else if(strcmp(triada[j],"1111")==0) strcat(out,"F");

strcat(out,".");

i=0;

p=strchr(in,'.')+1;

while(p<=in+strlen(in))

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

p++;

if(p>in+strlen(in)) {triada[i][3]='0',triada[i][2]='0',triada[i][1]='0';break;}