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

new TSItem("8",

new TSItem("10",

new TSItem("16", 0)

))));

d->insert(b);

d->insert(new TLabel(TRect(1,2,10,3),"From",b));d->insert( new TStaticText( TRect( 20, 5, 50, 6 ), DataPtr->OutputLine ) );

TCluster *c=new TRadioButtons(TRect(10,4,18,8),

new TSItem("2",

new TSItem("8",

new TSItem("10",

new TSItem("16", 0)

))));

d->insert(c);

d->insert(new TLabel(TRect(10,2,13,3),"To",c));

new TInputLine(TRect(3,8,37,9),128);

d->insert(new TInputLine(TRect(19,2,50,3),length));

d->setData(DataPtr);

ushort control=execView( d );

if(control!=cmCancel) {Trans(DataPtr);d->getData(DataPtr);}

else d->getData(DataPtr);

destroy(d);

return control;

}while(NULL);

return 0;

}