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

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

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

p++;

if(p>in+strlen(in)) break;

triada[i][1]=*p;

p++;

if(p>in+strlen(in)) break;

triada[i][2]=*p;

p++;

if(p>in+strlen(in)) break;

i++;

}

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

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

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

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

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

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

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

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

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

}

else if(minus==1&&dot==1)

{i=0;

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