Tổng hợp Lớp 11: viết thủ tục giải phương trình bậc nhất ax+b=0

Câu hỏi:
Giúp em bài tập về nhà Tổng hợp lớp 11 câu hỏi như sau: viết thủ tục giải phương trình bậc nhất ax+b=0

Trả lời 2:
Gia Sư Hoàng Khang gữi câu trả lời dành cho bạn:

program bai_giai;
uses crt;
var a,b:integer;
procedure giai;
begin
    if (a=b) 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);
end;
BEGIN
    clrscr;
    write(‘Nhap a: ‘);  readln(a);
    write(‘Nhap b: ‘);  readln(b);
    giai;
    readln;
END.

Trả lời 1:
Gia Sư Hoàng Khang gữi câu trả lời dành cho bạn:

program Vd;
uses crt;
var   a,b: integer;

procedure Nhap;
begin
      write(‘Nhap a= ‘);readln(a);
      write(‘Nhap b= ‘);readln(b);
end;

procedure Xuat(a,b:integer);
begin
      If (a=0) and (b=0) then write(‘Pt co vo so nghiem’)
        else
      If (a=0) and (b<>0) then write(‘Pt vo nghiem’)
        else
      write(‘Pt co nghiem la: ‘,(–1*b)/a);
end;
       
begin
          clrscr;
         
          Nhap;
         
          Xuat(a,b);
                            
readln;
end.