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

Smartphone WIKO của Pháp chính thức xuất hiện tại Việt Nam

Tìm HD - Phần mềm tìm và xem phim HD miễn phí

Cuộc thi khoảnh khắc tuyệt vời cùng Vn-Zoom.com

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

Tuyển thành viên nhóm Reviews diễn đàn

Mời anh em Vn-Zoom tham gia ASUS EXPO 2014
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
    Cảm ơn
    33
    Điểm
    38/10 bài viết
    VR power
    0

    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
    Cảm ơn
    2
    Điểm
    11/9 bài viết
    VR power
    0

    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
    VR power
    0

    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
    Cảm ơn
    33
    Điểm
    38/10 bài viết
    VR power
    0

    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
    Cảm ơn
    1
    Điểm
    15/3 bài viết
    VR power
    0

    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
  •