giải phương trình bậc 2 dạng Ax^ + Bx + c = 0 với các hệ số a;b;c được nhập bất kì từ bàn phím?
1 câu trả lời
program pt_bac2;
uses crt;
var a, b, c, D : real;
x1, x2 : real;
begin
clrscr;
write('nhap cac he so a, b, c :');readln(a, b, c);
D := b*b - 4*a*c;
x1 := (-b - sqrt(D)) / (2 * a);
x2 := -b/a - x1;
writeln('x1 =', x1:6:2,' x2 =', x2:6:2);
readln
end.
