Question

Вы забрели в сад. Чтобы выйти из сада, вы должны пройти 3 калитки, набрав некоторое количество яблок. Вы половину всех яблок и ещё пол-яблока отдали человеку у первой калитки, половину от того что осталось и ещё пол-яблока вы отдали человеку у 2 калитки, а половину оставшихся и пол-яблока вы отдали человеку у 3 калитки. При этом вы не разрезали ни одного яблока. Сколько нужно набрать яблок, чтобы вынести из сада k штук?

Answer 1

Ответ:

__fastcall Register()

{

TComponentClass classes[1] = {__classid(TMul)};

RegisterComponents("Samples", classes, 0);

}

}

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

void __fastcall TMul::DoMult(void)

{

if((Val1 < 100) && (Val2 < 100))

Res = FVal1 * FVal2;

else

if (FTooBig) TooBig(this);

}

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

Далее компонент необходимо оттранслировать и включить в библиотеку компонент.

Для включения компонента в библиотеку необходимо:

в главном меню выбрать Component/Install;

в появившемся окне Install Components выбрать опцию Add;

зайти в папку где находится компонента, выбрать файл Mul.cpp и щелкнуть мышью по кнопке OK.

Компонента установится на странице Samples.

Для тестирования компонента используем программу.

На форму поместим три компоненты Edit, три Label, Button и Mul.

Щелкнем по кнопке Button и запишем код.

Mul1->Val1 = StrToInt(EdVal1->Text);

Mul1->Val2 = StrToInt(EdVal2->Text);

Mul1->DoMult();

EdRes->Text = IntToStr(Mul1->Res);

Далее щелкаем мышью справа от события TooBig сомпонеты Mul и записываем код:

Form1->Caption="Переполнение";

Общий вид программы:

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

#pragma link "mul"

#pragma resource "*.dfm"

TForm1 *Form1;