Разработать программу вычисления значения функции

[Mala Nindzya]

a=1,6; b=1,25; x={0,2; 0,4; 0,6; ...; 2}
y=(b+ pow(sin,2)x))/(a+pow(exp,x))

[Hacker19_90]

а что в экспоненту передавать?

[Mala Nindzya]

значение х

[Hacker19_90]

ну тогда так

const
  a = 1.6;
  b = 1.25;

var
  x, y: real;
  
begin
  x := 0.2;
  while x <= 2.0 do
  begin
    y=(b + exp(ln(sin(x))*2)*x)/(a+exp(ln(exp(x))*x));
    x := x + 0.2;
    WriteLn (x:5:5, y:5:5);
  end;
end.

если я правильно понял формулу!

[Mala Nindzya]

я сейчас кину изображение, посмотрите)

[Mala Nindzya]

y=(b+pow(sin(x),2))/(a+exp(x));
это условие, по моему правильное...я пересмотрела задание
)

[Hacker19_90]

const
  a = 1.6;
  b = 1.25;

var
  x, y: real;
  
begin
  x := 0.2;
  while x <= 2.0 do
  begin
    y=(b + exp(ln(sin(x))*2))/(a+exp(x));
    x := x + 0.2;
    WriteLn (x:5:5, y:5:5);
  end;
end.

[Mala Nindzya]

я сейчас кину пример, сможешь посмотреть, и помочь???

[Hacker19_90]

ну как же я могу тебе отказать?
Всё для тебя!

[Mala Nindzya]

.Програмний код основних процедур

#include <vcl.h>
#include <math.h>
#pragma hdrstop

#include "Lr9.h"
//-------------------------------------
#pragma package(smart_init)
#pragma link "Chart"
#pragma link "TeEngine"
#pragma link "TeeProcs"
#pragma link "Series"
#pragma resource "*.dfm"
TForm3 *Form3;

const float B = 0.7;    			//Оголошення константи

//Оголошення глобальних змінних
float   X,                   			//поточне значення аргументу
		X0,                  	//початкове значення аргументу
		Xk,                  	//кінцеве значення аргументу
		H,                   		//крок зміни аргументу
		Y;                  		//поточне значення функції
int   NDan; 			      	//Кількість рядків значень
//Опис функції
float F(float X)
{
   float q;
   q = atan(B*X)/(1 + pow(Sin(X), 2));
   return q;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::BitBtn4Click(TObject *Sender)
{
   //Процедура отримання значення  H
  H = StrToFloat(Edit1->Text);
  Label4->Caption = "H = "+ Edit1->Text ;
  BitBtn4->Hide();
  BitBtn2->Show();
  Label2->Caption = "X0";
  Edit1->Clear();
  Edit1->SetFocus();

  Memo1->Lines->Add("   X               Y");

  //Цикл обчислення значень функції і побудови точок графіка
  X = X0;

  do
  {
	 Y = F(X);         		//Виклик функції
    					//Виведення значень аргумента і функції у поле Memo1
	 Memo1->Lines->Add("  " + FloatToStrF(X, ffFixed, 5, 2) + "          " + FloatToStrF(Y, ffFixed, 5, 2));
	 Chart1->Series[0]->AddXY(X, Y, " ", clBlue);  		 //Побудова точок графіка
	 X = X + H;
  }
  while(X <= Xk);
}
//---------------------------------------------------------------------------

void __fastcall TForm3::BitBtn1Click(TObject *Sender)
{
 //Опис процедури очищення поля результатів та графіка
   int i;           				     	//параметр циклу

  NDan = Memo1->Lines->Count - 1;     	//Кількість рядків у Memo1

  for (i=0; i<=NDan; i++)               		//Очищення  рядків Memo1
	 Memo1->Lines->Strings[i] = " ";

  Chart1->Series[0]->Clear() ;          		//Очищення  графіка Chart1
  Edit1->Clear();                       		//Очищення  текстового поля Edit1
  Edit1->SetFocus();                    		//Установка фокуса в Edit1
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormCreate(TObject *Sender)
{
 //Процедура активізації форми
	  BitBtn1->Show();              	//Відображення кнопок BitBtn1, BitBtn2
	  BitBtn2->Show() ;
	  BitBtn3->Hide() ;                 //Приховування кнопок BitBtn3, BitBtn4
	  BitBtn4->Hide() ;
	  Edit1->SetFocus() ;               //Установка фокуса в Edit1
	  Label2->Caption = "X0 ";
}
//---------------------------------------------------------------------------
void __fastcall TForm3::BitBtn2Click(TObject *Sender)
{
  //Процедура отримання значення  X0
  X0 = StrToFloat(Edit1->Text);
  Label2->Caption = "X0 = "+ Edit1->Text;
  BitBtn2->Hide();
  BitBtn3->Show();
  Label3->Caption = "Xk";
  Edit1->Clear();
  Edit1->SetFocus() ;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::BitBtn3Click(TObject *Sender)
{
//Процедура отримання значення  Xk
  Xk = StrToFloat(Edit1->Text);
  Label3->Caption = "Xk = "+Edit1->Text ;
  BitBtn3->Hide() ;
  BitBtn4->Show() ;
  Label4->Caption = "H";
  Edit1->Clear();
  Edit1->SetFocus() ;
}

там еще графики какие то нужны(((