Viết thuật toán cho bài toán Giải phương trình bật 2 ax^2 + b +c = 0 Input? Output? Liệt kê? Vẽ sơ đồ?

input: a, b, c

output: x

program oken;
uses crt;
var a,b,c:  longint;
    x: real;
begin
    clrscr;
    write('Nhap cac so a,b,c: '); readln(a,b,c);
    writeln(a,'*x^2+',b,'+',c,'=0');
    x:=sqrt(abs((-b-c))/a);
    writeln('Ket qua: ',x:0:4);
    readln;
end.

* Xác định bài toán :

- Input : hệ số a và b và c

- Output : nghiệm phương trình bậc hai

* Mô tả thuật toán :

- Bước 1 : nhập hệ số a và b

- Bước 2 : d ← b * b - 4 * a * c

- Bước 3 : nếu d > 0 thì đưa ra nghiệm x1 = (-b + sqrt(d))/(2*a) và x2 = (-b - sqrt(d))/(2*a)

- Bước 4 : nếu d < 0 thì thông báo phương trình vô nghiệm

- Bước 5 : nếu d = 0 thì phương trình có nghiệm x = -b/(2*a)

- Bước 6 : kết thúc