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

Ce site au démarrage

begin process at 2012 05 27 15:32:06

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é :10 135 / 112

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

UN EXAMPLE D'APPLICATION EN CUDA DE L'ALGORITHME DE SCAN POU... par oguzaras

CHIFFREMENT DE VIGENERE par lajouad

ANALYSE SYNTAXIQUE par lajouad

STRUCTURE D'UNE MATRICE PAR LES LISTE LINÉAIRE (NON CONTUGUS... par benzarabel

DESSINER UNE ARBRE BINAIRE( MODE CONSOLE): par benzarabel

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

IMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg

KINECT 1.5 IS OUT ! par Vko

LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc

REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc

SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg

Forum

MATRICE TEMPLATE par hjr2610

SUPERVISION DE LA BATTERIE par romanticgirl

RE : OPENCV ET INTERFACE GRAPHIQUE VISUAL STUDIO par buno

RE : SAC A DOS par hadjkaddour

OPENCV ET INTERFACE GRAPHIQUE VISUAL STUDIO par ssaif

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Realisation d-une version 2 d-un site e-commerce existant sous prestashop-REPUBLICATION
Budget : 5 000€
Recherche Infogerance Serveur Debian Linux
Budget : 1 800€
Creation d-un site vitrine avec MagentO
Budget : 2 000€

Logiciels

sDEVIS-FACTURES vlPRO (8.1.0.3)
SDEVIS-FACTURES VLPRO (8.1.0.3)

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

Cliquez pour télécharger sDEVIS-FACTURES vlPRO
974 Application Server (12.2.4.6)
974 APPLICATION SERVER (12.2.4.6)

Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc...

Cliquez pour télécharger 974 Application Server
vPicture (1.4.2.1)
VPICTURE (1.4.2.1)

Avec vPicture, hébergez vos images facilement et rapidement. vPicture est un utilitaire simple, ...

Cliquez pour télécharger vPicture
Easy-Planning (2.2.1.6)
EASY-PLANNING (2.2.1.6)

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

Cliquez pour télécharger Easy-Planning
COM-BACKUP (2.0)
COM-BACKUP (2.0)

COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...

Cliquez pour télécharger COM-BACKUP