Tính S(n)=1/2+1/4+...+1/2n(thuật toán)
Mô tả thuật toán và viết chương trình tính tổng: S= 2/3+4/5+6/7+...+ 2n/2n+1
Thuật toán: B1: Nhập N;
B2: A <--- 0; i <--- 1;
B3: A <--- A + ((2*i)/(2*i+1));
B4: i <--- i + 1;
B5: Nếu i > N thì thông báo A rồi kết thúc.
B6: Quay lại bước 3;
Câu 1: Hãy viết thuật toán cho các biểu thức sau:
a) S= 1+2+3+4+...+n
b)S= 2+4+6+8+...+2n
c)S= 1+3+5+....+(2n+1)
d)S=1+1/2+1/3+1/4+...+1/n
e) S= 1+1/3+1/5+1/7+...+1/2n+1
p.s: mai mk thi rồi giúp mình với T-T
Cho biết khi thực hiện thuật toán sau, máy tính sẽ thực hiện bao nhiêu vòng lặp?
Bước 1. S ← 16, n ← 0
Bước 2. Nếu S ≤ 10, chuyển tới bước 4.
Bước 3. n ← n + 3, S ← S – n và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
A. 1
B. 2
C. 3
D. 4
Cho biết khi thực hiện thuật toán sau, máy tính sẽ thực hiện bao nhiêu vòng lặp?
Bước 1. S ← 18, n ← 0
Bước 2. Nếu S ≤ 10, chuyển tới bước 4.
Bước 3. n ← n + 3, S ← S – n và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
A. 1
B. 2
C. 3
D. 4
Cho biết khi thực hiện thuật toán sau, máy tính sẽ thực hiện bao nhiêu vòng lặp?
Bước 1. S ← 12, n ← 0
Bước 2. Nếu S ≤ 10, chuyển tới bước 4.
Bước 3. n ← n + 3, S ← S – n và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
A. 1
B. 2
C. 3
D. 4
Cho biết khi thực hiện thuật toán sau, máy tính sẽ thực hiện bao nhiêu vòng lặp?
Bước 1. S ← 14, n ← 0
Bước 2. Nếu S ≤ 10, chuyển tới bước 4.
Bước 3. n ← n + 3, S ← S – n và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
A. 1
B. 2
C. 3
D. 4
Tìm ƯCLN: a, (\(\frac{n+\left(n+1\right)}{2}\); 2n + 1)
b, {222...2 (2014 c/s 2); 222...2 (7 c/s 2)} theo thuật toán Ơclit
a) Sai đề, Phải là \(\frac{n.\left(n+1\right)}{2}\)
b) Sai đề. Phải là theo nguyên lý Đi-rích-lê
Viết thuật toán: a. Cho số nguyên dương N, tính tổng S= 1/2+2/3+3/4+...+N/N+1 Huhu ai giải gấp dum mình voi aaaaa
a. Vt chương trình =nnlt pascal Mô tả thuật toán sau Bước 1. S←1;n←0 Bước 2. Nếu s>=10;chuyển bước 4 Bước 3. N←n+2,s←s+n; quay bước 2 Bước 4 thông báo s và KT thuật toán b. khởi động phần mềm Free pascal soạn thảo lưu dịch chạy trương trình quan sát kết quả
Program HOC24;
var S,n: integer;
begin
s:=1; n:=0;
while s<10 do
begin
n:=n+2;
s:=s+n;
end;
write('S= ' ,s);
readln
end.