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

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 гэж бичихийг хэлж байгаа юм шүү дээ.

    • Баярлалаа ХҮМҮҮСЭЭ

      Манай веб хуудас үйл ажиллагаагаа явуулж эхэлснээс хойш 4 дэхь жилийнхээ нүүрийг үзэж байгаад би туйлын их баяртай байна. Анх 2010 оны 12 дугаар сарын 11-ны өдөр анхныхаа нийтлэлийг оруулж байсныг миний хувьд сайтар санаж байна. Анхны нийтлэл болоод ч тэр үү яг юу бичих ухаанаа олж өгөхгүй нэг хэсэг их сандарч байж билээ. Харин өнөөдөр эргээд харахад бид нийт 159 нийтлэл бичиж, 7 байгууллага, 4 хувь хүмүүст д зөвлөх үйлчилгээ үзүүлж, 2 удаа 20-30 хүнтэй сургалт зохион байгуулсан байна.

    • HYPERLINK Функц

      Зиак урт удаан хугацаанд уулзсангүй. Залуучууд сар шинэ дээ сайхан шинэлэв үү. Бас амралтын өдрүүдийг ая тухатай өнгөрөөж байна уу. Нийтлэл бичсэнгүй нилээд удаан хугацаа өнгөрчээ. Хамгийн сүүлд 2014.01.12-нд "Өгөгдсөн мэдээллийн байршил тодорхойлох" гэсэн нийтлэл бичсэн байна. Миний хувьд өнгөрсөн 1-р сард нэлээд ажлын ачаалал ихтэй өнгөрлөө. Учир нь гэвэл ажил дээр шалгалт шүүлэг орчихоод элдэв янзын тайлан мэдээлэл гарах ажилд дарагдлаа. Ядаж байхад цагаан сарын бэлтгэл ажил давхардаад

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

    Excel.mn

shares