Bài 7. Câu lênh lặp

dương hà thái

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)

Nguyễn Lê Phước Thịnh
22 tháng 12 2019 lúc 18:50

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.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Huỳnh Thị Cẩm Nhi
Xem chi tiết
Trần Hằng
Xem chi tiết
Nguyến Ngọc Nguyên
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
hân phan
Xem chi tiết
Vinh Đoàn
Xem chi tiết
Huyền
Xem chi tiết
Trần Đạt
Xem chi tiết
Trần Phương Nam
Xem chi tiết