Question

Xác định bài toán, mô tả thuật toán và viết chương trình tính tổng của dãy số sau:

a) T= 1+1/2+1/3+...+1/n

b)T=1/1,3+1/2,4+1/3,5+...+1/n(n+2)

Answer 1

a)

*Xác định bài toán

-input: số n

-output: tính tổng của \(1+\frac{1}{2}+\frac{1}{3}+\frac{1}{4}+...+\frac{1}{n}\)

*Mô tả thuật toán:

-Bước 1: nhập n

-Bước 2: s:=0; i:=1;

-Bước 3: s:=s+1/i;

-Bước 4: inc(i);

-Bước 5: nếu i<=n thì quay lại bước 3

-Bước 6: Xuất s

-Bước 7: Kết thúc

*Viết chương trình:

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do

s:=s+1/i;

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

readln;

end.

b)

*Xác định bài toán

-input: số n

-output: tính tổng \(\frac{1}{1\cdot3}+\frac{1}{2\cdot4}+\frac{1}{3\cdot5}+...+\frac{1}{n\cdot\left(n+2\right)}\)

*Mô tả thuật toán

-Bước 1: nhập n

-Bước 2: s:=0; i:=1;

-Bước 3: s:=s+1/(i*(i+2));

-Bước 4: i:=i+1;

-Bước 5: nếu i<=n thì quay lại bước 3

-Bước 6: Xuất s

-Bước 7: Kết thúc

*Viết chương trình:

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do

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

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

readln;

end.