excel de pi,e ve karekök 2 hesaplama

[explorerman]

arkadaslar merhaba foruma yeni üye oldum, excel VBA'yada yeni başladım. hocam pi sayısı e sayısı ve karekök 2 nin virgülden sonra 100 basamagını hesaplayan bir program yazmamı istedi. daha yeni başladıgım için bi türlü yapamadım exceldeki formülleri kullanarak yapmaya calıstım ama ilk 15 basamagı hesaplıyor yardımcı olursanız cok sevinirm şimdiden teşekkür ederim.

 

[hımmmmmmmm]

slm

virgülden sonra 100 basamak değildir o...
yüzler basamağı demek istemiştir.. şu halde yaptığın doğru oluyor...

 

[uzmanamele]

Merhaba

Pi sayısı;

3.141592653589793238462643383279502884197169399375 1058209 74944592307816406286208998628034825342117067982148 08651 32823066470938446095505822317253594081284811174502 84102 70193852110555964462294895493038196442881097566593 34461 28475648233786783165271201909145648566923460348610 45432 66482133936072602491412737245870066063155881748815 20920 96282925409171536436789259036001133053054882046652 13841 46951941511609433057270365759591953092186117381932 61179 31051185480744623799627495673518857527248912279381 83011 94912983367336244065664308602139494639522473719070 21798 60943702770539217176293176752384674818467669405132 00056 81271452635608277857713427577896091736371787214684 40901 22495343014654958537105079227968925892354201995611 21290 21960864034418159813629774771309960518707211349999 99837 29780499510597317328160963185950244594553469083026 42522 30825334468503526193118817101000313783875288658753 32083 81420617177669147303598253490428755468731159562863 88235 37875937519577818577805321712268066130019278766111 95909 21642019893809525720106548586327886593615338182796 82303 01952035301852968995773622599413891249721775283479 13151 55748572424541506959508295331168617278558890750983 81754 63746493931925506040092770167113900984882401285836 16035 63707660104710181942955596198946767837449448255379 77472 68471040475346462080466842590694912933136770289891 52104 75216205696602405803815019351125338243003558764024 74964 73263914199272604269922796782354781636009341721641 21992 45863150302861829745557067498385054945885869269956 9092

 

[uzmanamele]

Merhaba

e sayısı;

2,718281828459045235360287471352662497757247093699959574966967627724076630353547594571382178525166427427466391932003059921817413596629043572900334295260595637594571382178525166427427466391932003059921817413596629043572900334295260595630727310085323780527510636864870169531418655274845908244955045339286497642774130727310085323780527510636864870169531418655274845908244955045339286497642774366416596463663250873609158413439709998317035382338009211681465541537493054202266416596463663250873609158413439709998317035382338009211681465541537493054202224617093212309491677634993111307030292569893420676439191366503848735788466107752461709321230949167763499311130703029256989342067643919136650384873578846610775
72557630792189886735379041941204337740649490707386307904924897647069836297366725576307921898867353790419412043377406494907073863079049248976437069836297366862198429250767700214157406500293826954406871877954270969766247465243666295138862198429250767700214157406500293826954406871877954270969766247465243666295138572019208303177269234097701656745392257779147341603684935723103304485761429026 57201920830317726923409770165674539225777914734160368493572310330448576142902663326352937973445040006131194164708689825975520873478293708538700943417808065663326352937973445040006131194164708689825975520873478293708538700943417808065679972807045950391701335143124387300522018405965962905857214812408421185006477579972807045950391701335143124387300522018405965962905857214812408421185006477503981794196121857336935973323362272606025181783889270251361949206078243869370203981794196121857336935973323362272606025181783889270251361949206078243869370233748144842017157072214998546561518099955089870596851120059702179691413258669283374814484201715707221499854656151809995508987059685112005970217969141325866928660231731022979729068783220835224413915990618593145821470347881544516647983266023173102297972906878322083522441391599061859314582147034788154451664798325046262522680294449747348465327518061648320621808534750359139800448221992875504626252268029444974734846532751806164832062180853475035913980044822199287541154217603073082980938059205948770772891502760946793430390896002580596245904115421760307308298093805920594877077289150276094679343039089600258059624590109090386356736454543843794457045921855094655336010469921962626941012691045810909038635673645454384379445704592185509465533601046992196262694101269104589034064772338351363261762474219705950177229749539755185497941589667406886010890340647723383513632617624742197059501772297495397551854979415896674068860108

 

[uzmanamele]

Merhaba

Karekök 2;

4142135623 7309504880 1688724209 6980785696 7187537694 8073176679 7379907324 7846210703 8850387534 3276415727 3501384623 0912297024 9248360558 5073721264 4121497099 9358314132 2266592750 5592755799 9505011527 8206057147 0109559971 6059702745 3459686201 4728517418 6408891986 0955232923 0484308714 3214508397 6260362799 5251407989 6872533965 4633180882 9640620615 2583523950 5474575028 7759961729 8355752203 3753185701 1354374603 4084988471 6038689997 0699004815 0305440277 9031645424 7823068492 9369186215 8057846311 1596668713 0130156185 6898723723 5288509264 8612494977 1542183342 0428568606 0146824720 7714358548 7415565706 9677653720 2264854470 1585880162 0758474922 6572260020 8558446652 1458398893 9443709265 9180031138 8246468157 0826301005 9485870400 3186480342 1948972782 9064104507 2636881313 7398552561 1732204024 5091227700 2269411275 7362728049 5738108967 5040183698 6836845072 5799364729 0607629969 4138047565 4823728997 1803268024 7442062926 9124859052 1810044598 4215059112 0249441341 7285314781 0580360337 1077309182 8693147101 7111168391 6581726889 4197587165 8215212822 9518488472 08969

 

[uzmanamele]

Merhaba

Pi, euler sayısı ve karekör 2 irrasyonel sayılardır.
Maalesef vba ile mesela 100.000. basamak değeri nasıl bulunur hiç bir fikrim yok.

 

[Merhum İdris SERDAR]

arkadaslar merhaba foruma yeni üye oldum, excel VBA'yada yeni başladım. hocam pi sayısı e sayısı ve karekök 2 nin virgülden sonra 100 basamagını hesaplayan bir program yazmamı istedi. daha yeni başladıgım için bi türlü yapamadım exceldeki formülleri kullanarak yapmaya calıstım ama ilk 15 basamagı hesaplıyor yardımcı olursanız cok sevinirm şimdiden teşekkür ederim.

.


VBA ile 100 basamağa kadar, daha doğrusu 16 basamaktan sonrasını hesaplanabileceğini sanmıyorum.

Ama işinize yararsa, şöyle bir yöntem izlemeniz mümkün.

Örneğin Pİ sayısı için bakınız:
http://gc3.net84.net/pi.htm

sitesinden 1 milyar basamaklıya kadar olan veya kendinizin ihtiyacı kadar basamağı aşağıdaki koda yazabilirsiniz.

'Yurttaş- 2011 Buraya istediğiniz sayının bulunmuş en yüksek basamaklısını koymak suretiyle hücreye
' Tex - metin olarak dilediğiniz uzunlukta yazmanız mümkündür.
' Örneğin Pİ sayısı için bakınız: http://gc3.net84.net/pi.htm

Function PIUZUN(Basamak As Long) As String

Const PIDEG As String = "3,141592653589793238462643383279502884" & _
"1971693993751058209749445923078164062862089986280348253421" & _
"1706798214808651328230664709384460955058223172535940812848" & _
"1117450284102701938521105559644622948954930381964428810975" & _
"6659334461284756482337867831652712019091456485669234603486" & _
"1045432664821339360726024914127372458700660631558817488152" & _
"0920962829254091715364367892590360011330530548820466521384" & _
"1469519415116094330572703657595919530921861173819326117931" & _
"0511854807446237996274956735188575272489122793818301194912" & _
"9833673362440656643086021394946395224737190702179860943702" & _
"7705392171762931767523846748184676694051320005681271452635" & _
"6082778577134275778960917363717872146844090122495343014654" & _
"9585371050792279689258923542019956112129021960864034418159" & _
"8136297747713099605187072113499999983729780499510597317328" & _
"1609631859502445945534690830264252230825334468503526193118" & _
"8171010003137838752886587533208381420617177669147303598253" & _
"4904287554687311595628638823537875937519577818577805321712" & _
"268066130019278766111959092164201989"

If Basamak <= 1000 Then
PIUZUN = Left(PIDEG, Basamak)
Else
End If
End Function

Ve herhangi bir hücreye;

=PIuzun(Basamak sayısı)

=PIuzun(1000)

Bu KTF, 1000 basamağa kadar, Pİ sayısını Text-Metin olarak hücreye yazar.

Diğer sayılar için de aynı yöntemi kullanabilirsiniz.

Örnek dosya ekte.



.

 

[explorerman]

100.basamak değil virgülden sonraki 100 basamagı istiyorum ne yazdıgımı biliyorum.yurttas kardes çok sağol ancak hoca programa hesap yaptırmamızı istedi ben gönderdiğin eki indirdim ve yarın götürcem kabul etmicektir büyük ihtimal ama boş gitmekten iyidir ) sağol.