Diễn Đàn Pascal
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

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

2 posters

Go down

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

Bài gửi by jetlongk4 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! ^@^!
jetlongk4
jetlongk4
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

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

Bài gửi by jetlongk4 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ả.
jetlongk4
jetlongk4
Thành viên mới
Thành viên mới

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

Về Đầu Trang Go down

Ai giúp mình mấy bài này với Empty em khong chac lam dau

Bài gửi by tieuquaitu 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.
tieuquaitu
tieuquaitu
Thành viên thường
Thành viên thường

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

Về Đầu Trang Go down

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

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

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

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

Về Đầu Trang Go down

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

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

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

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

Về Đầu Trang Go down

Ai giúp mình mấy bài này với Empty 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

Về Đầu Trang


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