CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2013 05 23 04:49:22

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

DÉRIVÉ D'1 POLYNOME SIMPLE

Information sur la source

Note :
Aucune note

Catégorie :Maths & Algorithmes

Classé sous :midnight, after-midnight, m-tired, bedroom, m-aaangry Niveau :Débutant Date de création :10/06/2008 Date de mise à jour :10/06/2008 21:26:59 Vu / téléchargé :11 572 / 118

Auteur : temary

Ecrire un message privé

Commentaire sur cette source (8)

Ajouter un commentaire et/ou une note

Description

ce programme permet de calculer la dérivée d'un polynome ..
qui ne doit contenir qu'une seule variable
ici j'ai utilisé une list chainée qui contient 05
champs;
*valeur.
*variable.
*opération arithméthique (+/-).
*symbole de puissance! "^".
*valeur de puissance.

Source

//---------------------------------------------------------------------------
#include <vcl.h>
#include <math.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
typedef struct cel
{
float val;
char var;
char op;
int puiss;
struct cel *suiv;
}list;
int i=10,j=10,power=0,iii=0;
int first_timeX=1,ii=1,tete=1,first_time,not_one=0;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
list *l,*p;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
//**************
p=new list;
p->val=0;
p->puiss=0;
p->var='#';
p->op='#';
p->suiv=NULL;
l=p;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::oneClick(TObject *Sender)
{
if(power==1)
{
p->puiss=1;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(1);
if(tete==1)
{
p->val=1;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
p->val=1+(p->val*i);// i=i*10;
}
}
puis->Enabled=false;
Button21->Enabled=false;
//Button22->Enabled=false;
Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button17Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
p->op='+';
Edit1->Text=Edit1->Text+(p->op);
//*********************
p->suiv=new list;
p=p->suiv;
p->val=0;
p->var='#';
p->op='#';
p->puiss=0;
p->suiv=NULL;
//*********************
puis->Enabled=false;
Button2->Enabled=false;
Button3->Enabled=false;
Button4->Enabled=false;
Button21->Enabled=true;
//Button22->Enabled=true;
zero->Enabled=true;
one->Enabled=true;
two->Enabled=true;
three->Enabled=true;
four->Enabled=true;
five->Enabled=true;
six->Enabled=true;
seven->Enabled=true;
eight->Enabled=true;
nine->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
p->op='-';
Edit1->Text=Edit1->Text+(p->op);
l=p;
//*********************
p->suiv=new list;
p=p->suiv;
p->val=0;
p->var='#';
p->op='#';
p->puiss=0;
p->suiv=NULL;
//*********************
puis->Enabled=false;
Button2->Enabled=false;
Button3->Enabled=false;
Button4->Enabled=false;
zero->Enabled=true;
one->Enabled=true;
two->Enabled=true;
three->Enabled=true;
four->Enabled=true;
five->Enabled=true;
six->Enabled=true;
seven->Enabled=true;
eight->Enabled=true;
nine->Enabled=true;
Button21->Enabled=true;
//Button22->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Edit1->Text=Edit1->Text+('*');
puis->Enabled=false;
Button2->Enabled=false;
Button3->Enabled=false;
Button4->Enabled=false;
zero->Enabled=true;
one->Enabled=true;
two->Enabled=true;
three->Enabled=true;
four->Enabled=true;
five->Enabled=true;
six->Enabled=true;
seven->Enabled=true;
eight->Enabled=true;
nine->Enabled=true;
Button21->Enabled=true;
//Button22->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::zeroClick(TObject *Sender)
{
Edit1->Text=Edit1->Text+IntToStr(0);
if(tete!=1)
p->val=(p->val*i);
Button21->Enabled=false;
//Button22->Enabled=false;
Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::twoClick(TObject *Sender)
{
if(power==1)
{
p->puiss=2;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(2);
not_one=1;//true;
if(tete==1)
{
p->val=2;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
p->val=2+(p->val*i);
}
}
//p->suiv=new list;
puis->Enabled=false;
Button21->Enabled=false;
Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::threeClick(TObject *Sender)
{
if(power==1)
{
p->puiss=3;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(3);
not_one=1;//true;
if(tete==1)
{
p->val=3;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
p->val=3+(p->val*i);
}
}
Button21->Enabled=false;
//Button22->Enabled=false;
Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::fourClick(TObject *Sender)
{
if(power==1)
{
p->puiss=4;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(4);
not_one=1;//true;
if(tete==1)
{
p->val=4;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
p->val=4+(p->val*i);
}
}
puis->Enabled=false;
Button21->Enabled=false;
//Button22->Enabled=false;
Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::fiveClick(TObject *Sender)
{
if(power==1)
{
p->puiss=5;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(5);
not_one=1;//true;
if(tete==1)
{
p->val=5;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
p->val=5+(p->val*i);
}
}
puis->Enabled=false;
Button21->Enabled=false;
//Button22->Enabled=false;
Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sixClick(TObject *Sender)
{
if(power==1)
{
p->puiss=6;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(6);
not_one=1;//true;
if(tete==1)
{
p->val=6;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
p->val=6+(p->val*i);
}
}
Button21->Enabled=false;
//Button22->Enabled=false;
Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sevenClick(TObject *Sender)
{
if(power==1)
{
p->puiss=7;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(7);
not_one=1;//true;
if(tete==1)
{
p->val=7;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
p->val=7+(p->val*i);
}
}
//p->suiv=new list;
puis->Enabled=false;
Button21->Enabled=false;
//Button22->Enabled=false;
Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::eightClick(TObject *Sender)
{
if(power==1)
{
p->puiss=8;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(8);
not_one=1;//true;
if(tete==1)
{
p->val=8;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
p->val=8+(p->val*i);
}
}
puis->Enabled=false;
Button21->Enabled=false;
//Button22->Enabled=false;
Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::nineClick(TObject *Sender)
{
if(power==1)
{
p->puiss=9;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(9);
not_one=1;//true;
if(tete==1)
{
p->val=9;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
p->val=9+(p->val*i);
}
}
puis->Enabled=false;
Button21->Enabled=false;
//Button22->Enabled=false;
Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::puisClick(TObject *Sender)
{
power=1;
Edit1->Text=Edit1->Text+('^');
puis->Enabled=false;
zero->Enabled=true;
one->Enabled=true;
two->Enabled=true;
three->Enabled=true;
four->Enabled=true;
five->Enabled=true;
six->Enabled=true;
seven->Enabled=true;
eight->Enabled=true;
nine->Enabled=true;
Button2->Enabled=false;
Button3->Enabled=false;
Button4->Enabled=false;
Button21->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button21Click(TObject *Sender)
{
first_time=0;
p->var='X';
if(not_one==0) p->val=1;
p->puiss=1;
Edit1->Text=Edit1->Text+(p->var);
puis->Enabled=true;
Button21->Enabled=false;
//Button22->Enabled=false;
Button2->Enabled=true;
Button3->Enabled=true;
zero->Enabled=false;
one->Enabled=false;
two->Enabled=false;
three->Enabled=false;
four->Enabled=false;
five->Enabled=false;
six->Enabled=false;
seven->Enabled=false;
eight->Enabled=false;
nine->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn5Click(TObject *Sender)
{
Panel1->Visible=false;
Image1->Visible=true;
//******************
p=l;
while(p!=NULL)
{
if((p->val!=0)||(p->val!=1))
Edit4->Text=Edit4->Text+(p->val);
//p->var
if(p->var!='#')
Edit4->Text=Edit4->Text+(p->var);
//p->puiss
if((p->puiss!=0)&&(p->puiss!=1))
{
Edit4->Text=Edit4->Text+('^');
Edit4->Text=Edit4->Text+(p->puiss);
}
//p->op
if(p->op!='#')
Edit4->Text=Edit4->Text+(p->op);
//p->suiv
p=p->suiv;
}
//*******************
p=l;
while(p!=NULL)
{
if(p->var=='X')
{
p->val=(p->puiss)*(p->val);
p->puiss=p->puiss-1;
if(p->puiss==0) p->var='#';
}
else
{
p->val=0;
p->var='#';
p->op='#';
p->puiss=0;
}
p=p->suiv;
}
//******-----------Affichage******-----------//
p=l;
while(p!=NULL)
{
//if((p->val!=0)||(p->val!=1))
Edit5->Text=Edit5->Text+(p->val);
if(p->var!='#')
Edit5->Text=Edit5->Text+(p->var);
//p->puiss
if((p->puiss!=0)&&(p->puiss!=1))
{
Edit5->Text=Edit5->Text+('^');
Edit5->Text=Edit5->Text+(p->puiss);
}
//p->op
if(p->op!='#')
{
if((p->suiv->val!=0)||(p->val!=0))
//if(p->suiv->val!=0)
Edit5->Text=Edit5->Text+(p->op);
}
p=p->suiv;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button12Click(TObject *Sender)
{
/*F=Fl;
while(F!=NULL)
{
if(F->puiss!=0)
{
F->val=(F->puiss)*(F->val);
F->puiss=F->puiss-1;
if(F->puiss==0) F->var='#';
F=F->suiv;
}//end : if puiss..
else
{
F->val=0;
F->var='#';
F->op='#';
F->puiss=0;
F=F->suiv;
}
}
*/
//---------------------
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image4Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image8Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------

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

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

#include "Unit1.h"
#include "Unit2.h"
typedef struct cel
{
float val;
char var;
char op;
int puiss;
struct cel *suiv;
}list;
int i=10,j=10,power=0,iii=0;
int first_timeX=1,ii=1,tete=1,first_time,not_one=0;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
list *l,*p;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
//**************
p=new list;
p->val=0;
p->puiss=0;
p->var='#';
p->op='#';
p->suiv=NULL;
l=p;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::oneClick(TObject *Sender)
{
if(power==1)
    {
p->puiss=1;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
    }
else
    {
Edit1->Text=Edit1->Text+IntToStr(1);
  if(tete==1)
      {
p->val=1;
tete=0;
i=10;
j=10;
first_timeX=0;
      }
  else
      {
if(first_timeX==0)
  p->val=1+(p->val*i);//  i=i*10;
      }

    }
puis->Enabled=false;
Button21->Enabled=false;
//Button22->Enabled=false;

Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button17Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
p->op='+';
Edit1->Text=Edit1->Text+(p->op);

//*********************
p->suiv=new list;
p=p->suiv;
p->val=0;
p->var='#';
p->op='#';
p->puiss=0;
p->suiv=NULL;
//*********************

puis->Enabled=false;
Button2->Enabled=false;
Button3->Enabled=false;
Button4->Enabled=false;

Button21->Enabled=true;
//Button22->Enabled=true;

zero->Enabled=true;
one->Enabled=true;
two->Enabled=true;
three->Enabled=true;
four->Enabled=true;
five->Enabled=true;
six->Enabled=true;
seven->Enabled=true;
eight->Enabled=true;
nine->Enabled=true;
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button3Click(TObject *Sender)
{
p->op='-';
Edit1->Text=Edit1->Text+(p->op);
l=p;
//*********************
p->suiv=new list;
p=p->suiv;
p->val=0;
p->var='#';
p->op='#';
p->puiss=0;
p->suiv=NULL;
//*********************


puis->Enabled=false;
Button2->Enabled=false;
Button3->Enabled=false;
Button4->Enabled=false;

zero->Enabled=true;
one->Enabled=true;
two->Enabled=true;
three->Enabled=true;
four->Enabled=true;
five->Enabled=true;
six->Enabled=true;
seven->Enabled=true;
eight->Enabled=true;
nine->Enabled=true;

Button21->Enabled=true;
//Button22->Enabled=true;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
Edit1->Text=Edit1->Text+('*');
puis->Enabled=false;

Button2->Enabled=false;
Button3->Enabled=false;
Button4->Enabled=false;

zero->Enabled=true;
one->Enabled=true;
two->Enabled=true;
three->Enabled=true;
four->Enabled=true;
five->Enabled=true;
six->Enabled=true;
seven->Enabled=true;
eight->Enabled=true;
nine->Enabled=true;


Button21->Enabled=true;
//Button22->Enabled=true;

}
//---------------------------------------------------------------------------


void __fastcall TForm1::zeroClick(TObject *Sender)
{
Edit1->Text=Edit1->Text+IntToStr(0);
if(tete!=1)
  p->val=(p->val*i);

Button21->Enabled=false;
//Button22->Enabled=false;

Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::twoClick(TObject *Sender)
{
if(power==1)
{
p->puiss=2;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(2);
not_one=1;//true;
if(tete==1)
{
p->val=2;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
  p->val=2+(p->val*i);
}

}
//p->suiv=new list;
puis->Enabled=false;

Button21->Enabled=false;

Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::threeClick(TObject *Sender)
{
if(power==1)
{
p->puiss=3;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(3);
not_one=1;//true;
if(tete==1)
{
p->val=3;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
  p->val=3+(p->val*i);
}

}

Button21->Enabled=false;
//Button22->Enabled=false;

Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::fourClick(TObject *Sender)
{
if(power==1)
{
p->puiss=4;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(4);
not_one=1;//true;
if(tete==1)
{
p->val=4;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
  p->val=4+(p->val*i);
}

}
puis->Enabled=false;

Button21->Enabled=false;
//Button22->Enabled=false;

Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::fiveClick(TObject *Sender)
{
if(power==1)
{
p->puiss=5;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(5);
not_one=1;//true;
if(tete==1)
{
p->val=5;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
  p->val=5+(p->val*i);
}

}
puis->Enabled=false;
Button21->Enabled=false;
//Button22->Enabled=false;

Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::sixClick(TObject *Sender)
{
if(power==1)
{
p->puiss=6;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(6);
not_one=1;//true;
if(tete==1)
{
p->val=6;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
  p->val=6+(p->val*i);
}

}
Button21->Enabled=false;
//Button22->Enabled=false;

Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::sevenClick(TObject *Sender)
{
if(power==1)
{
p->puiss=7;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(7);
not_one=1;//true;
if(tete==1)
{
p->val=7;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
  p->val=7+(p->val*i);
}

}

//p->suiv=new list;
puis->Enabled=false;
Button21->Enabled=false;
//Button22->Enabled=false;

Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;


}
//---------------------------------------------------------------------------

void __fastcall TForm1::eightClick(TObject *Sender)
{
if(power==1)
{
p->puiss=8;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(8);
not_one=1;//true;
if(tete==1)
{
p->val=8;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
  p->val=8+(p->val*i);
}

}
puis->Enabled=false;

Button21->Enabled=false;
//Button22->Enabled=false;

Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::nineClick(TObject *Sender)
{
if(power==1)
{
p->puiss=9;
Edit1->Text=Edit1->Text+IntToStr(p->puiss);
power=0;
}
else
{
Edit1->Text=Edit1->Text+IntToStr(9);
not_one=1;//true;
if(tete==1)
{
p->val=9;
tete=0;
i=10;
j=10;
first_timeX=0;
}
else
{
if(first_timeX==0)
  p->val=9+(p->val*i);
}

}
puis->Enabled=false;

Button21->Enabled=false;
//Button22->Enabled=false;

Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;

}
//---------------------------------------------------------------------------



void __fastcall TForm1::puisClick(TObject *Sender)
{
power=1;

Edit1->Text=Edit1->Text+('^');
puis->Enabled=false;

zero->Enabled=true;
one->Enabled=true;
two->Enabled=true;
three->Enabled=true;
four->Enabled=true;
five->Enabled=true;
six->Enabled=true;
seven->Enabled=true;
eight->Enabled=true;
nine->Enabled=true;

Button2->Enabled=false;
Button3->Enabled=false;
Button4->Enabled=false;

Button21->Enabled=false;
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Button21Click(TObject *Sender)
{

first_time=0;
p->var='X';
if(not_one==0) p->val=1;
p->puiss=1;
Edit1->Text=Edit1->Text+(p->var);


puis->Enabled=true;
Button21->Enabled=false;
//Button22->Enabled=false;


Button2->Enabled=true;
Button3->Enabled=true;

zero->Enabled=false;
one->Enabled=false;
two->Enabled=false;
three->Enabled=false;
four->Enabled=false;
five->Enabled=false;
six->Enabled=false;
seven->Enabled=false;
eight->Enabled=false;
nine->Enabled=false;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn5Click(TObject *Sender)
{

Panel1->Visible=false;
Image1->Visible=true;
//******************
 p=l;
while(p!=NULL)
{
if((p->val!=0)||(p->val!=1))
Edit4->Text=Edit4->Text+(p->val);
//p->var
if(p->var!='#')
Edit4->Text=Edit4->Text+(p->var);
//p->puiss
if((p->puiss!=0)&&(p->puiss!=1))
{
Edit4->Text=Edit4->Text+('^');
Edit4->Text=Edit4->Text+(p->puiss);
}
//p->op
if(p->op!='#')
Edit4->Text=Edit4->Text+(p->op);
//p->suiv
p=p->suiv;
}
//*******************
p=l;
while(p!=NULL)
 {
   if(p->var=='X')
           {
p->val=(p->puiss)*(p->val);
p->puiss=p->puiss-1;
if(p->puiss==0) p->var='#';
           }
   else
           {
p->val=0;
p->var='#';
p->op='#';
p->puiss=0;
           }
   p=p->suiv;
 }
//******-----------Affichage******-----------//
p=l;
while(p!=NULL)
 {
//if((p->val!=0)||(p->val!=1))
 Edit5->Text=Edit5->Text+(p->val);
if(p->var!='#')
 Edit5->Text=Edit5->Text+(p->var);
//p->puiss
if((p->puiss!=0)&&(p->puiss!=1))
    {
Edit5->Text=Edit5->Text+('^');
Edit5->Text=Edit5->Text+(p->puiss);
    }
//p->op
if(p->op!='#')
   {
if((p->suiv->val!=0)||(p->val!=0))
//if(p->suiv->val!=0)
Edit5->Text=Edit5->Text+(p->op);
   }
p=p->suiv;
 }

}
//---------------------------------------------------------------------------






















void __fastcall TForm1::Button12Click(TObject *Sender)
{
/*F=Fl;
while(F!=NULL)
{
if(F->puiss!=0)
   {
F->val=(F->puiss)*(F->val);
F->puiss=F->puiss-1;
if(F->puiss==0) F->var='#';
   F=F->suiv;
   }//end : if puiss..
else
{
F->val=0;
F->var='#';
F->op='#';
F->puiss=0;
   F=F->suiv;
}
}
*/
//---------------------

}
//---------------------------------------------------------------------------






void __fastcall TForm1::Image4Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Image8Click(TObject *Sender)
{
Close();

        
}
//---------------------------------------------------------------------------

Conclusion

svp, n'oubliez pas d'envoyer vos commantaires..
ah oui avant de faire;
il exist peut etre 02 petits défaux
-le polynome doit etre écrit suivant l'ordre décroissant de la puissance.
-eeet, vous ne pouvez pas écrire 02 parties du polynome de meme puissance.
"Arigato"

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

deriv
- fac.jpg 12 678 octets
- Project1.bpr3 930 octets
- Project1.cpp 1 169 octets
- Unit1.cpp 11 753 octets
- Unit1.h 2 657 octets
- Unit2.cpp 831 octets
- Unit2.h 1 173 octets

Télécharger le zip

Historique

10 juin 2008 21:26:39 :: erreur
10 juin 2008 21:26:59 :: erreur

Sources du même auteur

ELHMAER'S THREADS CREATOR.

Toutes les sources de temary

Sources de la même categorie

FONCTIONS EN ACTION par ringo73

CALCUL DE PI AVEC LA BIBLIOTHÈQUE GMP par lann

MAGEO3D, POUR GÉRER LES POINTS ET LES VECTEURS DE L'ESPACE R... par pgl10

ALGORITHME ACO TOILE D'ARAIGNÉE par RyBeN

TRAITEMENT D'IMAGE EN C++, QT par Akham75

Toutes les sources de la catégorie Maths & Algorithmes

Commentaires et avis

Commentaire de omnia le 10/06/2008 21:15:26

un conseil réédite le poste les 50000 retour a la ligne de la description c'est n'importe quoi

et dans ton code pareil.

ensuite lorsque l'on poste un projet on ne met pas les fichiers de compilation *.dfm (beaucoup trop gros et servent à rien)

sinon les n'est pas très beau (vue que objet + borland)
et quasiment pas commenté

...

bon codage

Commentaire de temary le 10/06/2008 21:30:31

merci pour ça

Commentaire de onacluv le 11/06/2008 13:39:57

Arrrg !
Ton code est inmangeable !
Où sont les commentaires ?

Commentaire de temary le 11/06/2008 15:38:36

goumé....
je les ai trouvés si lassant que je
n'ai pas pu les rédiger.
toute fois je ferrai mon possible de
faire ce travail ultérièrement.

merci pour votre participation

Commentaire de JPR74 le 16/06/2008 10:32:03

Bonjour,

   Votre programme est sans doute intéressant mais, dans 6 mois, vous ne saurez plus vraiment ce qu'il fait car il n'y a aucun commentaire !
   Dans ce cas, ne pas mettre la source à disposition des lecteurs car cela devient inutilisable, sans oublier le manque de cadrages (indentations) corrects (comme dans beaucoup de programmes proposés) qui rend la lecture désagréable.
   Un bon programme doit être opérationnel, bien écrit, maintenable et agréable à lire !
   Les commentaires sont indispensables, y compris pour soi même, pour y voir plus clair et pouvoir envisager des améliorations plus tard !
   Cela devrait faire partie de la charte, de même qu'une bonne orthographe dans les textes de présentation et dans les commentaires ... quand il y en a !
   Mais on peut vous pardonner puisque vous êtes débutant et vous tenterez sans doute d'améliorer votre écriture, quel que soit le produit utilisé...

Commentaire de FREMYCOMPANY le 17/06/2008 18:44:37

La dérivée d'un polynome = Somme des dérivées des monomes (a*x^n) le composant.

La dérivée d'un monome = n*a*x^(n-1)

N'est-ce pas plus simple à comprendre ici en deux lignes qu'en lisant ton code ?

==> Manque d'objets et de fonctions au nom clair
_______________________________________________

J'ai moi-même réalisé le même genre de truc dans un cadre plus étendu, et je te conseille le système de classe suivant :

Polynom [ Monom[] monoms; String toString(); Polynom derivatedPolynom(); Polynom toOrdonatedPolynom() ]
Monom [ Double a; Double n; String toString() ]

REM :
- toOrdonatedPolynom : Retourne un polynome egal au premier dans lequel tous les monomes semblables (de même n) ont été regroupés et placés dans l'ordre décroissant dans le tableau "monoms".
- toString renvoie une représentation de l'objet sous forme lisible humainement
- Tu peux bien sûr étendre l'objet Polynom et Monom pour les faire correspondre à tes besoins (par exemple ajouter un fonction statique Polynom parse(String) qui permet et générer un polynome depuis une chaine de caractère.

Commentaire de verdy_p le 18/06/2008 05:59:05

bof, un polynome se représente dans un simple vecteur par ses coordonnées dans la base implicite (1, x, x^2, x^3, ... x^n): un tableau numérique à une seule dimension suffit.

Rappel: l'espace des polynomes est un espace vectoriel, tout polynome a donc des coordonnées définies dans un espace de dimension 1, qui est celui de chacun de ses monomes, autrement dit un simple nombre réel s'il s'agit d'un polynome des réels vers les réels.

Exemples:
* le polynome 4 correspondrait au tableau:
double x[] = {4};
* le polynome 3·x^7 - 12·x^2 + 10.5·x correspondrait au tableau:
double x[] = {0, 10.5, -12, 0, 0, 0, 0, 3};
Pour faciliter la gestion des polynomes de degré quelconque, on a intérêt à n'y stocker que les coefficients utiles (et supprimer les coefficients d'indice supérieur au degré du polymnome, qui sont tous nuls). Du coup la représentation avec un Vector<double> est aussi bien. On emploiera donc la généricité des Vector<T>... dont les instances contiennent la valeur du degré maximum du polynome, et un tableau interne contenant les coefficients.

Du coup l'algorithme pour dériver le polynome (ou aussi l'intégrer en fournissant le coeficient de degré zero arbitraire qu'on peut fixer à zéro) est on ne peut plus simple: il suffit de créer un vecteur dont le degré est réduit de 1 (ou aumenté de 1 si on intègre), puis de décaler d'une position dans le vecteur cible les coefficients du vecteur source après les avoir multiplié par leur position dans le vecteur source (ou divisé par leur position dans le vecteur cible, sachant que cette position indicielle ne peut alors pas être nulle et vaut au moins 1).

C'est de l'algèbre linéaire très élémentaire... Faut-il autant de lignes de code et une représentation aussi compliquée (et lente et inefficace) gérer chaque polynome dans une liste chainée??? J'ai de gros doûte sur la pertinence et la réutilisabilité de ce code.

Commentaire de FREMYCOMPANY le 18/06/2008 13:46:48

@VERDI_P : Oui, mais si tu dois parser un polynome où il peut y avoir des termes de même degré, et que tu veux conserver l'ordre des termes et leur duplicité, tu dois passer par un tableau de structure monome. Surtout que mon programme doit enfait aussi gérer les sommes de "bases" différentes ("x", "y", "z", "sin(x)", ...).

Sans quoi tu as bien raison [;)]

Fremy

Ajouter un commentaire

Nos sponsors

Derniers Blogs

SIMULER FACILEMENT L'ENVOI DE MAIL par JeremyJeanson

PROCDUMP 6.0 : SUPPORT DU FILTRAGE SUR MESSAGES D'EXCEPTIONS .NET, DES FILTRES MULTIPLES ET DU CIBLAGE PAR NOM DE SERVICE par coq

VOTEZ POUR LE TOP 10 DES INFLUENCEURS SHAREPOINT FRANCOPHONES ! par Patrick Guimonet

[CONF'SHAREPOINT] DERNIER RAPPEL ! :-) par Patrick Guimonet

[ #SHAREPOINT 2013 ] LES MODèLES DE SITES STANDARDS. par Patrick Guimonet

Forum

DRIVER POUR IRF640 par ninoub01

QUESTION par wouroudkouka

PB PACMAN C++ par garfield95

ERREUR DE LIEN VSC++ par caracteriel

EQUILIBRAGE DE CHARGE DANS AOMDV par bcmboss

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

site internet duplicable
Budget : 15 900€
Amelioration site de vente en ligne sous Prestashop
Budget : 1 800€
Amelioration outils de gestion de production Excel
Budget : 4 500€

Logiciels

Easy-Planning (4.5.0.11)
EASY-PLANNING (4.5.0.11)

Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté a...

Cliquez pour télécharger Easy-Planning
CVEasy (3.1.0.51)
CVEASY (3.1.0.51)

PHMSD-CVEasy est un logiciel d'aide à la rédaction de CV d'une simplicité déconcertante. PHMSD-C...

Cliquez pour télécharger CVEasy
LettresFaciles 2011 (8.6.0.31)
LETTRESFACILES 2011 (8.6.0.31)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011
sDEVIS-FACTURES vlPRO (8.4.2.62)
SDEVIS-FACTURES VLPRO (8.4.2.62)

sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa...

Cliquez pour télécharger sDEVIS-FACTURES vlPRO
Devis-Factures PHMSD (2.1.0.11)
DEVIS-FACTURES PHMSD (2.1.0.11)

Configuration minimale Nécessite Windows™ 2000, XP, Windows 7, 8, Vista (Service Pack à...

Cliquez pour télécharger Devis-Factures PHMSD