lập trình liên phân số

[Knight1993]

Giúp em viết chương trình tính tổng của liên phân số này với
S=1+1/(3+1/(5+.....+1/(2n-1+1/(2n+1))))

[lehang_gb1]

Bài toán này sử dụng lặp với số lần lặp biết trước For - do vì N đã biết nhập từ bàn phím.
Nhận thấy các số hạng trong tổng đều có mẫu là số lẻ. Bạn có thể biết chương trình theo một trong 2 cách sau


Var i,N:integer;
S:Real;
Begin
Write('Nhap vao so nguyen duong N:'); Readln(N);
S:=1;
For i:=1 to N do S:=S+1/(2*i+1);
Write('Tong can tinh la:',S:5:2);
Readln
End.


cách khác


Var i,N:integer;
S:Real;
Begin
Write('Nhap vao so nguyen duong N:'); Readln(N);
S:=0;
For i:=1 to 2*N+1 do
if i mod 2<>0 then S:=S+1/i;
Write('Tong can tinh la:',S:5:2);
Readln
End.


[/code]