Viết chương trình giải phương trình bậc nhất: ax + b = 0 (a khác 0)

Lời giải:

Var a,b,x:real;

begin

write('Nhap so a = ');readln(a);

write('Nhap so b = ');readln(b);

if a = 0 then write('Khong phai phuong trinh bac nhat')

else

begin

x:=-b/a;

write('Phuong trinh co nghiem x = ',x:10:2);

end;

readln;

end.