Курсовая работа: Перетворення чисел з однієї системи числення в іншу
{
for(i=0; i<l; i++)
if( szInitialNumber[i]=='.')
SplitPoint=i;
for(i=0; i<SplitPoint; i++)
szIntegralPart[i]=szInitialNumber[i];
for(i=SplitPoint+1; i<l; i++)
szFractionalPart[i]=szInitialNumber[i];
l2=l-SplitPoint-1;
l1=l-l2-1;
// перетворення цілої частини
for(i=0; i<l1; i++)
for(j=0;j<=100;j++)
if(szIntegralPart[i]==( j >= 10 ? 'A' + j - 10 : '0' + j ))
u[i]=j;
e=0;
for(i=0; i<l1-1; i++)
e=(u[i]+e)*InitialSystem;
n=e+u[l1-1];
m=0;
for(i=0; n>=m; i++)
{
m=pow(NecessarySystem, i);
ll=i-1;
}
for(k=ll; k>=0; k--)
{
t=pow(NecessarySystem, k);
x=n/t;