Mô tả hoạt động của đoạn chương trình sau và cho biết kết quả sau khi thực hiện chương trình là bao nhiêu
T:=0; i:=1;
While i<=4 do begin T:= T+1/i;i:=i+1; end;
Writeln(T);
Em đang cần gấp mọi người giúp em với ạ
Mô tả hoạt động của đoạn chương trình sau và cho biết kết quả sau khi thực hiện chương trình là bao nhiêu
T:=0; i:=1;
While i<=4 do begin T:= T+1/i;i:=i+1; end;
Writeln(T);
Em đang cần gấp mọi người giúp em với ạ
T:=0; i:=1;
i<=4 (đúng): T:=T+1/i=0+1/1=1; i:=i+1=1+1=2
i<=4 (đúng): T:=T+1/i=1+1/2=3/2; i:=2+1=3
i<=4 (đúng): T:=T+1/i=3/2+1/3=11/6; i:=3+1=4
i<=4 (đúng): T:=T+1/i=11/6+1/4=25/12; i:=4+1=5
i<=4 (sai): Kết thúc
25/12=2.0833333333 với lại không có giới hạn
Writeln(T) sẽ là: 2.833330000000000+…
Ta có 6 vòng lặp từ i = 0 tới i = 5
Ta có tổng cấp số cộng có công bội d = 2
i = 0 ta có j = 2
i = 1 ta có j = 4
i = 2 ta có j = 6
i = 3 ta có j = 8
i = 4 ta có j = 10
i = 5 ta có j = 12
Vậy sau khi thực hiện vòng lặp j = 12