-
[Help] Dùng phương pháp lặp để tính nghiệm gần đúng của phương trình. (Mai kiểm tra rồi)
đề bài: cho phuong trinh fx= x^3 - x - 5 co khoang phan li ngjiem la [1,2] hay dung phuong phap lap tinh nghiem gan dung cua phuong trinh voi sai so nho hon hoac bang 10^-3
Mình viết thế này nhưng khi chạy ra kết quả lại sai, chưa thấy sai chỗ nào mong các pro chỉ giáo giúp.
Program pplap;
Uses crt;
Var x,x0,tg,e:real;
a0,a1,a2,a3,a,b: integer;
BEGIN
Writeln(‘Nhap vao cac he so cua phuong trinh:’);
Write(‘ Nhap vao a0=’); readln(a0);
Write(‘ nhap vao a1=’); realn(a1);
Write(‘ Nhap vao a2=’); readln(a2);
Write(‘ Nhap vao a3=’); Readln(a3);
Writeln(‘ Phuong trinh la:’,a0,’x3 + ‘,a1,’x2 + ‘,a2,’x + ‘,a3);
Writeln(‘nhap vao khoang phan li nghiem:’);
Write(‘nhap vao a=’); readln(a);
Write(‘nhap vao b=’); readln(b);
Write(‘ Nhap vao sai so e=’); realn(e);
Writeln(‘Chinh xac hoa nghiem:’);[IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]
Writeln(‘ Tu phuong trinh ta co: x= (-a0x3 – a1x2 – a3)/a2 va x= exp(ln((-a1x2 – a2x1 – a3)/a0)/3)’);
Write(‘ Chon g(x)=exp(ln((-a1x2 – a2x1 – a3)/a0)/3) ));
x0:=a;
repeat
x:= exp(ln(- a1*x0*x0 – a2*x0 – a3)/a0)/3));
tg:= x0;
x0: = x;
x:= tg;
until (abs(x- x0)<= e);
write(‘ Nghiem gan dung cua phuong trinh la:, x:6:3);
End.
-
help me................................................ ..................
-
Bạn cứ nói ý tưởng ra để các thành viên sửa sai giúp bạn. Đừng send code không, sẽ rất khó hiểu. [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]
-
thì là dùng for để tính nghiệm mà[IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]. mới đi học 1 buổi mà đã bị bắt làm cái này rồi. ko đỡ đc. Pro giúp mình đi
-
Chỉ biết dùng tính căn bậc 2 của 1 số bằng phương pháp lặpt thôi. Tham kháo SGK Tin học 11
Quyền viết bài
- 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ể Sửa bài viết của mình
-
Nội quy - Quy định
Bạn đang tìm kiếm giải pháp vận chuyển và nâng hạ hàng hoá máy móc nặng cho dự án hay công việc của mình tại khu vực Mỹ Phước - Bình Dương? Chúng tôi tự hào giới thiệu dịch vụ cho thuê xe cẩu tại Mỹ...
Dịch vụ cho thuê xe cẩu tại Mỹ Phước từ 3 tấn 120 tấn