dev-pascal

موضوع: ***dev-pascal*** الثلاثاء يناير 11, 2011 12:44 pm

Bonjour ! Je suis débutant et j'ai quelques exercices à rendre dont un qui me cause quelques soucis !
Il s'agit de résoudre un polynome du second degrés, jusqu'ici tout va
bien, or il me faut également les solutions complexes et je commence à
saturer d'idées !
Voici mon travail :

program Exercice4;
var A, B, C:Integer;
Discriminant :real;
Racine1, Racine2: real;
Racine3, Racine4: real;

Const i;

begin
Writeln('Saisir les valeurs de A,B,C (A est différent de 0) :');
Readln (A,B,C);
Discriminant:=(B*B)-(4*A*C);

if Discriminant < 0
then
Begin
i*i=(-1);
Racine3:=((-B) - i*sqrt(abs(Discriminant)))/(2*A);
Racine4:=((-B) + i*sqrt(abs(Discriminant)))/(2*A);
Writeln ('Aucune racines dans R, mais deux racines dans C :', 'R1 =', Racine3, ' et ', 'R2=', Racine4);
end;

if Discriminant = 0
then Writeln ('il y a une racine double dans R:', -B/2*A);
if Discriminant >0
then
Begin
Racine1:=((-B) - sqrt(Discriminant))/(2*A);
Racine2:=((-B) + sqrt(Discriminant))/(2*A);
Writeln('il y a deux racines :', 'R1 =',Racine1, ' et ', 'R2 =',Racine2);
End;
readln;

end.

***dev-pascal***

dev-pascal