Chéc đúng bạn vào topic download TP 7.0 về mà test thử.
Còn bài 2 bạn chưa học chương trình con làm sao mình giải đc.
Mình định tạo 1 chương trình con tính giai thừa rùi sau đó while i/gt(i)>=0.00... (j` đó) do
S:=S+i/gt(i)+i;
writeln(S:5:1);
Chéc đúng bạn vào topic download TP 7.0 về mà test thử.
Còn bài 2 bạn chưa học chương trình con làm sao mình giải đc.
Mình định tạo 1 chương trình con tính giai thừa rùi sau đó while i/gt(i)>=0.00... (j` đó) do
S:=S+i/gt(i)+i;
writeln(S:5:1);
ko còn cách khác ah .
[=========> Bổ sung bài viết <=========]
mai mình thi học kì rui`
Được sửa bởi phucduongd2t lúc 21:05 ngày 15-12-2009 Reason: Bổ sung bài viết
i:=1; t:=1;
While i/t>=0.000002 do
begin
i:=i+1;
t:=t*i;
L:=L+i/t+i;
end;
writeln('ket qua ',L:5:2);
Ktra thử
U kiểm tra trc di cho chắc ăn
[=========> Bổ sung bài viết <=========]
mọi người hướng dẫn em bài này với:
Tính L=1/1! + 1+ 2/2! + 2+ 3/3! +....+ (m-1)+ m/m! +... cho đến khi m/m! < 0.000002
L=1/1! + 2* (2/2!) + 3* (3/3!) +.... m/m! cho đến khi m/m! < 0.000002
[=========> Bổ sung bài viết <=========]
nếu ai làm dc thì làm chuẩn lun nhé
Được sửa bởi phucduongd2t lúc 10:19 ngày 16-12-2009 Reason: Bổ sung bài viết
Mấy bạn giúp mình làm bài này theo đệ quy nha. Cảm ơn mấy bạn nhiều nha!!
Tính: S= 1+sin(x)+sin^2(x)+sin^3(x)+sin^4(x)+...+Sin^n(x).
Sao cái bạn này lười vây! Toàn bài cơ bản và dễ (không có bài nào bât chân phương và "đánh đố" hs cả mà bạn chả chịu suy nghĩ gì cả!!!!!
bài 2, bạn sửa lại nhu sau sẽ chạy. Nhơ rằng câu lênh while ... do là lệnh hợp thành và xử lý theo block vậy sau do của While phải có Begin....End; <-chỗ này là "chấm phảy"! bạn Nhokdragon94 quên điều này nên code của bạn ấy không thực thi được. Sai thứ hai của bạn nhockdragon94 ở điều kiện (biểu thức Logic giữa while và do)
Uses crt;
var i:integer;
S,a:real;
begin clrscr;
write('nhap a= ') ;readln(a);
S:=a;
i:=2;
while (i/(a+i-1)<0.00006) do
begin
S:=S+i/(a+i-1);
i:=i+1;
end;
writeln('Tong S= ',S:5:2);
readln;
End.
Bài này sai về kỹ thuật lập trình rồi, làm sao chạy nổi. Biểu thức logic sau while viết như vậy trình dịch của Pascal sẽ báo lỗi division by zero cho mà xem!!!
Muốn thiết kế được hàm đệ quy tính một biểu thức nào đó , trước hết bạn phải xác định được:
1/Trường hợp cá biệt (còn gọi là: trường hợp khởi đầu hay điểm dừng của đệ quy). trong biểu thức của bạn trường hợp cá biệt là:
n=1->S1=1+sinx
2/Công thức đệ quy là: Sn=Sn-1+sin^n(x). bây giờ bạn có thể lập trình được rồi.
Bookmarks