Ai giúp mình mấy bài này với
2 posters
Trang 1 trong tổng số 1 trang
Ai giúp mình mấy bài này với
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! ^@^!
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- Thành viên mới
- Ngày sinh : 04/11/1991
Tuổi : 32
Ngày đăng ký : 14/02/2011
Re: Ai giúp mình mấy bài này với
diễn đàn này chán wa. admin xem thế nào chứ post bai mà ko ai coment cả.
jetlongk4- Thành viên mới
- Ngày sinh : 04/11/1991
Tuổi : 32
Ngày đăng ký : 14/02/2011
em khong chac lam dau
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.
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- Thành viên thường
- Ngày sinh : 08/07/1993
Tuổi : 30
Ngày đăng ký : 09/02/2011
Re: Ai giúp mình mấy bài này với
co gi sai thong cam cho em
tieuquaitu- Thành viên thường
- Ngày sinh : 08/07/1993
Tuổi : 30
Ngày đăng ký : 09/02/2011
Re: Ai giúp mình mấy bài này với
du sao cung cam on nhieu nha/ :d
jetlongk4- Thành viên mới
- Ngày sinh : 04/11/1991
Tuổi : 32
Ngày đăng ký : 14/02/2011
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|
15/4/2011, 10:34 pm by funny
» Mọi người làm giúp tôi bài này với !
13/4/2011, 11:42 am by phonggia
» Giúp mình giải bài này với
12/4/2011, 1:00 pm by ldt
» Chia se 1 bai paccal ve ve do thi
11/4/2011, 1:55 pm by duy_sau_rom
» đồ hoạ trong pascal
9/4/2011, 9:16 pm by jetlongk4
» Giá trị biểu thức bằng kí pháp nghịch đảo
1/4/2011, 8:49 am by kh1132000
» AI GIẢI GIÚP EM BÀI NÀY VỚi , ĐANG CẦN GẤP GẤP LẮM :(
31/3/2011, 11:47 pm by jancancook
» dòng thời gian
31/3/2011, 11:31 am by gianggiangonline
» anh nào giúp em với
30/3/2011, 11:00 pm by sieuhoatinh
» VTC trả lương 10 triệu cho SV tốt nghiệp ĐH Văn Hiến - khoa CNTT - ĐTVT tại Hà Nội
29/3/2011, 2:48 pm by SV_tuonglai
» Download cẩm nang mùa thi 2011 tại đây
29/3/2011, 2:47 pm by SV_tuonglai
» Check giúp mình lỗi trong code này với !
27/3/2011, 10:07 pm by mamap0511
» Tai nghe sony dr 370 ve hang moi
25/3/2011, 8:42 pm by hs_bin
» giúp em với
25/3/2011, 12:11 pm by nbni
» Headphone sony dr 370 moi ve hang
24/3/2011, 9:13 pm by hs_bin
» GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
24/3/2011, 9:11 pm by tuan045610
» Headphone sony DR 370 moi ve hang
21/3/2011, 8:11 pm by hs_bin
» Sony DR 310 moi ve hang
20/3/2011, 9:34 pm by hs_bin
» Mọi người giúp dùm em!!^^
20/3/2011, 9:53 am by trangbui_thcstanhiep
» bài tập về hàm trog pascal
18/3/2011, 10:34 pm by sieuhoatinh