Viết chương trình và hiển thị kết quả của phương trình bậc nhất ax+b=0. ( Giúp mình với mai mình nộp rồi )
2 câu trả lời
program Phuong_trinh_bac_nhat;
uses crt;
var a,b : real;
begin
clrscr;
write ('Nhap so a:'); readln(a);
write ('Nhap so b:'); readln(b);
if (a<>0) then writeln ('Nghiem cua phuong trinh la:', -b/a);
if (a=0) and (b=0) then writeln ('Phuong trinh co vo so nghiem');
if (a=0) and (b<>0) then writeln ('Phuong trinh vo nghiem');
readln
end.
program bai_giai;
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if (a=0) and (b=0) then write('Phuong trinh co vo so nghiem')
else if (a=0) and (b<>0) then write('Phuong trinh vo nghiem')
else write('x = ',-b/a:0:2);
readln;
end.
