Téléchargement
illégal
Posez votre question Signaler

Racine d'un polynome avec pascal

nabbla 704Messages postés 25 août 2003Date d'inscription - Dernière réponse le 24 juin 2004 à 20:54
voila je cherche a calculer les racine d'un polynome de second degres avec pascal, voila le code :
PROGRAM Racines;

VAR
A,B,C : INTEGER;
Discriminant :REAL;
Racine1, Racine2, Racine3 : REAL;


BEGIN
Write('donnez les valeurs de A,B,C :');
Readln (A,B,C);
Discriminant := (B*B)-(4*A*C);
Racine2 :=( (-B) - sqrt(Discriminant) )/ (2*A);
Racine3 :=( (-B) + sqrt(Discriminant) )/ (2*A);

IF Discriminant < 0
THEN Writeln ('pas de racines dans R');

IF Discriminant = 0
THEN Writeln ('il y a une seule racine :',Racine1);
IF Discriminant >0
THEN Writeln('il y a deux racines :', 'R1 =',Racine2, 'et', 'R2 =',Racine3);

END.

tout marche bien si le discriminant est supérieur a 0, mais dans le cas ou il est inférieur à 0, à l'éxecution j'ai un message d'erreur :
" error 207 : invalid floating poin operation"
et je vois pas tros ce que cala signifie?
Lire la suite 

Racine d'un polynome avec pascal »

1 réponses
Réponse
+0
moins plus
Lita 24 juin 2004 à 20:54
- où est-ce que tu as calculé Racine1?
- Tu calcules seulement les racines quand le discriminant est positif ou nul. ie qqch comme ça: 


BEGIN
  Writeln('donnez les valeurs de A,B,C :');
  Readln (A,B,C);
  Discriminant := (B*B)-(4*A*C);


  IF Discriminant < 0
  THEN Writeln ('pas de racines dans R');

  IF Discriminant = 0
  THEN Writeln ('il y a une seule racine :', -B/2*A);
  IF Discriminant >0
  THEN 
      Begin
        Racine2 :=( (-B) - sqrt(Discriminant) )/ (2*A);
        Racine3 :=( (-B) + sqrt(Discriminant) )/ (2*A);
        Writeln('il y a deux racines :', 'R1 =',Racine2, 'et', 'R2 =',Racine3);
      End;

END.

Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « racine d'un polynome avec pascal » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?