Bài 5 :

- Thuật toán :

+ Bước 1 : Nhập số n

+ Bước 2 : B ← 0, i ← 0

+ Bước 3 : Nếu i > n thì đưa ra giá trị B rồi kết thúc

+ Bước 4 :

+ Bước 4.1 : S ← S + 1/ (2 * i + 1)

+ Bước 4.2 : i ← i + 1 quay lại bước 3

- Viết chương trình với For ... do

uses crt;

var i, n : integer; B : real;

begin

clrscr;

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

B := 0;

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

write('B = ', B : 2 : 2);

readln

end.

- Viết chương trình với While ... do

uses crt;

var i, n : integer; B : real;

begin

clrscr;

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

B := 0; i := 0;

while i <= n do begin

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

i := i + 1; end;

write('B = ', B : 2 : 2);

readln

end.

Bài 7 :

- Thuật toán :

+ Bước 1 : n ← 1

+ Bước 2 : Nếu 1 / n <= 0.005 thì chuyển tới bước 4

+ Bước 3 : n ← n + 1 quay lại bước 2

+ Bước 4 : Đưa ra gía trị n

+ Bước 5 : Kết thúc

- Chương trình :

uses crt;

var n : integer;

begin

clrscr;

n := 1; while 1/n > 0.005 do

n := n + 1;

write('Gia tri n = ', n);

readln

end.

$#QLinkVN$

*THUẬT TOÁN:

Bài 5: 
`-` Bước 1: Nhập số `n`
`-` Bước 2: `B ← 0` và `i ← 0`
`-` Bước 3 : Nếu `i > n` thì đưa ra giá trị `B` rồi kết thúc
`-` Bước 4:
`-` Bước 4.1: $S ← S + 1/ (2 * i + 1)$
`-` Bước 4.2: `i ← i + 1` quay lại bước 3

Bài 7 :
`-` Bước 1: `n ← 0`
`-` Bước 2: Nếu $1 / n <= 0.005$ thì chuyển tới bước 4
`-` Bước 3: `n ← n + 1` quay lại bước 2
`-` Bước 4: Đưa ra giá trị `n`
`-` Bước 5: Kết thúc 

*CHƯƠNG TRÌNH:

Bài 5: (ảnh 1)

Bài 7: (ảnh 2)