giải giúp em câu này với ạ Viết chương trình giải pt bậc nhất ax+b=0. Có kiểm tra điều kiện.

Phương trình bậc nhất là một phương trình đại số có dạng: f(x) = ax + b = 0. Trong đó

Tìm nghiệm của phương trình bậc nhất  như sau:

x = -b/a nếu a khác 0

Vô số nghiệm nếu a=0 và b = 0

Và vô nghiệm nếu  a = 0 và B khác 0

Vậy chương trình sẽ như vậy nhe

Program timnghiem;

use crt;

var a, b: real;

BEGIN

 Writeln("Nhập a: ");Readln(a);

 Writeln("Nhập b: ");Readln(b);

IF (a = 0)then

           if b = 0 then Writeln("phương trình da nhap co vo so nghiem")

           else Writeln("phương trình da nhap vo nghiem")

ELSE

             Writeln('Phuong trinh co nghiem x=',-b/a:4:2);

 END.

Mình chưa chạy thử nên có thể có lỗi nhé