Nhattanktnn
Thành viên gắn bó
- Tham gia
- 11/11/16
- Bài viết
- 3,111
- Được thích
- 4,024
- Donate (Momo)
- Giới tính
- Nam
Bội chung nhỏ nhất của 3 số đầu nhân đôi cộng số dư chưa nói lên điều gì về chia hết cho số cuối cùng
Tìm số bị chia với điều kiện bằng công thức excel
- Thread starter chudoan415
- Ngày gửi
Thành viên gắn bó
Về mặt toán học thì như thế này:
Gọi bội chung nhỏ nhất của 3 số đầu là A, thì số cần tìm là B = n x A + số dư.
Điều kiện để B chia hết cho số thứ 4 (d) là mod(n x A,d)=d - số dư
Gọi mod(A,d)=a, Áp dụng tính chất của số dư, mod(n x A,d) = mod(n x a,d) = d - số dư.
n = bội chung nhỏ nhất (a,d - số dư) / a.
Vậy hàm sẽ là
B=(LCM(MOD(LCM(a,b,c),d),d - số dư)/MOD(LCM(a,b,c),d))*LCM(a,b,c) + số dư
Đang viết bằng điện thoại nên hơi loằng ngoằng tí.
File đính kèm
- Tham gia
- 8/6/06
- Bài viết
- 14,346
- Được thích
- 22,408
- Nghề nghiệp
- Nuôi ba ba & trùn quế
PHP:
Function SoTim(A96 As Integer, A60 As Integer, A32 As Integer, SoDuA As Integer, _
S123 As Integer, Optional SoDu2 As Integer = 0) As Integer
Dim W As Long, Tmp1 As Long, Tmp2 As Long, Tmp3 As Integer, Tmr As Double, Dm As Integer
W = S123 - 1
Do
W = W + 1: If W > 65500 Then Exit Do
If (W - SoDu2) / S123 = (W - SoDu2) \ S123 Then
If (W - SoDuA) \ A96 = (W - SoDuA) / A96 Then
If (W - SoDuA) \ A60 = (W - SoDuA) / A60 Then
If (W - SoDuA) \ A32 = (W - SoDuA) / A32 Then
SoTim = W: Exit Function
End If
End If
End If
End If
Loop
End Function
Lần chỉnh sửa cuối:
- Tham gia
- 4/11/07
- Bài viết
- 13,879
- Được thích
- 36,422
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
Thiếu 1 chữ lờ. Là thiếu 1 chữ lờ.
Của bác = 0 nên có vẻ không hợp lý bác ạ.
Em cứ tưởng số tìm là đảo ngược tìm số của bác @bebo021999 .
=SoTim(C3;C4;C5;E3;C6;E6)
File đính kèm
Vâng, đúng thế thật. Thay đổi cứ như bảng xếp hạng bóng đá ấy.
Em đi xem bóng tí đã. Có gì tí em cập nhật tỷ số sau.
File đính kèm
- Tham gia
- 4/11/07
- Bài viết
- 13,879
- Được thích
- 36,422
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
Nếu dùng code VBA thì cứ tận dụng hàm lờ cờ mờ cho gọn, code chi mà 3, 4, 5 cái If rồi / rồi \ púa xua.
PHP:
Function MyLCM(a As Long, b As Long, c As Long, d As Long, x As Long, y As Long)
Dim Tmp As Long, Tmp2 As Long, i As Long
Tmp = Application.Lcm(a, b, c)
Const MaxX = 10 ^ 8
Do While Tmp2 < MaxX
i = i + 1
Tmp2 = i * Tmp + x
If Tmp2 Mod d = y Then
MyLCM = Tmp2
Exit Function
End If
Loop
If Tmp2 > MaxX Then MyLCM = "#Value > " & MaxX
End Function
Lần chỉnh sửa cuối:
Vâng, em chép hết vào 1 file, tăng giá trị khống chế cận trên. Máy yếu chạy không nổi luôn, phải treo 1 lúc.
Trên diễn đàn có nhiều hàm, nhiều code và nhiều cách tiếp cận hay quá.
- Tham gia
- 8/6/06
- Bài viết
- 14,346
- Được thích
- 22,408
- Nghề nghiệp
- Nuôi ba ba & trùn quế
Có thể không chơi Do . . . Loop từng bước, ta có thể xài For . . . Next nhảy cóc:
PHP:
Function TimSo(A96 As Long, B60 As Long, C32 As Long, D123 As Long, X12 As Long, Y0 As Long)
Dim Tmp As Long, W As Long, J As Long
For J = D123 + Y0 To (10) ^ 8 Step D123
If (J - X12) / A96 = (J - X12) \ A96 Then
If (J - X12) / B60 = (J - X12) \ B60 Then
If (J - X12) / C32 = (J - X12) \ C32 Then
TimSo = J: Exit Function
End If
End If
End If
Next J
End Function- Tham gia
- 8/6/06
- Bài viết
- 14,346
- Được thích
- 22,408
- Nghề nghiệp
- Nuôi ba ba & trùn quế
PHP:
Function FindNum(A96 As Long, B60 As Long, C32 As Long, D123 As Long, Du1 As Long, Du2 As Long)
Dim DK1 As Boolean, DK2 As Boolean, DK3 As Boolean, J As LongLong
For J = D123 + Du2 To (10) ^ 8 Step D123
DK1 = (J - Du1) / A96 = (J - Du1) \ A96
DK2 = (J - Du1) / B60 = (J - Du1) \ B60
DK3 = (J - Du1) / C32 = (J - Du1) \ C32
If DK1 And DK2 And DK3 Then
FindNum = J: Exit Function
End If
Next J
End Function
Phuocam
Thành viên mới
- Tham gia
- 16/5/13
- Bài viết
- 4,586
- Được thích
- 7,461
Thử công thức này
=AGGREGATE(15, 6, (LCM(C3,C4,C5)* ROW(1:1000)+E3)/(MOD( LCM(C3,C4,C5)*ROW( 1:1000)+E3,C6)=E6), 1)
chudoan415
Thành viên mới
- Tham gia
- 16/11/22
- Bài viết
- 49
- Được thích
- 6
- Giới tính
- Nữ
Em thấy các trường hợp thay số khác vào công thức của anh rất đúng. Đây là những bài tập liên quan Bộ số chung nhỏ nhất lớp 6. Em sẽ lấy toán nâng cao lớp 6 của đứa cháu ra kiểm tra thêm ạ.
- Tham gia
- 4/11/07
- Bài viết
- 13,879
- Được thích
- 36,422
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Consultant
Nếu toán lớp 6 thì tăng cận trên làm gì, không giảm thì thôi chứ. 10 ^ 8 là 100 triệu, giảm còn chừng 10 ^ 6 là vừa với lớp 6.
chudoan415
Thành viên mới
- Tham gia
- 16/11/22
- Bài viết
- 49
- Được thích
- 6
- Giới tính
- Nữ
Dạ vâng đúng rồi ạ. Toán lớp 6 chỉ tìm số nhỏ nhất thôi ạ Em ví dụ: tìm X sao cho chia 52,46,30 đều dư 12, chia 24 dư 0. X = 17952 hoặc 53832 hoặc 89712 .... Học sinh lớp 6 chỉ tìm X = 17952 là đủ rồi ạ.
Bài đã được tự động gộp:
Em đã thử các trường hợp , công thức của anh đều lấy nghiệm nhỏ nhất.
X chia 120,95,45 dư 16, chia 32 dư 0 : X = 13696
X chia 135,120,70 dư 24, chia 43 dư 0 : X = 22704
X chia 152,128,64 dư 19, chia 53 dư 0 : X = 29203
Em thấy đều đúng hết rồi ạ. Cảm ơn anh nhiều nhá. Có công thức này có kết quả rất nhanh ạ.
huuthang_bd
Chuyên gia GPE
- Tham gia
- 10/9/08
- Bài viết
- 8,723
- Được thích
- 10,855
- Donate (Momo)
- Giới tính
- Nam
- Nghề nghiệp
- Thợ đụng
Z là số cần tìm
x là số dư của Z khi chia cho a, b, c
y là số dư của Z khi chia cho d
--
Đặt A = Bội số chung nhỏ nhất của a, b, c
Chỉ cần xét đến số A*(d - 1) + x là đủ
Chứng minh:
Ta cần tính phần dư của A*n + x khi chia cho d
Khi n >= d
A*n + x = A*(k*d + m) + x = A*k*d + A*m + x (k, m nguyên dương; m < d)
Mà A*k*d chia hết cho d nên:
Phần dư của (A*n + x)/d = phần dư của (A*m + x)/d (m < d)
=> ĐPCM
--
Công thức
Mã:
=MATCH(E6,MOD(LCM(C3:C5)*ROW(INDIRECT("1:"&C6))+E3,C6),)*LCM(C3:C5)+E3
Mã:
Function TimSo(a As Long, b As Long, c As Long, d As Long, x As Long, y As Long)
Dim BSCabc As Long, i As Long
BSCabc = Application.LCM(a, b, c)
For i = 0 To d - 1
lTmp = BSCabc * i + x
If lTmp Mod d = y Then
TimSo = lTmp
Exit Function
End If
Next
TimSo = "V" & ChrW(244) & " nghi" & ChrW(234) & ChrW(803) & "m"
End Function
