Ai giúp mình mấy bài này với

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

Ai giúp mình mấy bài này với

Bài gửi by jetlongk4 on 14/2/2011, 4:12 pm

viết chương trình tính Cos(x) theo công thức truy hồi:
Cos(x)=1-x^2/2! + x^4/4!-..+(-1^n)*x^2*n/2n!.
bài này nữa:
sin(x)=x-x^3/3!+x^5/5!+..+(-1^n)*x^2n+1/(2n+1)!.
2 bài này tương tự nhau;


CÁM ƠN CÁC ANH CHỊ NHIỀU! ^@^!
avatar
jetlongk4
Thành viên mới
Thành viên mới

Nam Ngày sinh : 04/11/1991
Tuổi : 25
Ngày đăng ký : 14/02/2011

Về Đầu Trang Go down

Re: Ai giúp mình mấy bài này với

Bài gửi by jetlongk4 on 15/2/2011, 10:16 pm

diễn đàn này chán wa. admin xem thế nào chứ post bai mà ko ai coment cả.
avatar
jetlongk4
Thành viên mới
Thành viên mới

Nam Ngày sinh : 04/11/1991
Tuổi : 25
Ngày đăng ký : 14/02/2011

Về Đầu Trang Go down

em khong chac lam dau

Bài gửi by tieuquaitu on 15/2/2011, 10:29 pm

var n:array[1..1000] of word;
k:word;
cos,a:real;
function luythua(x,n:byte) : word;
var i:word;
begin

luythua:=1;
for i:=1 to n do luythua:=luythua*x;
end;
end; {xong ham tim luy thua}

function giaithua(y:byte) : word;
var j:word;

begin
giaithua:=1;
for j:=1 to y do giaithua:=giaithua*j;
end;
end; {xong ham tinh giai thua}

BEGIN {chuong trinh bat dau}
for k:=1 to 1000 do n[k]:=k*2;
write('ban muon tinh cos cua bao nhieu:'); {nhap theo radian.0
readln(a);
cos:=1;
k:=1;
if a-pi/2<0.001 then writeln('cos',a,'=0') else
repeat
cos:=cos-luythua(a,n[k])/giaithua(n[k]);
k:=k+1;
until luythua(a,n[k])/giaithua(n[k])<0.001;{tinh gan dung den 3 chu so thap phan}
writeln('cos(',a,')=',cos:1:3);
readln
end.
avatar
tieuquaitu
Thành viên thường
Thành viên thường

Nam Ngày sinh : 08/07/1993
Tuổi : 24
Ngày đăng ký : 09/02/2011

Về Đầu Trang Go down

Re: Ai giúp mình mấy bài này với

Bài gửi by tieuquaitu on 15/2/2011, 10:30 pm

co gi sai thong cam cho em
avatar
tieuquaitu
Thành viên thường
Thành viên thường

Nam Ngày sinh : 08/07/1993
Tuổi : 24
Ngày đăng ký : 09/02/2011

Về Đầu Trang Go down

Re: Ai giúp mình mấy bài này với

Bài gửi by jetlongk4 on 16/2/2011, 2:41 pm

du sao cung cam on nhieu nha/ :d
avatar
jetlongk4
Thành viên mới
Thành viên mới

Nam Ngày sinh : 04/11/1991
Tuổi : 25
Ngày đăng ký : 14/02/2011

Về Đầu Trang Go down

Re: Ai giúp mình mấy bài này với

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết