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

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 функц

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

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

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

    • Sheet controler – 2 /Асуудал шийдвэрлэсэн нь…/

      Зиак залуучууд оройн мэнд хүргье. Манай сайтыг уншдаг, дэмжидэг бүх охидууд, бүсгүйчүүд, эмэгтэйчүүддээ өнгөрсөн ч гэсэн "ОЛОН УЛСЫН ЭМЭГТЭЙЧҮҮДИЙН БАЯР"-ын мэндийг хүргье. Ойрд сургалт семинар гээд ажил ихтэй байлаа. Олигтой нийтлэл ч бичиж амжсангүй. Өнөө орой цаг зав ч гайгүй байна. Ганц нийтлэл бичээд унтъя гэж бодлоо. Яг одоо манай гэрийн цаг оройны 10 цаг 21 минут болж байна.  Миний хувьд нэг нийтлэл бичихдээ гайгүй амархан нийтлэл бичвэл нэг цаг гаран, гайтай нийтлэл бичвэл нэг

    • Мэдэгдэл

      Сайн байцгаана уу. Та бүхэндээ энэ өдрийн мэндийг хүргье. Манай веб хуудас байршиж буй веб сервэрт үл мэдэгдэх алдаа гарсны улмаас тодорхой хугацаанд веб сайтын үйл ажиллагаа доголдлоо. Иймээс бид 2013 оны 6 дугаар сарын 1-ний өдрөөс эхлэн веб сайтаа үргэлжлүүлэн ажиллуулах болно. Та бүхэн энэ хугацаанд манай веб хуудасны өмнөх үеийн мэдээллүүдийг уншиж, судалж, Excel мэдлэгээ бататгаж байгаарай. Сануулж хэлэхэд манай веб хуудаснаас эрхлэн гаргасан

    • Зээлийн график хийж сурцгаая

      Би 10.0 сая төгрөгийн зээл авмаар байна. Хаан банкинд хүү нь сарын 1.8 хувь гэж байна. Хэрвээ би 3 жилийн хугацаатайгаар өдий хэмжээний зээлийг авбал сард ойролцоогоор хэдэн төгрөг төлөх бэ ? гэж (төстэй асуултууд) асуух хүмүүстэй олон удаа таарсан. Энэ тооцоог хэдийгээр эдийн засагч, санхүүч хүмүүс хийж чадах боловч энгийн, мэргэжилийн бус хүмүүс тийм ч амархан хийж чадахгүй. Хэрэв танд болон таны таньдаг хүмүүст иймэрхүү асуудал тулгарсан бол энэхүү нийтлэлийг сайтар уншаарай.

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

    Excel.mn

shares