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

зміною аргумента

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 k,z,y,x1=-4.8,x2=0.1,n=7,a=3.2;

k=(x2-x1)/(n+1);

Memo1->Clear();

Memo1->Lines->Append("Y\tZ");

for (y=x1;y<=x2;y+=k)

{

z=atan((a+y)*(a+y)*(a+y))/(log(a)*log(a))+(3.14/(6*a));

Memo1->Lines->Append(FloatToStrF(y,ffFixed,3,3)+'\t'+FloatToStrF(z,ffFixed,3,3));

}

}

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