1. #1
    Quang Ha's Avatar
    Quang Ha Đang Ngoại tuyến Super Moderator
    Ngày tham gia
    Mon May 2007
    Bài viết
    705
    Thanks
    131
    Thanked 187 Times in 118 Posts

    Mặc định Giải phương trình bậc hai

    Thuật giải:
    1. Nhận các hệ số a, b, c từ người sử dụng
    2. Nếu a = 0 không xét vì không còn là tam thức
    3. Ngược lại nếu a # 0
    delta = b*b - 4*a*c
    - Nếu delta < 0 thì phương trình vô nghiệm
    - Ngược lại nếu delta = 0 thì Phương trình có nghiệm kép: x1 = x2 = -b/2a
    - Ngược lại nếu delta > 0 thì phương trình có hai nghiệm phân biệt:
    x1 = (-b - sqrt(delta))/(2*a) và
    x1 = (-b + sqrt(delta))/(2*a)

    sqrt: là căn bậc hai (do trong này ko có dấu căn bậc hai nên để như vậy cho dễ nhìn)


    Khai báo các biến sử dụng trong chương trình.

    PHP Code:
    var
       
    abreal;
       
    x1x2delta real
    nhập các hệ số của tam thức:
    PHP Code:
    Write('a = '); Readln(a);
    Write('b = ');Readln(b);
    Write('c = ');Readln(c); 
    Kiểm tra a.
    PHP Code:
    if <> 0 then
    begin
       
    ...
    end
    Tính delta
    PHP Code:
    delta := c
    Kiểm tra delta và thực hiện theo thuật toán.
    PHP Code:
    if delta 0 then
    begin
       
    ...
    end;
    if 
    delta 0 then
    begin
       
    ...
    end;
    if 
    delta 0 then
    begin
       
    ...
    end


    Chương trình hoàn chỉnh.

    PHP Code:
    var abcx1x2delta real;
    begin
       Write
    ('Chuong trinh giai phuong trinh bac hai');
       
    Write('a = ');
       
    Readln(a);
       
    Write('b = ');
       
    Readln(b);
       
    Write('c = ');
       
    Readln(c);
       
    delta := c;
       if 
    delta 0 then
       begin
          Write
    ('Phuong trinh vo nghiem');
       
    end;
       if 
    delta 0 then
       begin
          Write
    ('Phuong trinh co nghiem kep: x1 = x2 = ', -b/(a));
       
    end;
       if 
    delta 0 then
       begin
          x1 
    := (-SQRT(delta))/(a);
          
    x2 := (-SQRT(delta))/(a);
          
    Writeln('Phuong trinh co nghiem kep:')
          
    Writeln('x1 = 'x1);
          
    Writeln('x2 = 'x2);
       
    end;
    end
    Lần sửa cuối bởi Quang Ha, ngày 28-02-2008 lúc 02:15 PM.
    Vặt trụi lá bẻ trơ cành
    Để cây tức giận nở thành trăm hoa

  2. The Following User Says Thank You to Quang Ha For This Useful Post:

    luongkhiem (28-02-2008)

  3. #2
    thanhvt688 Đang Ngoại tuyến BPIT Advanced Member
    Ngày tham gia
    Thu Dec 2007
    Bài viết
    187
    Thanks
    9
    Thanked 38 Times in 25 Posts

    Mặc định

    chà chà gớm wá giải phương trình bậc 2 nữa cơ đấy,điều mà ai cũng biếc ,cái nài chỉ xét đk thôi dễ mà

    bạn làm phương trình giải tích phân đi^^ cho nó dễ

  4. #3
    LDL's Avatar
    LDL
    LDL Đang Ngoại tuyến ♥ [O]ff ♥
    Ngày tham gia
    Fri May 2007
    Bài viết
    799
    Thanks
    424
    Thanked 322 Times in 153 Posts

    Mặc định

    Trích dẫn Gửi bởi thanhvt688 Xem bài viết
    chà chà gớm wá giải phương trình bậc 2 nữa cơ đấy,điều mà ai cũng biếc ,cái nài chỉ xét đk thôi dễ mà

    bạn làm phương trình giải tích phân đi^^ cho nó dễ
    bác nói vậy là ko đúng rồi, cái này là hổ trợ cho newbie ( các bạn học sinh phổ thông) chứ nếu người đã học qua lập trình rồi thì ko nói làm gì, ai cũng biết dễ, ^_^ :secret: quan trọng là có thật lòng giúp đở các bạn mới bước chân vào làm quen với lập trình ko thôi ...:secret:

    vài ý kiến nho nhỏ ^_^
    ♥ღ4everღ♥

  5. #4
    Quang Ha's Avatar
    Quang Ha Đang Ngoại tuyến Super Moderator
    Ngày tham gia
    Mon May 2007
    Bài viết
    705
    Thanks
    131
    Thanked 187 Times in 118 Posts

    Mặc định

    Chương trình mình viết không phải để chứng tỏ khả năng của mình, phải xem xét xem người sử dụng nó là ai. Bạn có biết bài tập lập trình đầu tiên của mình là gì không? là bài 'hello world'. Mọi thứ phải bắt đầu từ đầu chứ.
    Vặt trụi lá bẻ trơ cành
    Để cây tức giận nở thành trăm hoa

  6. #5
    vodanho1 Đang Ngoại tuyến Newbie
    Ngày tham gia
    Wed Nov 2010
    Tuổi
    21
    Bài viết
    1
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Mặc định Trả lời

    Trích dẫn Gửi bởi thanhvt688 Xem bài viết
    chà chà gớm wá giải phương trình bậc 2 nữa cơ đấy,điều mà ai cũng biếc ,cái nài chỉ xét đk thôi dễ mà

    bạn làm phương trình giải tích phân đi^^ cho nó dễ
    vải đái làm đi nói thì hay lám. set điều kiện là xong, dạy ông đi mà sét đi nói thì dể làm mới khó


 

Thông tin về chủ đề này

Users Browsing this Thread

Có 1 người đang xem chủ đề. (0 thành viên và 1 khách)