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

gotoxy(38,20); cputs("█");

gotoxy(44,20); cputs("█");

gotoxy(48,20); cputs("█");

gotoxy(54,20); cputs("█");

gotoxy(28,21); cputs("█");

gotoxy(33,21); cputs("█████");

gotoxy(44,21); cputs("█");

gotoxy(49,21); cputs("█████");

gotoxy(80,25);

delay(900);

}

}

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

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

void Oct2Bin(char *in,char *out)

{char *p,e=1;

strcpy(out,"");

for(p=in;p
{switch(*p)

{case '1': strcat(out,"001"); break;

case '2': strcat(out,"010"); break;

case '3': strcat(out,"011"); break;

case '4': strcat(out,"100"); break;

case '5': strcat(out,"101"); break;

case '6': strcat(out,"110"); break;