Question

Mô tả thuật toán và viết chương trình giải phương trình bậc nhất 1 ẩn a*x+b=0

@Lovers giúp mình vs

Answer 1

Thuật toán:

B1: Nhập a,b

B2:Nếu a< > 0 thì x=-a/b và kết thúc ngược lại thì đi tiếp

B3:Nếu b=0 thì phương trình vô số ngiệm ngược lại thì chương vô nghiệm và kết thúc thuật toán.

Viết chương trình:

Program PT_bac_nhat;
Var
a,b:Integer;
x:Real;
Begin
Writeln('GIAI PHUONG TRINH BAC NHAT');
Writeln(' aX + b = 0');
Write('-Nhap he so a= ');
Readln(a);
Write('-Nhap he so b= ');
Readln(b);
If a=0 Then
If b=0 Then
Writeln('+Phuong trinh vo dinh')
Else
Writeln('+Phuong trinh vo nghiem')
Else
Begin
x:=-b/a;
Writeln('+Nghiem cua phuong trinh X= ',x:0:6);
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.