tìm nghiệm của phương trình bậc nhất dạng bx+c=0 27/07/2021 Bởi Ariana tìm nghiệm của phương trình bậc nhất dạng bx+c=0
uses crt; var b,c: integer; begin clrscr; write(‘Nhap b: ‘);readln(b); write(‘Nhap c: ‘);readln(c); If (b=0) and (c<>o) then writeln(‘Phuong trinh vo nghiem’); If (b=0) and (c=0) then writeln(‘Phuong trinh co vo so nghiem’); If (b<>0) and(c<>0) then writeln(‘Phuong trinh co nghiem x=’,(-b)/a); writeln(‘Vay nghiem cua phuong trinh la’,x); readln end. Bình luận
uses crt;
var b,c: integer;
begin
clrscr;
write(‘Nhap b: ‘);readln(b);
write(‘Nhap c: ‘);readln(c);
If (b=0) and (c<>o) then writeln(‘Phuong trinh vo nghiem’);
If (b=0) and (c=0) then writeln(‘Phuong trinh co vo so nghiem’);
If (b<>0) and(c<>0) then writeln(‘Phuong trinh co nghiem x=’,(-b)/a);
writeln(‘Vay nghiem cua phuong trinh la’,x);
readln
end.
đây bạn