Лабораторная работа №2 / Обектный проукт / Unit1

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

#include <vcl.h>
#pragma hdrstop
#include<stdio.h>
#include<math.h>
#include<conio.h>
#include<iostream>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)

{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1 ->Text = "17,421";
Edit2 ->Text = "10,365e-3";
Edit3 ->Text = "1,943e2";
Memo1 ->Clear();
Memo1 ->Lines ->Add("\t\t\tЛабораторная рбата № 2");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   double x, y, z,a,b,c,rez;
x = StrToFloat(Edit1 ->Text);
y = StrToFloat(Edit2 ->Text);
z = StrToFloat(Edit3 ->Text);
a = pow( (  y  + pow ( (x-1), 1/3)  ),   1/4   );
b = abs(x-y);
c = (sin(z)*sin(z)+tan(z)*tan(z));
rez = a/(b*c);
Memo1 ->Lines ->Add("При x = "+FloatToStrF(x, ffFixed, 3,5)+ "; y = "
+FloatToStrF(y, ffFixed, 3,5)+"; z = "+FloatToStrF(z, ffFixed, 3,5));
Memo1 ->Lines ->Add("f="+FloatToStr(rez)); // x- 'это число,
//ffGeneral - Это формат. Универсальное программирование, 3,5 - 3 цифры после
//5 до.

}


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