Addition de deux polynômes

Version imprimable

Salut à tous !

J'ai besoin d'une fonction qui fait l'addition de 2 polynomes (representés avec les listes).
Voilà une partie du programme que j'ai fait.
Tout marche bien, à part la fonction ADD2 ..

Aidez-moi svp !!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
program ccpolynome;
uses crt;
type polynome=^monome;
     monome=record
          puiss:integer;
          fac:integer;
          suiv,prec:polynome;
          end;
var nbe1,nbe2:integer;
       p1,p2,p3:polynome;
 
 
 
{procedure pour la creation du polynome}
procedure creation(var tete:polynome;nbe:integer);
var i:integer;
l:polynome;
begin
for i:=1 to nbe do begin
                 new(l);
                 write('Le facteur du ',i, 'eme element svp est: ');
                 read(l^.fac);
                 write('La puissance du ',i,'eme element svp est: ');
                 read(l^.puiss);
                 l^.suiv:=tete;
				 tete^.prec:=l;
                 tete:=l;
                 end;
 
end;
 
{procedure pour afficher le polynome cree}
procedure affichage (tete:polynome);
var q:polynome;
begin
  q:=tete;
  while q^.suiv<>nil do q:=q^.suiv;
  writeln;
  write('le polynome= ');
  while (q<>nil) do begin
    write(' + ',q^.fac,'x^',q^.puiss);
    q:=q^.prec;
  end;
end;
 
{fonction puissance}
function puissance(n:integer;p:integer):integer;
var s,cpt:integer;
begin
cpt:=0;s:=1;
while (cpt<p) do begin
                     s:=s*n;
                     cpt:=cpt+1;
                     end;
puissance:=s;
end;
 
 
{fonction SOMME2}
function add2(var p1:polynome;var p2:polynome):polynome;
var q1,q2,q3,y,p3:polynome;
    e,exc:integer;
    exist:boolean;
begin
  q3:=p1;
  while(q3^.suiv<>nil)do q3:=q3^.suiv;
  q3^.suiv:=p2;
  p2^.prec:=q3;
  q1:=p1;
  q2:=q1^.suiv;
  exist:=false;
  e:=0;
  exc:=0;
  while((q1<>nil)and(q2^.suiv<>nil))do begin
    new(y);
    y^.puiss:=q1^.puiss;
    while(q2<>nil)do begin
      if(q2^.puiss=y^.puiss)then begin
        exist:=true;
        e:=(q2^.fac)+e;
        if exist=true then exc:=exc+1;
      end;
      q2:=q2^.suiv;
    end;
    if (exc>0)then y^.fac:=(q1^.fac)+e
      else y^.fac:=q1^.fac;
    e:=0;exc:=0;exist:=false;
    p3^.prec:=y;
    y^.suiv:=p3;
    p3:=y;
    q1:=q1^.suiv;
    q2:=q1^.suiv;
  end;
  p3:=add2(p1,p2);
end;
 
 
begin
  clrscr;
  write('le nombre d`elemets du 1er polynome est: ');
  read(nbe1);
  creation(p1,nbe1); 
  affichage(p1);
  writeln;
  write('le nombre d`elemets du 2eme  polynome est: ');
  read(nbe2);
  creation(p2,nbe2);
  affichage(p2);
  writeln;
  p3:=add1(p1,p2);
  writeln('le resultat de laddition de polynomes est= ');
  affichage(p3);
  readln;
  readln
end.

01/11/2011, 16h10
droggo

Mai,

En formatant correctement ton code, tu nous faciliterais la vie. :)
01/11/2011, 17h43
mohsenuss91

Citation:

Envoyé par droggo

Mai,

En formatant correctement ton code, tu nous faciliterais la vie. :)

Dsl, j'ai pas comrpi ce que tu voulais dire!
01/11/2011, 19h08
droggo

Moe,

En indentant correctement, de manière régulière et cohérente, pas comme tu l'as fait, à seulement quelques endroits (et pas vraiment proprement, d'ailleurs).
04/11/2011, 12h04
mohsenuss91

je viens de terminer mon programme ..merci a tous :ccool:

Citation:

Envoyé par mohsenuss91

je viens de terminer mon programme ..merci a tous :ccool:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
program ccpolynome;
uses crt;
type polynome=^monome;
     monome=record
          puiss:integer;
          fac:integer;
          suiv,prec:polynome;
          end;
var nbe1,nbe2:integer;
       p1,p2,p3:polynome;
 
 
 
{procedure pour la creation du polynome}
procedure creation(var tete:polynome;nbe:integer);
var i:integer;
l:polynome;
begin
for i:=1 to nbe do begin
                 new(l);
                 write('Le facteur du ',i, 'eme element svp est: ');
                 read(l^.fac);
                 write('La puissance du ',i,'eme element svp est: ');
                 read(l^.puiss);
                 l^.suiv:=tete;
				 tete^.prec:=l;
                 tete:=l;
                 end;
 
end;
{procedure pour afficher le polynome cree}
procedure affichage (tete:polynome);
var q:polynome;
begin
q:=tete;
while q^.suiv<>nil do q:=q^.suiv;
writeln;
write('le polynome= ');
while (q<>nil) do begin
write(' + ',q^.fac,'x^',q^.puiss);
q:=q^.prec;
end;
end;
 
{fonction puissance}
function puissance(n:integer;p:integer):integer;
var s,cpt:integer;
 
begin
cpt:=0;s:=1;
while (cpt<p) do begin
                     s:=s*n;
                     cpt:=cpt+1;
                     end;
puissance:=s;
end;
{SOMME3}
function add(var p1:polynome;var p2:polynome):polynome;
var q1,q2,p,r:polynome;
begin
q1:=p1;
while(q1^.suiv<>nil)do q1:=q1^.suiv;
q1^.suiv:=p2;
p2^.prec:=q1;
q1:=p1;
q2:=q1^.suiv;
while(q1<>nil)do begin
while(q2<>nil)do begin
if(q1^.puiss<>q2^.puiss)then q2:=q2^.suiv
else begin
r:=q2;
q2:=r^.suiv;
p:=r^.prec;
q1^.fac:=(q1^.fac)+(r^.fac);
q2^.prec:=p;
p^.suiv:=q2;
dispose(r);
end;
end;
q1:=q1^.suiv;
q2:=q1^.suiv;
end;
add:=p1;
end;
 
begin
clrscr;
write('le nombre d`elemets du 1er polynome est: ');
read(nbe1);
creation(p1,nbe1); 
affichage(p1);
writeln;
write('le nombre d`elemets du 2eme  polynome est: ');
read(nbe2);
creation(p2,nbe2);
affichage(p2);
writeln;
p3:=add(p1,p2);
writeln('le resultat de laddition de polynomes est= ');
affichage(p3);
readln;
readln
end.

Hoa,

Voilà ton programme avec une mise en forme plus correcte:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
program ccpolynome;
 
uses crt;
 
type 
  polynome = ^monome;
  monome = record
    puiss: Integer;
    fac : Integer;
    suiv, prec : polynome;
  end;
var 
  nbe1, nbe2 : Integer;
  p1, p2, p3 : polynome;
 
  {procedure pour la creation du polynome}
procedure creation(var tete : polynome; nbe : Integer);
var 
  i : Integer;
  l : polynome;
begin
  for i := 1 to nbe do 
  begin
    New(l);
    Write('Le facteur du ', i, 'eme element svp est: ');
    Read(l^.fac);
    Write('La puissance du ', i, 'eme element svp est: ');
    Read(l^.puiss);
    l^.suiv := tete;
    tete^.prec := l;
    tete := l;
  end;
end;
 
{procedure pour afficher le polynome cree}
procedure affichage(tete : polynome);
var 
  q : polynome;
begin
  q := tete;
  while q^.suiv <> nil do 
    q := q^.suiv;
  Writeln;
  Write('le polynome= ');
  while (q <> nil) do 
  begin
    Write(' + ', q^.fac, 'x^', q^.puiss);
    q := q^.prec;
  end;
end;
 
{fonction puissance}
function puissance(n : Integer; p : Integer): Integer;
var 
  s, cpt : Integer; 
begin
  cpt := 0;
  s := 1;
  while (cpt < p) do 
  begin
    s := s * n;
    cpt := cpt + 1;
  end;
  puissance := s;
end;
 
{SOMME3}
function add(var p1 : polynome; var p2 : polynome): polynome;
var 
  q1, q2, p, r : polynome;
begin
  q1 := p1;
  while (q1^.suiv <> nil) do 
    q1 := q1^.suiv;
  q1^.suiv := p2;
  p2^.prec := q1;
  q1 := p1;
  q2 := q1^.suiv;
  while (q1 <> nil) do 
  begin
    while (q2 <> nil) do 
    begin
      if (q1^.puiss <> q2^.puiss) then 
        q2 := q2^.suiv
      else 
      begin
        r := q2;
        q2 := r^.suiv;
        p := r^.prec;
        q1^.fac := (q1^.fac) + (r^.fac);
        q2^.prec := p;
        p^.suiv := q2;
        Dispose(r);
      end;
    end;
    q1 := q1^.suiv;
    q2 := q1^.suiv;
  end;
  add := p1;
end;
 
begin
  clrscr;
  Write('le nombre d`elemets du 1er polynome est: ');
  Read(nbe1);
  creation(p1, nbe1); 
  affichage(p1);
  Writeln;
  Write('le nombre d`elemets du 2eme  polynome est: ');
  Read(nbe2);
  creation(p2, nbe2);
  affichage(p2);
  Writeln;
  p3 := add(p1, p2);
  Writeln('le resultat de laddition de polynomes est= ');
  affichage(p3);
  Readln;
  Readln
end.

Au passage : des commentaires comme

Code:

1
2
  {procedure pour la creation du polynome}
procedure creation(var tete : polynome; nbe : Integer);

Code:

1
2
{procedure pour afficher le polynome cree}
procedure affichage(tete : polynome);

ne servent à rien, le nom des fonctions/procédures suffiant à comprendre de quoi il s'agit (et c'est un très bon point :)).

Et pourquoi 2 readln pour terminer ?

Code:

1
2
3
  Readln;
  Readln
end.