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.Merci d'avance pour votre réponse
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.
Partager