Viết Chương Trinh Pascal Giải Phương Trình Bậc 3 | VFO.VN

Forum

• 
• Diễn đàn
• Mới nhất
• Công nghệ
• Điện thoại
• Máy tính
• Xe
• Thủ Thuật
• Hỏi đáp

Đăng nhập News Feed

Tìm kiếm

Mọi thứ Chủ đề Diễn đàn này Chủ đề này Chỉ tìm trong tiêu đề Bởi: Tìm Tìm kiếm nâng cao… Menu Đăng nhập Đăng ký Install the app Cài đặt You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser.

• Máy Tính
• Hỏi đáp nhanh

Viết chương trinh pascal giải phương trình bậc 3

• watun99
• 21/2/16

có bác nào giúp e viết chương trinh pascal giải pt bac 3 với. E vô cùng hậu tạ

VSupport

Ngây thơ trong tối

Tham khảo bài này nhé bạn: Mã: programgiaiptbac3; usescrt; functionarccos(k:real):real;{tao ham arrcos khi |k|<=1} varalpha:real; begin ifk>0thenalpha:=arctan(sqrt(1/k/k-1))elseifk<0thenalpha:=arctan(-sqrt(1/k/k-1))elsealpha:=pi/2; {tan2=1/cos2-1} arccos:=alpha; end; functioncan(k:real):real;{tao ham tinh can bac 3 thong qua exp va ln} varex:real; begin ifk<0thenex:=-exp(ln(abs(k))/3)elseifk>0thenex:=exp(ln(k)/3)elseex:=0; {vi a^x=(e^ln a)^x = e^(ln a . x) a>0} can:=ex; end; procedurenghiemphuc(a,b,c:real);{tao thu tuc tim nghiem phuc} vard:real;x,y:real; begin d:=-b*b+4*a*c;{delta luon nho hon 0 trong truong hop nay nen lay so doi de khong can dung abs(d)} x:=-b/2/a;y:=sqrt(d)/2/a; writeln(' Nghiem Phuc: x2 = ',x,' + ',y,'i'); writeln(' x3 = ',x,' - ',y,'i'); end; vara,b,c,d:real;s,k:real; x1,x2,x3:real; begin clrscr; write('Nhap a,b,c,d = ');readln(a,b,c,d); s:=b*b-3*a*c;writeln(s); ifs<>0then begin k:=(9*a*b*c-2*b*b*b-27*a*a*d)/2/sqrt(abs(s*s*s));writeln(k); ifs>0then begin ifabs(k)<=1thenbegin writeln('PT co 3 nghiem thuc: '); x1:=(2*sqrt(s)*cos(arccos(k)/3)-b)/(3*a); x2:=(2*sqrt(s)*cos(arccos(k)/3-2*pi/3)-b)/(3*a); x3:=(2*sqrt(s)*cos(arccos(k)/3+2*pi/3)-b)/(3*a); writeln('x1 = ',x1:10:12); writeln('x2 = ',x2:10:12); writeln('x3 = ',x3:10:12); end else begin x1:=sqrt(abs(s))*abs(k)/3/a/k*(can(abs(k)+sqrt(k*k-1))+can(abs(k)-sqrt(k*k-1)))-b/3/a; writeln(' Nghiem thuc: x1 = ',x1:10:12); a:=a;b:=x1*a+b;c:=x1*b+c;{mieu ta hooclo} nghiemphuc(a,b,c); end; end else begin x1:=sqrt(abs(s))/(3*a)*(can(k+sqrt(k*k+1))+can(k-sqrt(k*k+1)))-b/3/a; writeln(' Nghiem thuc: x1 = ',x1:10:12); a:=a;b:=x1*a+b;c:=x1*b+c;{mieu ta hooc lo} nghiemphuc(a,b,c); end; end else begin x1:=(-b+can(b*b*b-27*a*a*d))/3/a; writeln(' Nghiem thuc: x = ',x1:10:12); end; readln end Phương pháp ma trận: Mã: program ptb3; uses crt; var x1,x2,x3:real; a1,a2,a3,b1,b2,b3,c1,c2,c3,d1,d2,d3:real; d,dx1,dx2,dx3:real; BEGIN writeln(Nhap vao cac he so a1 b1 c1 d1); readln(a1,b1,c1,d1); writeln(Nhap vao cac he so a2 b2 c2 d2); readln(a2,b2,c2,d2); writeln(Nhap vao cac he so a3 b3 c3 d3); readln(a3,b3,c3,d3); d:=a1*b2*c3+b1*c2*a3+a2*b3*c1-a3*b2*c1-a1*b3*c2-a2*b1*c3; dx1:=d1*b2*c3+b1*c2*d3+d2*b3*c1-d3*b2*c1-d1*b3*c2-d2*b1*c3; dx2:=a1*d2*c3+d1*c2*a3+a2*d3*c1-a3*d2*c1-a1*d3*c2-a2*d1*c3; dx3:=a1*b2*d3+b1*d2*a3+a2*b3*d1-a3*b2*d1-a1*b3*d2-a2*b1*d3; if d=0 then begin if (dx1=0) and (dx2=0) and (dx3=0) then begin writeln(He phuong trinh co vo so nghiem); writeln(Bam phim bat ky de ket thuc); readln; end; if (dx1<>0) or (dx2<>0) or (dx3<>0) then begin writeln(He phuong trinh vo nghiem); writeln(Bam phim bat ky de ket thuc); readln; end; end else begin x1:=dx1/d; x2:=dx2/d; x3:=dx3/d; writeln(he phuong trinh co nghiem duy nhat); writeln(x1= ,x1:10:5); writeln(x2= ,x2:10:5); writeln(x3= ,x3:10:5); writeln(bam phim bat ky de ket thuc); readln end; END. W

watun99

tks huynh đài rất nhiều. viết kỹ kèm chú thích nữa =) Đăng nhập bằng tài khoản VFO hoặc Facebook Google

Bài viết mới nhất

• Sách Hay Mỗi Ngày
  • shopoga
  • 19:11
• Kho truyện ngắn cực hay
  • shopoga
  • 19:10
• T OPPO sắp công bố Reno 12 Pro
  • Tin Tức
  • 15:31
• T Tecno đã chọn ngày giới thiệu Camon 30 tại Việt Nam
  • Tin Tức
  • 14:25
• Dell công bố các máy chủ PowerEdge thế hệ mới
  • maychucongnghe
  • 12:03

Thống kê

Chủ đề 100,759 Bài viết 467,597 Thành viên 339,858 Thành viên mới nhất ffbbtopnhacai

Bài viết được quan tâm nhiều

• T vivo Y200 5G trang bị màn hình FHD+, SoC Snapdragon 6 Gen 1, camera chính 50MP
  • Tin Tức
  • 10:10 Hôm qua
• T Samsung sắp ra mắt Galaxy F55
  • Tin Tức
  • 17:23 Hôm qua
• T Honor 200 và 200 Pro sắp được ra mắt
  • Tin Tức
  • 20:59 Hôm qua
• T Samsung Galaxy Z Fold 6 phiên bản Mỹ trang bị SoC Snapdragon 8 Gen 3
  • Tin Tức
  • 17:04 Hôm qua
• T Motorola sắp ra mắt smartphone màn hình gập Razr 50 5G
  • Tin Tức
  • 09:45

Top