Задание 2

Расчет функции u = tg 2 (x + y) − e y − z cos x 2 + sin z 2 .

 

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Edit1->Text="3,4"; // Начальное значение X

Edit2->Text="0,74"; // Начальное значение Y

Edit3->Text="19,43"; // Начальное значение Z

Memo1->Clear();// Очистка окна редактора Memo1

// Вывод строки в многострочный редактор Memo1

Memo1->Lines->Add("Лаб. раб. N1. Ст. гр. 740102 Иванов А.А.");

}

void __fastcall TForm1::Button1Click(TObject *Sender)

{

double x,y,z;

x=StrToFloat(Edit1->Text); // Считывается значение X

Memo1->Lines->Add("x="+Edit1->Text); // Вывод X в окно Memo1

y=StrToFloat(Edit2->Text); // Считывается значение Y

Memo1->Lines->Add("y="+Edit2->Text); // Вывод Y в окно Memo1

z=StrToFloat(Edit3->Text); // Считывается значение Z

Memo1->Lines->Add("z="+Edit3->Text); // Вывод Z в окно Memo1

// Вычисляем арифметическое выражение

double a=pow(tan(x+y),2);

double b=exp(y-z);

double c=sqrt(cos(x*x)+sin(z*z));

double u=a-b*c;

// Выводим результат в окно Memo1

Memo1->Lines->Add("Результат U = '+FloatToStrF(u,ffFixed,8,3)); }