Баярлалаа Б.Сонинхангай (Анхны тоо шалгагч)

10 сар 14, 2012   EXCEL.mn   No comments

Та бүхэнд амралтын өдрийн мэндийг хүргье. Би нилээд дээр буюу 2012 оны 7 дугаар сарын 20-ны өдөр Анхны тоог хэрхэн олох талаар хэн нэгнээс асуусан тухай нийтлэл оруулж байсныг та бүгд санаж байгаа байх. Энд дарж тус нийтлэлийг үзэж болно. Харин манай сайтын зочин Б.Сонинхангай өгөгсдөн тоо анхны тоо мөн эсэхийг шалгадаг нэгэн VBA кодыг оруулсан байна. Анхны тооны талаар онолын хэсгийг товчхон дурьдая. Тиймээс тус VBA кодыг хэрхэн ашиглах талаар өнөөдрийн нийтлэлдээ авч үзэх болно.

Зар сурталчилгаа

Нэг болон өөрөөсөө өөр тоонд хуваагдадгvй натурал тоог Анхны тоо гэж нэрэлдэг. Эхний хэдэн анхны тоонуудыг дурдвал: 2, 3, 5, 7, 11, 13, 17, 19, 23, 29 г.м… Харин 4, 6, 8, 9 г.м нь анхны тоо биш. Учир нь бид эдгээр тоонуудыг 4 = 2 2, 6 = 2 3, 8 = 2 2 2, 9 = 3 3 г.м – ээр өөр натурал тоонуудыг vржвэр болгон задалж болно. Эдгээр тоонуудыг зохиомол тоонууд гэдэг. Бас бид 1 – ийг анхны тоо гэж vздэггvй.

За бидэнд 1313 гэсэн тоо өгөгдсөн байна. Энэ тоо анхны тоо мөн эсэхийг хэрхэн шалгах бэ?.

Мэдээж бидэнд Б.Сонинхангай бичиж өгсөн VBA код байгаа. Түүнийг ашиглая.

Function Prime(n As Double) As Boolean
 Prime = True
 For i = 2 To Int(n ^ (1 / 2))
 If n Mod i = 0 Then
 Prime = False
 End If
 Next i
 End Function

Дээрх VBA кодыг MS Excel программын VBE-т шинээр модуль нээж бичнэ. Зурагт үзүүлэв.

Зар сурталчилгаа

За одоо MS Excel программд шилжиж өгөгдсөн 1313 тоог =PRIME() функцээр анхны тоо мөн эсэхийг шалгана.

Шалгалтын үр дүнгээс харахад 1313 гэсэн тоо анхны тоо биш байна. Учир нь тус тоо 101 гэсэн тоонд хуваагдаж байна. Харин 101 тоог анхны тоо мөн эсэхийг шалагахад хариу нь ҮНЭН гэж гарсан байна.

Одоо тус функцийг ашиглан хангалттай их тоог анхны тоо мөн эсэхийг шалгая. Бидэнд 6,515,356,427 гэсэн тоо өгөгдсөн байна.

Энэ тохиолдод #VALUE! гэсэн алдааг зааж байна. Чухам яагаад ингэж алдаа зааж байгааг би хувьдаа тайлбарлаж чадахгүй байна. Үүнийг манай зочин Б.Сонинхангай л тайлбарлаж чадна байх.

За ингээд энэ бүгдийн хариу олоход тусалсан Б.Сонинхангайдаа баярласан талархснаа Excelpedia.org болон нийт уншигч нарынхаа өмнөөс илэрхийлэе.

Зар сурталчилгаа

Бусадтай хуваалцах

Холбоотой нийтлэлүүд

Posted in: Excel VBA, Excel функц

Хариулт үлдээх

Таны и-мэйл хаягийг нийтлэхгүй.

  • Санамсаргүй сонгогдсон мэдээллүүд

    • Оньсого-Мянгачлах техник

      За хэдүүлээ зүгээр сууснаас оньсого таалцах уу? Та бүгд багадаа оньсого их л тааж байсан байх. Оньсого таана гэдэг нь нэг талаар сэтгэн бодох чадварыг хөгжүүлэх сайн талтай. Одоо таалгах гэж буй миний оньсого бол Excel программтай холбоотой оньсого юм. Оньсого ч юу байхав дээ. Нэгэн жижигхээн техник байгаа юм. Та бүгд их дүнтэй тоог мянгачлах шаардлага гардаг л байх. Өөрөөр хэлбэл 1,000,000.0 гэсэн тоог мянгачлаад (1000-д хуваана) 1,000.0 гэж бичихийг хэлж байгаа юм шүү дээ.

    • Асуудал шийдвэрлэсэн нь (Инженер н.Бат-Эрдэнэ)

      Зиак залуучууд, Exceler-үүдэд амралтын өдрийн мэнд хүргье. Та бүхэн сайхан амарч байна уу. Өнөөдөр ажил гайгүй байгаа болохоор нэгэн уншигчынхаа асуудлыг шийдэе гэж бодлоо. Нэлээд дээр манай нэгэн уншигч маань санамсаргүй сонголтын талаар нэг асуултыг өөрийн Facebook group (Engineering software users and developers) дээрээ асууж байсан юм.  Тухайн үед юун Excel, миний амралт маань ид дундаа орж байсан болохоор компьютер асаах ч сонирхолгүй үе таарсан. Одоо ч асуудлынх нь ач холбогдол

    • Тоо бодлого-1 (Түрээсийн тооцоо)

      За та бүхэндээ өглөөний мэнд хүргье. Амралтын өдрүүд эхэлж байна. Иймээс нэг сайхан тоо бодоё гэж бодлоо. Ер нь Excel программын нэг гол үүрэг бол тооцоолон бодох процессийг хялбаршуулах явдал юм. Иймд энэхүү гайхамшигтай чадварыг нь ашиглах зорилгоор нэгэн хялбархаан Excel бодлогын тавилыг зохиоё. Нэгэн тээвэрийн компани нийт 242 машинтайгаар үйл ажиллагаагаа эрэхлэн явуулдаг. Тэдгээр машинуудынхаа 24-ийг нь бусдад түрээслэн ашиглуулдаг бөгөөд тухайн нэг сарын түрээсийн үнэ нь түрээслэгчийн тухайн сард явсан

  • Like дараад байгаарай найзуудаа

    Excel.mn

shares