Ну хорошо только зря вы так,
Мне не сложно но там просто кода дофига
| Код |
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Main.h"
#include "math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TForm1 *Form1;
int igg=0;
class TElement{
protected:
TElement *left, *right;
TElement(TElement* L,TElement* R)
{
left=L;right=R;
}
public:
~TElement(void){delete left;delete right;}
virtual double rezult(void){};
virtual TElement* copy(void){};
virtual TElement* differ(void){};
virtual void Set_var(double X,double Y)
{
if (left) left->Set_var(X,Y);
if (right)right->Set_var(X,Y);
}
};
class Real: public TElement{
double f;
public:
Real(double F):TElement(NULL,NULL){f=F;}
double rezult(void)
{
return f;
}
TElement* copy(void){return new Real(f);}
TElement* differ(void){return new Real(0);}
};
class Var: public TElement{
double x;
AnsiString n;
public:
Var(double X=0, AnsiString N="X"):TElement(NULL,NULL){x=X;n=N;}
double rezult(void)
{return x;}
TElement* copy(void)
{return new Var(x,n);}
TElement* differ(void)
{return new Real(1.0);}
void Set_var(double X, double Y){if(n=="X")x=X;else x=Y;}
};
struct Minus:public TElement{
Minus(TElement* L,TElement* R):TElement(L,R){};
double rezult(void){
return left->rezult()-right->rezult();}
TElement* copy(void){
return new Minus(left->copy(),right->copy());}
TElement* differ(void){
return new Minus(left->differ(),right->differ());}
};
class Cos:public TElement{};
class Sin:public TElement{
double x;
AnsiString n;
public:
Sin(double X=0, AnsiString N="X"):TElement(NULL,NULL){x=X;n=N;}
double rezult(void)
{return sin(x);}
TElement* copy(void)
{return new Sin(x,n);}
TElement* differ(void)
{return new Minus(new Real(0),new Cos(x,n));}
void Set_var(double X,double Y){if(n=="X")x=X;else x=Y;}
};
class Cos:public TElement{
double x;
AnsiString n;
public:
Cos(double X=0, AnsiString N="X"):TElement(NULL,NULL){x=X;n=N;}
double rezult(void)
{return cos(x);}
TElement* copy(void)
{return new Cos(x,n);}
TElement* differ(void)
{return new Sin(x,n);}
void Set_var(double X,double Y){if(n=="X")x=X;else x=Y;}
};
struct Plus:public TElement{
Plus(TElement* L,TElement* R):TElement(L,R){};
double rezult(void){
return left->rezult()+right->rezult();}
TElement* copy(void){
return new Plus(left->copy(),right->copy());}
TElement* differ(void){
return new Plus(left->differ(),right->differ());}
};
struct Mult:public TElement{
Mult(TElement* L,TElement* R):TElement(L,R){};
double rezult(void)
{return left->rezult()*right->rezult();}
TElement* copy(void)
{return new Mult(left->copy(),right->copy());}
TElement* differ(void)
{return new Plus(new Mult(left->differ(),right->copy()),new Mult(left->copy(),right->differ()));}
};
struct Div:public TElement{
Div(TElement* L,TElement* R):TElement(L,R){};
double rezult(void)
{return left->rezult()/right->rezult();}
TElement* copy(void)
{return new Div(left->copy(),right->copy());}
TElement* differ(void)
{return new Div(new Minus(new Mult(left->differ(),right->copy()),
new Mult(left->copy(),right->differ())),
new Mult(right->copy(),right->copy()));
}
};
int PosFromEnd(AnsiString s,AnsiString sub)
{
int I=s.Length();
AnsiString p;
p.SetLength(I);
for (int i=1;i<=I;i++)
p[I-i+1]=s[i];
if (p.Pos(sub)>0)
return I-p.Pos(sub)+1;
else return 0;
};
TElement* form(AnsiString s){
TElement* h;
int p,I=s.Length();
AnsiString s1,s2;
if((p=PosFromEnd(s,"+"))>1)
{
s1=s.SubString(1,p-1);
s2=s.SubString(p+1,I-p);
h=new Plus(form(s1),form(s2));
}
else if ((p=PosFromEnd(s,"-"))>1)
{
s1=s.SubString(1,p-1);
s2=s.SubString(p+1,I-p);
h=new Minus(form(s1),form(s2));
}
else if((p=PosFromEnd(s,"*"))>1)
{
s1=s.SubString(1,p-1);
s2=s.SubString(p+1,I-p);
h=new Mult(form(s1),form(s2));
}
else if ((p=PosFromEnd(s,"/"))>1)
{
s1=s.SubString(1,p-1);
s2=s.SubString(p+1,I-1);
h=new Div(form(s1),form(s2));
}
else if (s=="x") h=new Var();
else if (s=="y") h=new Var(0,"Y");
else h=new Real(StrToFloat(s));
return h;
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::B2Click(TObject *Sender)
{
exit(1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::B1Click(TObject *Sender)
{
TElement* x = form(E1->Text);
TElement* y = form(E22->Text);
TElement* f = form(E2->Text);
TElement* f1 = f->differ();
TElement* f2 = f1->differ();
TElement* f3 = f2->differ();
double X=x->rezult();
double Y=y->rezult();
MessageBox(NULL,"j","mda",MB_OK);
f->Set_var(X,Y);
f1->Set_var(X,Y);
f2->Set_var(X,Y);
f3->Set_var(X,Y);
MessageBox(NULL,"P","mda",MB_OK);
int precision=15;
int digits=StrToFloat(CSE1->Text);
E3->Text=FloatToStrF(x->rezult(),ffFixed,precision,digits);
E4->Text=FloatToStrF(f->rezult(),ffFixed,precision,digits);
E5->Text=FloatToStrF(f1->rezult(),ffFixed,precision,digits);
E6->Text=FloatToStrF(f2->rezult(),ffFixed,precision,digits);
E7->Text=FloatToStrF(f3->rezult(),ffFixed,precision,digits);
}
//---------------------------------------------------------------------------
|
Вот
| Цитата | В таком объявлении переменной A* a (равно как и в опережающем объявлении class A;) неважно, является ли он чьим то наследником. Для размещения указателя (или, например, объявления typedef) компилятору не требуется знать иерархию наследования.
|
Тут просто ситуация другая я вообще кое как разобрался и написал вот эту прогу, так все работает прога считает формулы и находит производные, теперь надо добать синус и косинус, а производные их противоположны вот и возникла эта проблемка и приходится обращатся за помощью
|
)
