Bài tập VBA cho những người rỗi. . . đủ thứ! (3 người xem)

SA_DQ đã viết:

Hãy viết hàm người dùng để xác định trị thứ N nào đó trong dẫy:

1, 2, 4, 5, 7, 8, . . .


Ví dụ bổ sung: Con số tiếp theo con số 8 sẽ là con số 10; & như vậy trong chuỗi không chứa các bội số của con số 3
​

Nhấp chuột vào đây để mở rộng...

1. Bắt đầu từ một số nguyên dương bất kỳ.
2. Nếu số đó chẵn, ta chia cho 2.
3. Nếu số đó lẻ, ta nhân với 3 rồi cộng thêm 1.
4. Lặp lại quá trình này.

ptm0412 đã viết:

Từ định nghĩa thôi
=IF(ISODD(N),N*3+1,N/2)

VBA

Mã: Sao chép.

if N mod 2 = 0 then
    x = N / 2
else
    x = N * 3 + 1
end if

Nhấp chuột vào đây để mở rộng...

huhumalu đã viết:

Dạ, đó là công thức chính của bước 2, 3; Từ đó ta lặp lại cho đến khi nó hội tụ về 1; (Hiện tại thì chắc chắn về 1);
Có thể dẫn thành bài toán: Cho số ban đầu là 2025 tìm giá trị tại vị trí thứ 23 chẳng hạn;

Nhấp chuột vào đây để mở rộng...

ptm0412 đã viết:

Công thức trên nhưng thay N bằng N + 2024

Nhấp chuột vào đây để mở rộng...

huhumalu đã viết:

1. Bắt đầu từ một số nguyên dương bất kỳ.
2. Nếu số đó chẵn, ta chia cho 2.
3. Nếu số đó lẻ, ta nhân với 3 rồi cộng thêm 1.
4. Lặp lại quá trình này.

Nhấp chuột vào đây để mở rộng...

huhumalu đã viết:

Bài toán Collatz (còn gọi là giả thuyết Collatz hay 3n + 1).

1. Bắt đầu từ một số nguyên dương bất kỳ.
2. Nếu số đó chẵn, ta chia cho 2.
3. Nếu số đó lẻ, ta nhân với 3 rồi cộng thêm 1.
4. Lặp lại quá trình này.

Từ số cho trước tìm giá trị phần tử tại vị trí chỉ định

Nhấp chuột vào đây để mở rộng...

Public Function Collatz(ByVal N As Long, N_index As Long) As Long
For i = 1 To N_index
    N = IIf(N Mod 2 = 0, N \ 2, N * 3 + 1)
Next i
Collatz = N
End Function