Viết chương trình sử dụng lệnh While…do hoặc For…do
a, $P=\dfrac{1}{2}.\dfrac{3}{4}.\dfrac{5}{6}.\dfrac{7}{8}…\dfrac{2n-1}{2n}$
b, $S=\dfrac{1}{2}+\dfrac{1}{2.2^2}+\dfrac{1}{2.3}+…+\dfrac{1}{2.n^2}$
Viết chương trình sử dụng lệnh While…do hoặc For…do
a, $P=\dfrac{1}{2}.\dfrac{3}{4}.\dfrac{5}{6}.\dfrac{7}{8}…\dfrac{2n-1}{2n}$
b, $S=\dfrac{1}{2}+\dfrac{1}{2.2^2}+\dfrac{1}{2.3}+…+\dfrac{1}{2.n^2}$
a) hình 1
b) hình 2
a)
uses crt;
var p:real;
i,n:integer;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
i:=1; p:=1;
while i<=(2*n-1) do
begin
p:=(p*i)/(i+1);
inc(i,2);
end;
write(p:0:3);
readln
END.
b)
uses crt;
var s:real;
i,n:integer;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(2*i*i);
write(s:0:3);
readln
END.
Xin ctlhn!