Comme je l'ai dit dans un précédent topic, il persiste un problème d'affichage pour mes polynômes.....
En voici le code:
Je ne sais pas si ça ppeut vous aider je vous le programme de saisie d'un polynome:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 PROCEDURE AFF_POLY (P : IN POLYNOME) IS --{ e.i.: le polynôme existe } --{ e.f.: on a affiché le polynôme ou bien un message d'erreur} --{ Principe de realisation : On fait un parcours (schéma n°3) sur la liste chaînée de tête T1} --{On regarde si l'élément est positif ou négatif } --{ si celui-ci est négatif on le recopie tel quel, sinon on le recopie, précédé du signe ('+'). --{Ensuite, si le degré est différent de 0, on écrit "x**" suivit de la valeur du degré, sinon on recopie uniquement le coeficient} A : Adresse; BEGIN if P=NULL then Put_line("Aucun polynome n'est enregistre"); Else A:=Adresse(P);Put(A.el.coeff,1);PUT("x^");Put(A.El.degre,1); LOOP A:=A.suiv; EXIT WHEN A=NULL; IF A.EL.Coeff<0 then Put(A.El.coeff,1); ELSE IF A.EL.Coeff>0 THEN Put("+"); Put(A.El.coeff,1); ELSE NULL; End IF; END IF; IF A.El.Degre <0 THEN Put("x^("); Put(A.El.degre,1); Put(")"); ELSE IF A.El.Degre > 0 THEN Put("x^"); Put(A.El.degre,1); ELSE NULL; END iF; END IF; END LOOP; end if; END AFF_POLY;
et le résultat qui s'affiche à l'écran:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 PROCEDURE SAISIE_POLY (P : OUT POLYNOME) IS --{ e.i.: indifferent } --{ e.f.: on a saisi le polynome P } A, T : Adresse; C, D : Integer; BEGIN New_Line; T:= NULL; New_line; Put("Ecrire un nombre non nul:"); Get(C); WHILE C /= 0 LOOP New_line; Put_line("Coeff du coefficient:");Get(C); if C /= 0 then Put_line("Coeff du degre:");Get(D); ALLOUER(A); A.el.coeff:=C; A.El.Degre:=D; A.Suiv:=T; T:=A; end if; END LOOP; P:=Polynome(T); END SAISIE_POLY;
Je vous remercie pour votre aide........
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 ========================= Saisie du premier polynome =========================== Ecrire un nombre non nul:1 Coeff du coefficient: 2 Coeff du degre: 3 Coeff du coefficient: 4 Coeff du degre: 5 Coeff du coefficient: 0 4x^5+2x^3
$ Kleer $
Partager