Question

VCT gpt ax^2 + bx + c = 0 (a,b,c nhập từ bàn phím)

Answer 1

Var a,b,c,d,x1,x2:real;

Begin

Write('a = ');readln(a);

Write('b = ');readln(b);

Write('c = ');readln(c);

d:=b*b-4*a*c;

If d < 0 then write('phuong trinh vo nghiem');

If d = 0 then write('phuong trinh co nghiem kep x1 = x2 = ',-b/2a:10:2);

If d > 0 then

Begin

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a);

Writeln('Phuong trinh co hai nghiem phan biet');

Write('x1 = ',x1:10:2);

Write('  x2 = ',x2:10:2);

End;

Readln;

End.