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

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

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,b=3.85,d,x1=-2.3,x2=0.01,n=7,f;

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

Memo1->Clear();

Memo1->Lines->Append("D\tF");

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

{

f=sqrt(b+d)*tan(3.14/(d+0.15));

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

}

}

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