Pascal
iceberglca
Messages postés
2
Statut
Membre
-
iceberglca Messages postés 2 Statut Membre -
iceberglca Messages postés 2 Statut Membre -
Bonjour,
les ga je ne sais paas qu'est ce qui colle pas avec mon programme je veux pleurer.
program trinome;
const EPS = 1E-10;
var
a, b, c : real;
delta : real;
x1, x2 : real;
function sign(D : real): integer;
begin
if D > 0.0 then
sign := +1
else if D < 0.0 then
sign := -1
else
sign := 0
end; {sign}
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);
delta := b*b - 4*a*c;
if delta >= 0 then
begin
x1 := (-b - sign(b) * sqr(delta))/(2.0*a);
x2 := c/(a*x1);
if delta < EPS then
writeln('la racine double est : x = ', x1:8:4)
else
writeln('les racines réelles sont x1 = ', x1:8:4, ' et x2 = ', x2:8:4)
end
else
writeln('pas de racines réelles.')
Readln;
end.
les ga je ne sais paas qu'est ce qui colle pas avec mon programme je veux pleurer.
program trinome;
const EPS = 1E-10;
var
a, b, c : real;
delta : real;
x1, x2 : real;
function sign(D : real): integer;
begin
if D > 0.0 then
sign := +1
else if D < 0.0 then
sign := -1
else
sign := 0
end; {sign}
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);
delta := b*b - 4*a*c;
if delta >= 0 then
begin
x1 := (-b - sign(b) * sqr(delta))/(2.0*a);
x2 := c/(a*x1);
if delta < EPS then
writeln('la racine double est : x = ', x1:8:4)
else
writeln('les racines réelles sont x1 = ', x1:8:4, ' et x2 = ', x2:8:4)
end
else
writeln('pas de racines réelles.')
Readln;
end.
1 réponse
-
excuzzé c'est plutot celui ci
PROGRAM discriminant;
VAR
a,b,c, sol, sol1, sol2: INTEGER;
sqrt:REAL;
delta: REAL;
v: REAL;
Begin
Writeln('veuillez saisir le nombre a');
Readln(a);
Writeln('veuillez saisir le nombre b');
Readln(b);
Writeln('veuillez saisir le nombre c');
Readln(c);
(*calcul du discriminant*)
delta:= b*b-4*(a*c);
v:= sqrt(discr);
(*affichage du r'sultat*)
Writeln(' le discriminant de ',a,'x^2+',b,'x^1+',c,'est:',delta);
If delta<0 then
Begin
Writeln('comme celui ci est n'gatif donc on ne peut pas le d'terminer');
Readln;
End
Else
(*affichons les solutions*)
if delta=0 then
Begin
Writeln('comme celui ci est nulle donc la solution est:X=',sol1);
sol1:= -b div (2*a);
readln;
end
Else
If delta>0 then
Begin
Writeln('les solutions sont:X1=', sol2);
Sol2:= -b -v / 2* a;
End
end.
