Материал: Проект програми аналога інженерного калькулятора

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

{->Text=Edit1->Text+Button4->Caption;

}

//---------------------------------------------------------------------------__fastcall TForm1::Button5Click(TObject *Sender)

{->Text=Edit1->Text+Button5->Caption;

}

//---------------------------------------------------------------------------__fastcall TForm1::Button6Click(TObject *Sender)

{->Text=Edit1->Text+Button6->Caption;

}

//---------------------------------------------------------------------------__fastcall TForm1::Button7Click(TObject *Sender)

{->Text=Edit1->Text+Button7->Caption;

}

//---------------------------------------------------------------------------__fastcall TForm1::Button8Click(TObject *Sender)

{->Text=Edit1->Text+Button8->Caption;

}

//---------------------------------------------------------------------------__fastcall TForm1::Button10Click(TObject *Sender)

{->Text=Edit1->Text+Button10->Caption;

}

//---------------------------------------------------------------------------__fastcall TForm1::Button9Click(TObject *Sender)

{->Text=Edit1->Text+Button9->Caption;

}

//---------------------------------------------------------------------------__fastcall TForm1::Button11Click(TObject *Sender)

{->Text=Edit1->Text+Button11->Caption;

}

//---------------------------------------------------------------------------__fastcall TForm1::Button12Click(TObject *Sender)

{=Edit1->Text;->Text="";='+';

}

//---------------------------------------------------------------------------__fastcall TForm1::Button13Click(TObject *Sender)

{=Edit1->Text;->Text="";='-';

}

//---------------------------------------------------------------------------__fastcall TForm1::Button14Click(TObject *Sender)

{=Edit1->Text;->Text="";(znak=='+')->Text=FloatToStr(StrToFloat(stroka1)+StrToFloat(stroka2));(znak=='-')->Text=FloatToStr(StrToFloat(stroka1)-StrToFloat(stroka2));(znak=='/')->Text=FloatToStr(StrToFloat(stroka1)/StrToFloat(stroka2));(znak=='*')->Text=FloatToStr(StrToFloat(stroka1)*StrToFloat(stroka2));

}

//---------------------------------------------------------------------------__fastcall TForm1::BsinClick(TObject *Sender)

{=StrToFloat(Edit1->Text);->Text=FloatToStr(sin(x));

}

//---------------------------------------------------------------------------__fastcall TForm1::Button15Click(TObject *Sender)

{=StrToFloat(Edit1->Text);->Text=FloatToStr(x*x);

}

//---------------------------------------------------------------------------__fastcall TForm1::Button16Click(TObject *Sender)

{=Edit1->Text;->Text="";='/';

}

//---------------------------------------------------------------------------__fastcall TForm1::Button17Click(TObject *Sender)

{=Edit1->Text;->Text="";='*';

}

//---------------------------------------------------------------------------__fastcall TForm1::Button18Click(TObject *Sender)

{=StrToFloat(Edit1->Text);->Text=FloatToStr(cos(x));

}

//---------------------------------------------------------------------------__fastcall TForm1::Button20Click(TObject *Sender)

{=StrToFloat(Edit1->Text);->Text=FloatToStr(sqrt(x));

}

//---------------------------------------------------------------------------__fastcall TForm1::Button21Click(TObject *Sender)

{=StrToFloat(Edit1->Text);->Text=FloatToStr(1/x);

}

//---------------------------------------------------------------------------__fastcall TForm1::Button23Click(TObject *Sender)

}

//---------------------------------------------------------------------------__fastcall TForm1::Button24Click(TObject *Sender)

{=StrToFloat(Edit1->Text);->Text=FloatToStr(pow(10,x));

}

//---------------------------------------------------------------------------__fastcall TForm1::N7Click(TObject *Sender)

{->Visible=false;

}

//---------------------------------------------------------------------------__fastcall TForm1::FormCreate(TObject *Sender)

{->Visible=true ;->Visible=true ;

}

Источник: https://www.bibliofond.ru/view.aspx?id=877706