Phân tích tư tưởng của nhân dân qua đoạn thơ: Những người vợ nhớ chồng… Những cuộc đời đã hóa sông núi ta trong Đất nước của Nguyễn Khoa Điềm
3439
1
0
9 trang
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.
Nội dung trích xuất từ tài liệu:
Phương pháp số giải phương trình phi tuyến
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(-------------------------);
writeln(LanLap:,i);
writeln(X=,x:8:6);
writeln(Fx=,F(x):8:6);
writeln(dFx=,dF(x):8:6);
end;
if ss
