Hỏi đáp Viết chương trình pascal giải phương trình ax2+bx+c=0

Discussion in 'Hỏi Đáp' started by Ngọc Trâm 2004, Oct 16, 2020.

  1. Ngọc Trâm 2004

    Messages:
    14
    Viết chương trình ax^2+bx+c=0 (xét hai trường hợp a=0 và a#0)

    Mọi người giúp em đề này với ạ, em cảm ơn nhiều ạ!
     
    nihC likes this.
  2. Evelyn Nguyen

    Messages:
    13
    A, b, c, x được nhập từ bàn phím ạ?

    Bạn cho mình đề chi tiết hơn nha ^^
     
  3. Ngọc Trâm 2004

    Messages:
    14
    A, b, c được nhập từ bàn phím ạ.
     
  4. Evelyn Nguyen

    Messages:
    13
    C++ là như vầy nè bạn:

    #include <stdio. H>

    #include <math. H>

    Int main () {

    Float a, b, c;

    Float delta;

    Printf ( "Enter a, b and c: \n") ;

    Scanf ( "%f%f%f", &a, &b, &c) ;

    Delta = b * b - 4 * a * c;

    If (a == 0) {

    Printf ( "You must enter a > 0\n") ;

    Return 0; // finish

    }

    If (delta < 0) {

    Printf ( "Impossible equation (No result for x) \n") ;

    }

    If (delta == 0) {

    Float x = -b / (2 * a) ;

    Printf ( "x = %. 2f\n", x) ;

    }

    If (delta > 0) {

    Float x1 = (-b + sqrt (delta)) / (2 * a) ;

    Float x2 = (-b - sqrt (delta)) / (2 * a) ;

    Printf ( "x1 = %. 2f\n", x1) ;

    Printf ( "x2 = %. 2f\n", x2) ;

    }

    Return 0;

    }
     
    Last edited by a moderator: Dec 17, 2020
  5. nihC I'm the dust in the wind... ♥️

    Messages:
    1,726
    Code:
    Program GIAI_PHUONG_TRINH_BAC_II;
    Uses CRT;
    Var a,b,c,D,x,x1,x2: real;
    Begin
      Clrscr;
      Writeln('GIAI PHUONG TRINH BAC II: ');
      Writeln('-------------------------------------------');
      Write('Nhap he so a='); readln(a);
      Write('Nhap he so b='); readln(b);
      Write('Nhap he so c='); readln(c);
      If a=0 then
        If b=0 then
          If c=0 then
            Writeln('Phuong trinh co vo so nghiem')
          Else Writeln('Phuong trinh vo nghiem')
        Else Writeln('Phuong trinh co mot nghiem: x=',-c/b: 4: 2)
      Else
        Begin
          D:=b*b-4*a*c;
          If D=0 then Writeln('Phuong trinh co nghiem kep: x=',-b/(2*a): 4: 2)
          Else
            If D<0 then Writeln('Phuong trinh vo nghiem')
            Else
               Begin
                 x1:=(-b-sqrt(D))/(2*a);
                 x2:=(-b+sqrt(D))/(2*a);
                 Writeln('Phuong trinh co 2 nghiem la x1= ',x1:4:2 ,' va x2= ',x2:4:2);
               End;
         End;
    Readln
    End. 
    Đây em nhé, chắc là đúng đó :V

    Em có thể bỏ phần program và uses (nếu thích) vì nó không quan trọng và không ảnh hưởng đến kết quả.
     
Trả lời qua Facebook
Loading...