Задача 2 . Вычислить заданную функцию с конкретными значениями переменных.
В этой лабораторной работе используются компоненты Button, Lable, Edit. Число
Edit
зависит от того, сколько данных нужно ввести вручную пользователю. Button1
используется для вычисления Y.
Код программы:
//---------------------------------------------------------------------------
#include
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{ float a,b,x,y;
a= StrToFloat(Edit1->Text);
b= StrToFloat(Edit2->Text);
x= StrToFloat(Edit3->Text);
y=((a*pow(x,2)+b*x+exp(x))/(sqrt(1+cos(x))))*pow(x,a);
Label5->Caption = "Y="+FloatToStr(y);
}
//---------------------------------------------------------------------------
При выполнении программы будет создана Форма и получены следующие
данные(рис.3).