Lập trình tính tổng dãy :
1+(1/3)+(1/9)+ (1/27)+ …
Quá trình tính toán kết thúc khi số hạng cộng vào đã nhỏ hơn một số dương épsilon nhập vào từ bàn phím.
Giải
Program B119tinhtong;
Uses Crt;
Var
n,m:Longint;
e,t,tg:Real;
BEGIN
ClrScr;
Write('Nhap so duong epsilon e = '); ReadLn(e);
t:=1;n:=1;tg:=0;
Repeat
Begin
n:=n*3;
tg:=1/n;
t:=t+tg;
End;
Until tg<e;
Write('=> Tong day dung lai khi so hang cong vao < ',e:3:5,' la: S = ',t:2:3);
ReadLn;
END.
No comments:
Post a Comment
Cảm ơn bạn đã nhận xét