Курсовая работа: Перетворення чисел з однієї системи числення в іншу

nn[i+1]=nn[i+1];

nnn[i+1]=nn[i+1];

}

}

for(k=1; k<20; k++)

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

if(nnn[k]==j)

szGetFractionalPart[k]=( j >= 10 ? 'A' + j - 10 : '0' + j );

for(k=0; k<20; k++)

szGetFractionalPart[k]=szGetFractionalPart[k+1];

Edit4->Text=PP;

if(u[0]==0)

szGetIntegralPart[0]='0';

sprintf(s,"%s.%s", szGetIntegralPart, szGetFractionalPart);

Edit4->Text=s;

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

szGetIntegralPart[i]=PP[i];

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

szGetFractionalPart[i]=PP[i];

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N1Click(TObject *Sender)

{

Close();

}

Контрольні приклади :

Приклад 1.

Перетворити число 109 з десяткової системи числення в двійкову.