Question

hãy viết thuật toán và chương trình tính tổng sau bằng vòng lặp while do

a, S1=1/1*3+1/2*4+1/3*5+........+1/n(n+2)

(n nhập từ bàn phím)

b, S2=1+1/2+1/4+...+1/n

Answer 1

a) uses crt;

var s,n,i:longint;

begin

clrscr;

write('Nhap n=');

readln(n);

i:=0;

s:=0;

while i<=n do

begin

inc(i);

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

end;

writeln(s);

readln

end.

b)

uses crt;

var s,n,i:longint;

begin

clrscr;

write('Nhap n=');

readln(n);

i:=0;

s:=0;

while i<=n do

begin

inc(i);

s:=s+1/i;

end;

writeln(s);

readln

end.

Answer 2

mik chỉ ghi thuật toán thôi, code bạn tự làm nhé

nhập n

i:=1;

s:=0;

chú ý đến dấu + cuối cùng, đó là cách tính s

bạn chỉ cần cho i chạy đến n rồi s:= s+ ( cái vế cuối cùng chỉ việc thay i vào chỗ của n)

VD câu a

while i<=n do

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

rồi cuối cùng xuất ra s

chúc bạn thành công

Answer 3

a) uses crt;

var s,n,i:longint;

begin

clrscr;

write('Nhap n=');

readln(n);

i:=0;

s:=0;

while i<=n do

begin

inc(i);

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

end;

writeln(s);

readln

end.

b)

uses crt;

var s,n,i:longint;

begin

clrscr;

write('Nhap n=');

readln(n);

i:=0;

s:=0;

while i<=n do

begin

inc(i);

s:=s+1/i;

end;

writeln(s);

readln

end.