Sử dụng câu lệnh lắp để viết chương trình tính tổng các dãy sau :
a, A= 1+1/3+1/5+…+1/(2n+1)
b, B= 1+1/2+1/4+…+1/2n (n khác 0)
với n đc nhập vào từ bàn phím
Sử dụng câu lệnh lắp để viết chương trình tính tổng các dãy sau : a, A= 1+1/3+1/5+…+1/(2n+1) b, B= 1+1/2+1/4+…+1/2n (n khác 0) với n
By Natalia
a)program oken;
uses crt;
var i,n,tong:integer;
begin
write(‘nhap so phan tu cua mang: ‘); readln(n);
tong:=1;
for i:=1 to (n+n+1)
if i mod 2=1 then tong:=tong+(1/i);
writeln(‘tong cua day so A: ‘,tong);
readln;
end.
b)
program oken;
uses crt;
var i,n,tong:integer;
begin
write(‘nhap so phan tu cua mang: ‘); readln(n);
tong:=1;
for i:=1 to (n+n)
if (i mod 2=0) and (n<>0) then tong:=tong+(1/i);
writeln(‘tong cua day so B: ‘,tong);
readln;
end.
a)
uses crt;
var n,i:longint;
s:real;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to 2*n+1 do if i mod 2=1 then s:=s+1/i;
writeln(‘A=’,s:0:2);
readln;
end.
b)
uses crt;
var n,i:longint;
s:real;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to 2*n do if (i<>0) and (i mod 2=0) then s:=s+1/i;
writeln(‘B=’,s:0:2);
readln;
end.