câu 1: a) Hãy mô tả thuật toán để tính tổng sau đây: T=1/1*4 + 1/2*5 + 1/3*4 +…+ 1/n*(n+3) b) Sử dụng vòng lặp While… do, hãy viết chương t

0 bình luận về “câu 1: a) Hãy mô tả thuật toán để tính tổng sau đây: T=1/1*4 + 1/2*5 + 1/3*4 +…+ 1/n*(n+3) b) Sử dụng vòng lặp While… do, hãy viết chương t”

1. a)

   B1: Nhập số nguyên n

   B2: i←1;   T=0;

   B3: Nếu i>n thì chuyển tới B5.

   B4: T←T+1/(i*(i+1));  i←i+1;   Quay lại B3

   B5: In T và kết thúc.

   b) Chương trình:

   program tong_T;

   uses crt;

   var i,n:integer;

        T:real;

   begin

          clrscr;

          write(‘Nhap n: ‘);   readln(n);

          i:=1;   T:=0;

          while i<=n do

                 begin

                        T:=T+1/(i*(i+1));

                        i:=i+1;

                 end;

          write(‘T= ‘,t:0:3);

          readln;

   end.

   Bình luận

2. a) $B1:$ Nhập n;

       $B2:$ i←1, nếu i<=n thì chuyển $B3$, Ngược lại chuyển $B4$;

       $B3:$ i←i+1, rồi quay lại $B2$;

       $B4:$ T←T+1/i*(i+3);

       $B5:$ Thông báo kết quả và kết thúc thuật toán.

   b) Chương trình:

   program Cau_1;

   uses crt;

   var n,i: integer;

         T: real;

   Begin

            clrscr;

            write(‘Nhap n: ‘); readln(n);

            i:=1;

            while i<=n do

            begin

                     T:=T+1/i*(i+3);

                     i:=i+1;

            end;

            write(‘T = ‘,T:2:2);

            readln

   End.

   Bình luận