Лабораторная работа №2 / Програмний код проекту

#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("Лабораторная работа № 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, 7,3)

+ "; y = "+FloatToStrF(y, ffFixed, 3,4)+"; z = "+FloatToStrF(z, ffFixed, 7,3));

Memo1 ->Lines ->Add("f="+FloatToStr(rez));

}