Câu 2:

Xác định điều kiện để chạy: S<=16

vòng lặp 1: s=0; n=0; `->` s<16 `->` n:=n+1; s:=s+n `->` n=1; s=1; `->` s<16 `->` chạy tiếp

vòng lặp 2: s=1; n=1; `->` s<16 `->` n:=n+1; s:=s+n `->` n=2; s=3; `->` s<16 `->` chạy tiếp

vòng lặp 3: s=3; n=2; `->` s<16 `->` n:=n+1; s:=s+n `->` n=3; s=6; `->` s<16 `->` chạy tiếp

vòng lặp 4: s=6; n=3; `->` s<16 `->` n:=n+1; s:=s+n `->` n=4; s=10; `->` s<16 `->` chạy tiếp

vòng lặp 5: s=10; n=4; `->` s<16 `->` n:=n+1; s:=s+n `->` n=5; s=15; `->` s<16 `->` chạy tiếp

vòng lặp 6: s=15; n=5; `->` s<16 `->` n:=n+1; s:=s+n `->` n=6; s=21; `->` s>16 `->` Dừng

Vậy Đoạn chương trình có 6 lần lặp

Sau vòng lặp S=21;

                      N=6;

Câu 3:

uses crt;

var i,n: integer;

s: real;

begin

clrscr;

write ('nhap n: ');  readln (n);

s:=0;

for i:=1 to n do

s:=s+(1/(i*(i+2)));

writeln ('tong la: ',s:1:2);

readln;

end.

$#Trumtinhoc$

Câu 2 :

- S := 0; n := 0

⇒ Giá trị ban đầu S = 0, n = 0

- While S <= 16 do

⇒ Điều kiện S <= 16 đúng thì thực hiện câu lệnh

⇒ Điều kiện S <= 16 sai thì kết thúc lặp

+ S <= 16  ⇒   0 < 16 ⇒ n = 0 + 1 = 1 ⇒ S =   0 + 1 =   1

+ S <= 16  ⇒   1 < 16 ⇒ n = 1 + 1 = 2 ⇒ S =   1 + 2 =   3

+ S <= 16  ⇒   3 < 16 ⇒ n = 2 + 1 = 3 ⇒ S =   3 + 3 =   6

+ S <= 16  ⇒   6 < 16 ⇒ n = 3 + 1 = 4 ⇒ S =   6 + 4 = 10

+ S <= 16  ⇒ 10 < 16 ⇒ n = 4 + 1 = 5 ⇒ S = 10 + 5 = 15

+ S <= 16  ⇒ 15 < 16 ⇒ n = 5 + 1 = 6 ⇒ S = 15 + 6 = 21

+ S <= 16  ⇒ 21 < 16 ⇒ Sai ⇒ Kết thúc lặp

⇒ Kết quả S = 21 và n = 6

Câu 3 :

uses crt;

var i, n : integer; T : real;

begin

clrscr;

write('Nhap so n = '); readln(n);

T := 0;

for i := 1 to n do T := T + 1 / (i * (i + 2));

write('T = ', T : 2 : 3);

readln

end.