Follow us on...
Follow us on Twitter Follow us on Facebook Watch us on YouTube

Thông tin công nghệ mới nhất

Gameshow “Ai Là Triệu Phú” trên VTV đang chờ đón bạn – Tải ngay!

Reivews và Hands on

FTECH.VN: Miễn phí Plesk, giảm giá đến 30% máy chủ ảo

Chiêm ngưỡng BaoMoi đẹp "tuyệt diệu" trên Windows Phone

Tình xuân ấm áp - Xuân Yêu Thương
kết quả từ 1 tới 5 trên 5
  1. #1
    if_you_like_94's Avatar
    if_you_like_94 vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Dec 2007
    Bài
    48
    Cảm ơn
    33
    Điểm
    40/10 bài viết

    Default Giải phương trình bậc 3 bằng Pascal

    Đề bài: Giải phương trình bậc 3 với hệ số a,b,c,d cho trước
    CODE PASCAL:
    Code:
    uses crt;
    var a,b,c,d:integer;
    f,g,h,i,j,k,l,m,n,p,x1,x2,x3,r,s,t,u,z:real;
    tiep:char;
    {--------------------------------}
    function canbacba(x:real):real;
    var z:real;
    begin
     if x>0 then canbacba:=exp( 1/3*ln(x) )
     else if x=0 then canbacba:=0
      else 
       begin
         z:=-x;
         canbacba:=-exp(1/3*ln(z));
       end;
    end;
    {----------------------------------}
    function arccos(x:real):real;
    var arcsin:real;
    begin
      if (x>0) and (x<=1) then 
        arcsin:=pi-2*arctan((1+sqrt(1-x*x))/x)
      else if x=0 then arcsin:=0
          else arcsin:=-pi-2*arctan((1+sqrt(1-x*x))/x);
      arccos:=pi/2-arcsin;
    end;
    {----------------------------------}
    
    BEGIN
      repeat
      CLRSCR;
      writeln('CHUONG TRINH GIAI PHUONG TRINH BAC BA');
      writeln('-------------------------------------');
      WRITELN('Vui long nhap cac he so:');
      write(' a=');readln(a);
      write(' b=');readln(b);
      write(' c=');readln(c);
      write(' d=');readln(d);
      f:=((3*c/a)-(b*b/(a*a)))/3;
      g:=((2*b*b*b/(a*a*a))-(9*b*c/(a*a))+(27*d/a))/27;
      h:=(g*g/4)+(f*f*f/27);
      if ((f=0) and (h=0) and (g=0)) then
        begin
          x1:=canbacba(d/a)*(-1);
          writeln('Phuong trinh co nghiem kep X=',x1:8:4);
        end
      else if h>0 then
        begin
          r:=-g/2+sqrt(h);
          s:=canbacba(r);
          t:=-(g/2)-sqrt(h);
          u:=canbacba(t);
          x1:=(s+u)-(b/(3*a));
          z:=(s-u)*sqrt(3)/2;
          writeln('Phuong trinh co mot nghiem thuc:');
          writeln(' X1=',x1:8:4);
          writeln(' X2=',-(s+u)/2-(b/(3*a)):8:4,'+',z:8:4,'*i');
          writeln(' X3=',-(s+u)/2-(b/(3*a)):8:4,'-',z:8:4,'*i');
        end
      else
       begin
         i:=sqrt((g*g/4)-h);
         j:=canbacba(i);
         k:=arccos(-g/(2*i));
         l:=j*(-1);
         m:=cos(k/3);
         n:=sqrt(3)*sin(k/3);
         p:=(b/(3*a))*(-1);
         x1:=2*j*cos(k/3)-(b/(3*a));
         x2:=l*(m+n)+p;
         x3:=l*(m-n)+p;
         writeln(i:8:4,j:8:4,k:8:4,l:8:4,m:8:4,n:8:4,p:8:4) ;
         writeln('Phuong trinh co 3 nghiem:');
         writeln(' X1:=',x1:8:4);
         writeln(' X2:=',x2:8:4);
         writeln(' X1:=',x3:8:4);
       end;
     writeln;
     write('Tiep tuc nua khong(c/K): ');readln(tiep);
     until upcase(tiep)='K';
    end.

    File .PAS:
    Thay đổi nội dung bởi if_you_like_94; 02-01-2010 lúc 09:40.
    Cấm quảng cáo trong chữ kí!

    h.t.k'lan

  2. Có 5 thành viên cảm ơn if_you_like_94 cho bài viết này:
    anhminh1208 (02-01-2010), giangmeo (03-01-2010), minhducvip1997 (01-11-2013), TL_No.1 (22-06-2013), viphjx1990 (02-01-2010)

  3. #2
    viphjx1990's Avatar
    viphjx1990 vẫn chưa có mặt trong diễn đàn Búa Đá Đôi
    Tham gia
    Oct 2009
    Đến từ
    Xóm 2 giao yến giao thủy nam định
    Bài
    77
    Cảm ơn
    2
    Điểm
    11/9 bài viết

    Default

    bài này hay quá !
    thanks nhá cảm ơn cho nè!
    lần sau cố gắng gửi thêm nhiều bài hay thế lên nhá thanks trước
    [B]__'' Mùa thu để lại lá vàng "
    _" Anh đi để lại cho nàng thằng cu "
    __" Mùa thu nồi tiếp mùa thu"
    _" Thằng cu nôi tiếp thằng cu ra đời"
    [Vn-D]: http://vedich.net

  4. #3
    giangmeo's Avatar
    giangmeo vẫn chưa có mặt trong diễn đàn Rìu Sắt
    Tham gia
    Mar 2008
    Bài
    181
    Cảm ơn
    12
    Điểm
    21/19 bài viết

    Default

    Nói thật tui ko hiểu được cách giải nghiện pt bậc 3 nửa hihi.

  5. #4
    if_you_like_94's Avatar
    if_you_like_94 vẫn chưa có mặt trong diễn đàn Búa Đá
    Tham gia
    Dec 2007
    Bài
    48
    Cảm ơn
    33
    Điểm
    40/10 bài viết

    Default

    Trích giangmeo View Post
    Nói thật tui ko hiểu được cách giải nghiện pt bậc 3 nửa hihi.
    Bài toán trên giải theo phương pháp tổng hợp và lượng giác:
    ax3 + bx2 + cx + d = 0(a < > 0) Đặt các giá trị:
    Δ = b2 − 3ac
    (Δ < > 0)
    1) Nếu Δ > 0
    1.1) |k| ≤ 1: Phương trình có ba nghiệm
    1.2) |k| > 1: Phương trình có một nghiệm duy nhất 2) Nếu Δ = 0 : Phương trình có một nghiệm bội
    3) Nếu Δ < 0: Phương trình có một nghiệm duy nhất
    Cấm quảng cáo trong chữ kí!

    h.t.k'lan

  6. #5
    troicao22's Avatar
    troicao22 vẫn chưa có mặt trong diễn đàn Gà Con
    Tham gia
    Nov 2009
    Bài
    8
    Cảm ơn
    1
    Điểm
    15/3 bài viết

    Default

    hay quá!giỏi lắm!

    ---------- Bài thêm lúc 22:59 ---------- Bài trước là lúc 22:58 ----------

    Bạn viết hay quá!Thanks.

 

 

Quyền sử dụng

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể tự sửa bài viết của mình
  •