Question

 Viết chương trình giải phương trình ax + b = 0 (các hệ số a,b được nhập từ bàn phím)

Hướng dẫn có sẵn trong bài là: 

- Nếu a khác 0 thì phương trình có nghiệm x=-b/a(âm b phần a)

- Nếu a = 0 và b = 0 thì phương trình có vô số nghiệm

- Nếu a = 0 và b khác 0 thì phương trình vô nghiệm

Answer 1

uses crt; 
var a, b: logint; 
Begin 
write('nhap so a ='); Readln(a); 
write('nhap so b ='); readln(b); 
If (a = 0 and b = 0) 
then write ('pt co nghiem x thuoc R') 
else 
if (a=0 and b#0) then write('pt vo nghiem') 
else 
write(nghiẹm la x=': -b/a); 
readln 
end. 

Answer 2

uses crt; 
var a, b: logint; 
Begin 
write('nhap so a ='); Readln(a); 
write('nhap so b ='); readln(b); 
If (a = 0 and b = 0) 
then write ('pt co nghiem x thuoc R') 
else 
if (a=0 and b#0) then write('pt vo nghiem') 
else 
write(nghiẹm la x=': -b/a); 
readln 
end.