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

Thảo luận trong 'Hỏi Đáp' bắt đầu bởi Ngọc Trâm 2004, 16 Tháng mười 2020.

  1. Ngọc Trâm 2004

    Bài viết:
    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 ạ!
     
    Bụi thích bài này.
  2. Evelyn Nguyen

    Bài viết:
    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

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

    Bài viết:
    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: 17 Tháng mười hai 2020
  5. Bụi I'm the dust in the wind... ♥️

    Bài viết:
    1,717
    Mã:
    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ả.
     
    lindadameomeoBạch Nhân Ly thích bài này.
Trả lời qua Facebook
Đang tải...