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

};i--;

}

x*=-1;

}

gcvt(x,8,out);

};

//функція, що обробляє дані,введені користувачем у вікні калькулятора (вказівник

//на них – параметр struct DialogData * DataPtr) і запускає відповідну до

//положення перемикачів функцію переведення даних

void Trans(struct DialogData * DataPtr)

{

if(DataPtr->from==DataPtr->to)

strcpy(DataPtr->OutputLine,DataPtr->InputLine);

else if(DataPtr->from==0)

{if(DataPtr->to==1) Bin2Oct(DataPtr->InputLine,DataPtr->OutputLine);

else if(DataPtr->to==2) Bin2Dec(DataPtr->InputLine,DataPtr->OutputLine);

else if(DataPtr->to==3) Bin2Hex(DataPtr->InputLine,DataPtr->OutputLine);

}

else if(DataPtr->from==1)

{if(DataPtr->to==0) Oct2Bin(DataPtr->InputLine,DataPtr->OutputLine);

else if(DataPtr->to==2) Oct2Dec(DataPtr->InputLine,DataPtr->OutputLine);

else if(DataPtr->to==3) Oct2Hex(DataPtr->InputLine,DataPtr->OutputLine);

}

else if(DataPtr->from==2)

{if(DataPtr->to==0) Dec2Bin(DataPtr->InputLine,DataPtr->OutputLine);