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

Bóc hộp Wiko Getaway giá rẻ, dáng đẹp và Selfie thì cực Chất

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

Reviews hay rinh note 4, galaxy V được vi vu Hàn Quốc

Mời anh em tham gia Vn-zoom support team

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

Tin tức công nghệ sản phẩm mới
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 Gỗ Đôi
    Tham gia
    Dec 2007
    Bài
    42
    VZD
    156
    Cảm ơn
    33
    Điểm
    39/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.
    BẮT ĐẦU LÀM LẠI TỪ ĐẦU - ỦNG HỘ VN-ZOOM - CÁC PÁC NHỚ THANKS EM CHO EM ĐỠ BUỒN
    MỜI CÁC PÁC VÀO GHÉ THĂM "SITE" CỦA EM
    HTTP://WWW.MANHCHUC.COM
    HTTP://WWW.KENHIT.INFO


  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
    VZD
    125
    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
    VZD
    154
    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 Gỗ Đôi
    Tham gia
    Dec 2007
    Bài
    42
    VZD
    156
    Cảm ơn
    33
    Điểm
    39/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
    BẮT ĐẦU LÀM LẠI TỪ ĐẦU - ỦNG HỘ VN-ZOOM - CÁC PÁC NHỚ THANKS EM CHO EM ĐỠ BUỒN
    MỜI CÁC PÁC VÀO GHÉ THĂM "SITE" CỦA EM
    HTTP://WWW.MANHCHUC.COM
    HTTP://WWW.KENHIT.INFO


  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
    VZD
    163
    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
  •