A voir également:
- Racine d'un polynome avec pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Racine carré en c ✓ - Forum C
- Racine clé usb ✓ - Forum Windows
- Racine carré sur iphone ✓ - Forum iPhone
1 réponse
- où est-ce que tu as calculé Racine1?
- Tu calcules seulement les racines quand le discriminant est positif ou nul. ie qqch comme ça:
- 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.