intTypePromotion=1
zunia.vn Tuyển sinh 2024 dành cho Gen-Z zunia.vn zunia.vn
ADSENSE

Phương pháp số giải phương trình phi tuyến

Chia sẻ: Nguyễn Thị Quỳnh | Ngày: | Loại File: DOCX | Số trang:2

123
lượt xem
11
download
 
  Download Vui lòng tải xuống để xem tài liệu đầy đủ

Phương pháp số giải phương trình phi tuyến sẽ giúp các bạn có thêm một số kiến thức tổng hợp về cách viết lệnh, hàm, các thuật toán để giải phương trình phi tuyến tốt hơn.

Chủ đề:
Lưu

Nội dung Text: Phương pháp số giải phương trình phi tuyến

  1. program giai_phuong_trinh_phi_tuyen; uses crt; var x0,x,eps,ss,fx,dfx: real; i:integer; {----------------------------------------------------------} { viet chuong trinh con tinh ham F(x) } Function F(x: real) : real; var a: real; begin a:= Ln(x)/Ln(10) - Cos(x); F:=a; end; {----------------------------------------------------------} { viet chuong trinh con tinh ham dF(x) } Function dF(x: real) : real; var b: real; begin b:= (1/x)*(1/Ln(10))+Sin(x); dF:=b; end; {----------------------------------------------------------} { viet thuc tuc thuc: hien chuong trinh NEWTON } Procedure NEWTON; { khoi kiem tra dieu kien cua EPSILON } begin repeat write(' Nhap vao Epsilon = '); readln(eps); if (eps1) then begin write(' Nhap sai, hay nhap lai'); writeln; end; until (eps>0) and (eps eps then begin writeln('-------------------------');
  2. writeln('LanLap:',i); writeln('X=',x:8:6); writeln('Fx=',F(x):8:6); writeln('dFx=',dF(x):8:6); end; if ss
ADSENSE

CÓ THỂ BẠN MUỐN DOWNLOAD

 

Đồng bộ tài khoản
2=>2