Salut,
j'ai un probl7me dans un exercice qui me demande de resoudre dans R une 2quation de second degré. Le programme fonctionne mais il m'affiche un message d'erreur quand delta < 0
Runtime error 207 at 0001:0137.
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
program exercice6 ;
 
uses wincrt ;
 
var x1,x2,a,b,c,d,x,d1 : real ;
 
begin
writeln('ecrire a :');
readln(a);
writeln('ecrire b :');
readln(b);
writeln('ecrire c :');
readln(c);
d1:=(b*b)-(4*a*c) ;
d:= sqrt(d1) ;
 
if d >=0
 then
  begin
  x1:=(-b-d)/(2*a) ; 
  x2:=(-b+d)/(2*a) ;
  writeln(x1 :0 :3);
  writeln(x2 :0 :3);
  end
else  if d1 < 0
 then  writeln('l''equation n''admet pas de solution');  
 
end.
Merci d'avance pour votre réponse