Salut !
Je veux faire un programme pour résoudre une equation du second degré !
Le programme marche 5/5 mais quand je vérifie les racines trouvées ça ne marche pas
Voilà mon code et merci d'avance
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
program secDegr;
uses wincrt ;
var a,b,c,x1,x2,cap,cap2,del:real ;
begin
 
writeln('entrez a');
readln(a);
writeln('entrez b');
readln(b);
writeln('entrez c');
readln(c);
del:=(b*b)-4*a*c ;
cap:=a+b+c;
cap2:=a-b+c;
x1 :=-(b-sqr(del))/ 2*a;
x2 :=-(b+sqr(del))/ 2*a;
 
if
cap=0 then writeln('X1 = 1 et X2 =',c/a:2:0)
else if
cap2=0 then writeln('X1 = -1 et X2 =',-c/a:2:0)
else if del>0 then
writeln('le racine x1 est : ',x1,' et le racine x2 est : ',x2:2:0)  
else if del=0 then
writeln('(admis une racine double tel que x1=x2=',x1:2:0)
else
writeln('aucune racine possible ');
 
end.