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 ạ!
     
    nihC thích bài này.
    Ngọc Trâm 2004, 16 Tháng mười 2020
    #1

  4. 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 ^^
     
    Evelyn Nguyen, 16 Tháng mười 2020
    #2

  5. Ngọc Trâm 2004

    Bài viết:
    14
    A, b, c được nhập từ bàn phím ạ.
     
    Ngọc Trâm 2004, 16 Tháng mười 2020
    #3

  6. 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
    Evelyn Nguyen, 16 Tháng mười 2020
    #4

  7. nihC I'm the dust in the wind... ♥️

    Bài viết:
    1,729
    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ả.
     
    lindadameomeo và Bạch Nhân Ly thích bài này.
    nihC, 7 Tháng mười hai 2020
    #5
Trả lời qua Facebook
Đang tải...