10.05.2017

Tính tổng dãy

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