Duyệt ngược từ 2n+1 thôi ;)
res:=2*n+1;
While (i>1) do
Begin
res:=i-2+1/res;
i:=i-2;
End;
Writeln(res:0:3);
Type: Posts; User: quangtq; Keyword(s):
Duyệt ngược từ 2n+1 thôi ;)
res:=2*n+1;
While (i>1) do
Begin
res:=i-2+1/res;
i:=i-2;
End;
Writeln(res:0:3);
Giới hạn bao nhiêu vậy bạn? Lớn quá thì cài số lớn
Cho vào xâu là được mà. ;)
Quay lui cho đơn giản, đếm số lần xuất hiện thôi
1) Function mà vứt mấy phần đọc biến vào à :|, tham số vứt đi đâu :|
2) Function ko thấy trả về kq :|
3) Unit cơ bản gồm
Unit <tên_unit>;
Interface <khai báo các hằng, biến, ct con trong...
Bài 1 i phải chạy từ 1, vì 1/0 ko xác định.
Ý bạn có phải là tổng các 1/i với i=1..n đúng ko
S:=0;
N:=1;
While R>=S do Begin S:=S+1/N; N:=N+1; End;
Writeln(N);
Bài 2 chưa rõ ràng.
Vuông
_ Đối xứng nếu là đt vô hướng
_ Ngược lại nếu có hướng
..........................
Bài này O(n^2) mà.
8 hậu trên lí thuyết hình như là O(n!).
while làm gì. for đi :-w
Kiếm quyển DSAP mà đọc.
Trong đấy cụ thể lắm.
GG đầy