câu 1:
a) Hãy mô tả thuật toán để tính tổng sau đây:
T=1/1*4 + 1/2*5 + 1/3*4 +…+ 1/n*(n+3)
b) Sử dụng vòng lặp While… do, hãy viết chương trình tổng trên.
câu 1: a) Hãy mô tả thuật toán để tính tổng sau đây: T=1/1*4 + 1/2*5 + 1/3*4 +…+ 1/n*(n+3) b) Sử dụng vòng lặp While… do, hãy viết chương t
By aikhanh
a)
B1: Nhập số nguyên n
B2: i←1; T=0;
B3: Nếu i>n thì chuyển tới B5.
B4: T←T+1/(i*(i+1)); i←i+1; Quay lại B3
B5: In T và kết thúc.
b) Chương trình:
program tong_T;
uses crt;
var i,n:integer;
T:real;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
i:=1; T:=0;
while i<=n do
begin
T:=T+1/(i*(i+1));
i:=i+1;
end;
write(‘T= ‘,t:0:3);
readln;
end.
a) $B1:$ Nhập n;
$B2:$ i←1, nếu i<=n thì chuyển $B3$, Ngược lại chuyển $B4$;
$B3:$ i←i+1, rồi quay lại $B2$;
$B4:$ T←T+1/i*(i+3);
$B5:$ Thông báo kết quả và kết thúc thuật toán.
b) Chương trình:
program Cau_1;
uses crt;
var n,i: integer;
T: real;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
i:=1;
while i<=n do
begin
T:=T+1/i*(i+3);
i:=i+1;
end;
write(‘T = ‘,T:2:2);
readln
End.