Тема:Циклічні програми з регулярною зміною аргумента, які містять розгалуження

1. Розв’язок програми мовою C++

2.Код програми.

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

#include <vcl.h>

#include <math.h>

#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 y,x,a=1.95,b=0.895,z=1.35,d=2.04;

Memo1->Clear();

Memo1->Lines->Append("X\tY");

for (x=0.42;x<=0.86;x+=0.04)

{

y=(a*sqrt(a*x)+a*exp(x))/(b*sin(x+3.14/16));

if(y>z&&y<d)Memo1->Lines->Append(FloatToStrF(x,ffFixed,3,3)+'\t'+FloatToStrF(y,ffFixed,3,3));

else Memo1->Lines->Append("Значення в заданих межах Y відсутні");

}

}

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