viết chương trình giải phương trình bậc nhất bx+c=0

0 bình luận về “viết chương trình giải phương trình bậc nhất bx+c=0”

1. Program GIAI_PHUONG_TRINH_BAC_NHAT;

   Var b,c,x:real;

   Begin

   Clrscr;

   Writeln(‘GIAI PHUONG TRINH BAC NHAT: BX + C=0’);

   Writeln(‘————————————————————‘);

   Write (‘Nhap b= ‘);

   readln(b);

   Write (‘Nhap c= ‘);

   readln(c);

   If(b=0) then

   If(c=0) then

   Writeln(‘ Phuong trinh co vo so nghiem’)

   Else

   writeln(‘ Phuong tring vo nghiem’)

   Else

   Writeln(‘Phuong trinh co nghiem x=’,-c/b:4:2);

   Readln;

   End.

   Bình luận

2. bx+c=0 =>bx = -c

   +/ nếu a = 0 ⇔ loại vì không có phép chia cho 0

   +/ b ≠ 0 ⇔ x = -c/b

     Khi đó nghiệm của phương trình là x= -c/b

   Chương trình:

   Program GIAI_PHUONG_TRINH_BAC_NHAT

   Uses crt;

   Var a,b,x: real;

   BEGIN Clrscr; Writeln(‘GIAI PHUONG TRINH BAC NHAT: BX + C=0’);

   Writeln(‘Nhap b = ‘); readln(b);

   Writeln(‘Nhap c= ‘); readln(c);

   If b=0 then

   If(b=0) then Writeln(‘ Phuong trinh co vo so nghiem’)

   Else writeln(‘ Phuong tring vo nghiem’)

   Else Writeln(‘Phuong trinh co nghiem x=’,-c/b: 4: 2);

   Readln;

   END.

   Bình luận