YOMEDIA
NONE

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

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

Theo dõi Vi phạm
ADSENSE

Trả lời (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.

    hihi

      bởi nguyễn huyền 31/10/2018
    Like (0) Báo cáo sai phạm

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

 

YOMEDIA
AANETWORK
OFF