VB计算圆周率

原创 2006年06月06日 09:30:00

'采用普遍的傅立叶级数展开方法 pi=2+1/3*(2+2/5*(2+3/7*(2+4/9*(2+5/11  .....))))))

'输入:需计算的圆周率位数,理论精度约30万位

 'Add a commandbutton and textbox(multine=true,scrollbars=both) to form1

Option Explicit

 

Private Sub Command1_Click()
getpi CLng(InputBox("生成多少位数(1-50000)的PI?", "提示", 30000))
End Sub

 

 

Sub getpi(Optional ByVal nums As Long = 10000)
nums = nums / 5
Dim max As Long, laptime As Single, result() As String

Dim i As Long, j As Long, t, d As Long, g, k As Long, f()
laptime = Timer
max = 18 * nums
ReDim f(0 To max)
ReDim result(nums)
For i = 0 To max
f(i) = 20000
Next
result(0) = "π=" & vbCrLf
g = 20000
For j = max To 1 Step -18
t = 0

For i = j To 1 Step -1
t = t + f(i) * 100000
d = 2 * i + 1

f(i) = t - Int(t / d) * d
t = Int(t / d) * i
Next
k = k + 1
result(k) = Format(Int(g + t / 100000) Mod 100000, "00000")
If k Mod 20 = 0 Then result(k) = result(k) & vbCrLf
If k Mod 200 = 0 Then result(k) = result(k) & "---[" & k * 5 & "]---" & vbCrLf
g = t Mod 100000
Next
Text1.Text = Join(result, " ")
Me.Caption = "计算完毕!总计用时" & Timer - laptime & "秒!"
End Sub

返回:

π=
 31415 92653 58979 32384 62643 38327 95028 84197 16939 93751 05820 97494 45923 07816 40628 62089 98628 03482 53421 17067
 98214 80865 13282 30664 70938 44609 55058 22317 25359 40812 84811 17450 28410 27019 38521 10555 96446 22948 95493 03819
 64428 81097 56659 33446 12847 56482 33786 78316 52712 01909 14564 85669 23460 34861 04543 26648 21339 36072 60249 14127
 37245 87006 60631 55881 74881 52092 09628 29254 09171 53643 67892 59036 00113 30530 54882 04665 21384 14695 19415 11609
 43305 72703 65759 59195 30921 86117 38193 26117 93105 11854 80744 62379 96274 95673 51885 75272 48912 27938 18301 19491
 29833 67336 24406 56643 08602 13949 46395 22473 71907 02179 86094 37027 70539 21717 62931 76752 38467 48184 67669 40513
 20005 68127 14526 35608 27785 77134 27577 89609 17363 71787 21468 44090 12249 53430 14654 95853 71050 79227 96892 58923
 54201 99561 12129 02196 08640 34418 15981 36297 74771 30996 05187 07211 34999 99983 72978 04995 10597 31732 81609 63185
 95024 45945 53469 08302 64252 23082 53344 68503 52619 31188 17101 00031 37838 75288 65875 33208 38142 06171 77669 14730
 35982 53490 42875 54687 31159 56286 38823 53787 59375 19577 81857 78053 21712 26806 61300 19278 76611 19590 92164 20198
---[1000]---
 93809 52572 01065 48586 32788 65936 15338 18279 68230 30195 20353 01852 96899 57736 22599 41389 12497 21775 28347 91315
 15574 85724 24541 50695 95082 95331 16861 72785 58890 75098 38175 46374 64939 31925 50604 00927 70167 11390 09848 82401
 28583 61603 56370 76601 04710 18194 29555 96198 94676 78374 49448 25537 97747 26847 10404 75346 46208 04668 42590 69491
 29331 36770 28989 15210 47521 62056 96602 40580 38150 19351 12533 82430 03558 76402 47496 47326 39141 99272 60426 99227
 96782 35478 16360 09341 72164 12199 24586 31503 02861 82974 55570 67498 38505 49458 85869 26995 69092 72107 97509 30295
 53211 65344 98720 27559 60236 48066 54991 19881 83479 77535 66369 80742 65425 27862 55181 84175 74672 89097 77727 93800
 08164 70600 16145 24919 21732 17214 77235 01414 41973 56854 81613 61157 35255 21334 75741 84946 84385 23323 90739 41433
 34547 76241 68625 18983 56948 55620 99219 22218 42725 50254 25688 76717 90494 60165 34668 04988 62723 27917 86085 78438
 38279 67976 68145 41009 53883 78636 09506 80064 22512 52051 17392 98489 60841 28488 62694 56042 41965 28502 22106 61186
 30674 42786 22039 19494 50471 23713 78696 09563 64371 91728 74677 64657 57396 24138 90865 83264 59958 13390 47802 75900
---[2000]---
 99465 76407 89512 69468 39835 25957 09825 82262 05224 89407 72671 94782 68482 60147 69909 02640 13639 44374 55305 06820
 34962 52451 74939 96514 31429 80919 06592 50937 22169 64615 15709 85838 74105 97885 95977 29754 98930 16175 39284 68138
 26868 38689 42774 15599 18559 25245 95395 94310 49972 52468 08459 87273 64469 58486 53836 73622 26260 99124 60805 12438
 84390 45124 41365 49762 78079 77156 91435 99770 01296 16089 44169 48685 55848 40635 34220 72225 82848 86481 58456 02850
 60168 42739 45226 74676 78895 25213 85225 49954 66672 78239 86456 59611 63548 86230 57745 64980 35593 63456 81743 24112
 51507 60694 79451 09659 60940 25228 87971 08931 45669 13686 72287 48940 56010 15033 08617 92868 09208 74760 91782 49385
 89009 71490 96759 85261 36554 97818 93129 78482 16829 98948 72265 88048 57564 01427 04775 55132 37964 14515 23746 23436
 45428 58444 79526 58678 21051 14135 47357 39523 11342 71661 02135 96953 62314 42952 48493 71871 10145 76540 35902 79934
 40374 20073 10578 53906 21983 87447 80847 84896 83321 44571 38687 51943 50643 02184 53191 04848 10053 70614 68067 49192
 78191 19793 99520 61419 66342 87544 40643 74512 37181 92179 99839 10159 19561 81467 51426 91239 74894 09071 86494 23196
---[3000]---
 15679 45208 09514 65502 25231 60388 19301 42093 76213 78559 56638 93778 70830 39069 79207 73467 22182 56259 96615 01421
 50306 80384 47734 54920 26054 14665 92520 14974 42850 73251 86660 02132 43408 81907 10486 33173 46496 51453 90579 62685
 61005 50810 66587 96998 16357 47363 84052 57145 91028 97064 14011 09712 06280 43903 97595 15677 15770 04203 37869 93600
 72305 58763 17635 94218 73125 14712 05329 28191 82618 61258 67321 57919 84148 48829 16447 06095 75270 69572 20917 56711
 67229 10981 69091 52801 73506 71274 85832 22871 83520 93539 65725 12108 35791 51369 88209 14442 10067 51033 46711 03141
 26711 13699 08658 51639 83150 19701 65151 16851 71437 65761 83515 56508 84909 98985 99823 87345 52833 16355 07647 91853
 58932 26185 48963 21329 33089 85706 42046 75259 07091 54814 16549 85946 16371 80270 98199 43099 24488 95757 12828 90592
 32332 60972 99712 08443 35732 65489 38239 11932 59746 36673 05836 04142 81388 30320 38249 03758 98524 37441 70291 32765
 61809 37734 44030 70746 92112 01913 02033 03801 97621 10110 04492 93215 16084 24448 59637 66983 89522 86847 83123 55265
 82131 44957 68572 62433 44189 30396 86426 24341 07732 26978 02807 31891 54411 01044 68232 52716 20105 26522 72111 66039
---[4000]---
 66655 73092 54711 05578 53763 46682 06531 09896 52691 86205 64769 31257 05863 56620 18558 10072 93606 59876 48611 79104
 53348 85034 61136 57686 75324 94416 68039 62657 97877 18556 08455 29654 12665 40853 06143 44431 85867 69751 45661 40680
 07002 37877 65913 44017 12749 47042 05622 30538 99456 13140 71127 00040 78547 33269 93908 14546 64645 88079 72708 26683
 06343 28587 85698 30523 58089 33065 75740 67954 57163 77525 42021 14955 76158 14002 50126 22859 41302 16471 55097 92592
 30990 79654 73761 25517 65675 13575 17829 66645 47791 74501 12996 14890 30463 99471 32962 10734 04375 18957 35961 45890
 19389 71311 17904 29782 85647 50320 31986 91514 02870 80859 90480 10941 21472 21317 94764 77726 22414 25485 45403 32157
 18530 61422 88137 58504 30633 21751 82979 86622 37172 15916 07716 69254 74873 89866 54949 45011 46540 62843 36639 37900
 39769 26567 21463 85306 73609 65712 09180 76383 27166 41627 48888 00786 92560 29022 84721 04031 72118 60820 41900 04229
 66171 19637 79213 37575 11495 95015 66049 63186 29472 65473 64252 30817 70367 51590 67350 23507 28354 05670 40386 74351
 36222 24771 58915 04953 09844 48933 30963 40878 07693 25993 97805 41934 14473 77441 84263 12986 08099 88868 74132 60472
---[5000]---
 15695 16239 65864 57302 16315 98193 19516 73538 12974 16772 94786 72422 92465 43668 00980 67692 82382 80689 96400 48243
 54037 01416 31496 58979 40924 32378 96907 06977 94223 62508 22168 89573 83798 62300 15937 76471 65122 89357 86015 88161
 75578 29735 23344 60428 15126 27203 73431 46531 97777 41603 19906 65541 87639 79293 34419 52154 13418 99485 44473 45673
 83162 49934 19131 81480 92777 71038 63877 34317 72075 45654 53220 77709 21201 90516 60962 80490 92636 01975 98828 16133
 23166 63652 86193 26686 33606 27356 76303 54477 62803 50450 77723 55471 05859 54870 27908 14356 24014 51718 06246 43626
 79456 12753 18134 07833 03362 54232 78394 49753 82437 20583 53114 77119 92606 38133 46776 87969 59703 09833 91307 71098
 70408 59133 74641 44282 27726 34659 47047 45878 47787 20192 77152 80731 76790 77071 57213 44473 06057 00733 49243 69311
 38350 49316 31284 04251 21925 65179 80694 11352 80131 47013 04781 64378 85185 29092 85452 01165 83934 19656 21349 14341
 59562 58658 65570 55269 04965 20985 80338 50722 42648 29397 28584 78316 30577 77560 68887 64462 48246 85792 60395 35277
 34803 04802 90058 76075 82510 47470 91643 96136 26760 44925 62742 04208 32085 66119 06254 54337 21315 35958 45068 77246
---[6000]---
 02901 61876 67952 40616 34252 25771 95429 16299 19306 45537 79914 03734 04328 75262 88896 39958 79475 72917 46426 35745
 52540 79091 45135 71113 69410 91193 93251 91076 02082 52026 18798 53188 77058 42972 59167 78131 49699 00901 92116 97173
 72784 76847 26860 84900 33770 24242 91651 30050 05168 32336 43503 89517 02989 39223 34517 22013 81280 69650 11784 40874
 51960 12122 85993 71623 13017 11444 84640 90389 06449 54440 06198 69075 48516 02632 75052 98349 18740 78668 08818 33851
 02283 34508 50486 08250 39302 13321 97155 18430 63545 50076 68282 94930 41377 65527 93975 17546 13953 98468 33936 38304
 74611 99665 38581 53842 05685 33862 18672 52334 02830 87112 32827 89212 50771 26294 63229 56398 98989 35821 16745 62701
 02183 56462 20134 96715 18819 09730 38119 80049 73407 23961 03685 40664 31939 50979 01906 99639 55245 30054 50580 68550
 19567 30229 21913 93391 85680 34490 39820 59551 00226 35353 61920 41994 74553 85938 10234 39554 49597 78377 90237 42161
 72711 17236 43435 43947 82218 18528 62408 51400 66604 43325 88856 98670 54315 47069 65747 45855 03323 23342 10730 15459
 40516 55379 06866 27333 79958 51156 25784 32298 82737 23198 98757 14159 57811 19635 83300 59408 73068 12160 28764 96286
---[7000]---
 74460 47746 49159 95054 97374 25626 90104 90377 81986 83593 81465 74126 80492 56487 98556 14537 23478 67330 39046 88383
 43634 65537 94986 41927 05638 72931 74872 33208 37601 12302 99113 67938 62708 94387 99362 01629 51541 33714 24892 83072
 20126 90147 54668 47653 57616 47737 94675 20049 07571 55527 81965 36213 23926 40616 01363 58155 90742 20202 03187 27760
 52772 19005 56148 42555 18792 53034 35139 84425 32234 15762 33610 64250 63904 97500 86562 71095 35919 46589 75141 31034
 82276 93062 47435 36325 69160 78154 78181 15284 36679 57061 10861 53315 04452 12747 39245 44945 42368 28860 61340 84148
 63776 70096 12071 51249 14043 02725 38607 64823 63414 33462 35189 75766 45216 41376 79690 31495 01910 85759 84423 91986
 29164 21939 94907 23623 46468 44117 39403 26591 84044 37805 13338 94525 74239 95082 96591 22850 85558 21572 50310 71257
 01266 83024 02929 52522 01187 26767 56220 41542 05161 84163 48475 65169 99811 61410 10029 96078 38690 92916 03028 84002
 69104 14079 28862 15078 42451 67090 87000 69928 21206 60418 37180 65355 67252 53256 75328 61291 04248 77618 25829 76515
 79598 47035 62226 29348 60034 15872 29805 34989 65022 62917 48788 20273 42092 22245 33985 62647 66914 90556 28425 03912
---[8000]---
 75771 02840 27998 06636 58254 88926 48802 54566 10172 96702 66407 65590 42909 94568 15065 26530 53718 29412 70336 93137
 85178 60904 07086 67114 96558 34343 47693 38578 17113 86455 87367 81230 14587 68712 66034 89139 09562 00993 93610 31029
 16161 52881 38437 90990 42317 47336 39480 45759 31493 14052 97634 75748 11935 67091 10137 75172 10080 31559 02485 30906
 69203 76719 22033 22909 43346 76851 42214 47737 93937 51703 44366 19910 40337 51117 35471 91855 04644 90263 65512 81622
 88244 62575 91633 30391 07225 38374 21821 40883 50865 73917 71509 68288 74782 65699 59957 44906 61758 34413 75223 97096
 83408 00535 59849 17541 73818 83999 44697 48676 26551 65827 65848 35884 53142 77568 79002 90951 70283 52971 63445 62129
 64043 52311 76006 65101 24120 06597 55851 27617 85838 29204 19748 44236 08007 19304 57618 93234 92292 79650 19875 18721
 27267 50798 12554 70958 90455 63579 21221 03334 66974 99235 63025 49478 02490 11419 52123 82815 30911 40790 73860 25152
 27429 95818 07247 16259 16685 45133 31239 48049 47079 11915 32673 43028 24418 60414 26363 95480 00448 00267 04962 48201
 79289 64766 97583 18327 13142 51702 96923 48896 27668 44032 32609 27524 96035 79964 69256 50493 68183 60900 32380 92934
---[9000]---
 59588 97069 53653 49406 03402 16654 43755 89004 56328 82250 54525 56405 64482 46515 18754 71196 21844 39658 25337 54388
 56909 41130 31509 52617 93780 02974 12076 65147 93942 59029 89695 94699 55657 61218 65619 67337 86236 25612 52163 20862
 86922 21032 74889 21865 43648 02296 78070 57656 15144 63204 69279 06821 20738 83778 14233 56282 36089 63208 06822 24680
 12248 26117 71858 96381 40918 39036 73672 22088 83215 13755 60037 27983 94004 15297 00287 83076 67094 44745 60134 55641
 72543 70906 97939 61225 71429 89467 15435 78468 78861 44458 12314 59357 19849 22528 47160 50492 21242 47014 12147 80573
 45510 50080 19086 99603 30276 34787 08108 17545 01193 07141 22339 08663 93833 95294 25786 90507 64310 06383 51983 43893
 41596 13185 43475 46495 56978 10382 93097 16465 14384 07007 07360 41123 73599 84345 22516 10507 02705 62352 66012 76484
 83084 07611 83013 05279 32054 27462 86540 36036 74532 86510 57065 87488 22569 81579 36789 76697 42205 75059 68344 08697
 35020 14102 06723 58502 00724 52256 32651 34105 59240 19027 42162 48439 14035 99895 35394 59094 40704 69120 91409 38700
 12645 60016 23742 88021 09276 45793 10657 92295 52498 87275 84610 12648 36999 89225 69596 88159 20560 01016 55256 37567
---[10000]---
 85667 22796 61988 57827 94848 85583 43975 18744 54551 29656 34434 80396 64205 57982 93680 43522 02770 98429 42325 33022
 57634 18070 39476 99415 97915 94530 06975 21482 93366 55566 15678 73640 05366 65641 65473 21704 39035 21329 54352 91694
 14599 04160 87532 01868 37937 02348 88689 47915 10716 37852 90234 52924 40773 65949 56305 10074 21087 14261 34974 59561
 51384 98713 75704 71017 87957 31042 29690 66670 21449 86374 64595 28082 43694 45789 77233 00487 64765 24133 90759 20434
 01963 40391 14732 02338 07150 95222 01068 25634 27471 64602 43354 40051 52126 69324 93419 67397 70415 95683 75355 51667
 30273 90074 97297 36354 96453 32888 69844 06119 64961 62773 44951 82736 95588 22075 73551 76651 58985 51909 86665 39354
 94810 68873 20685 99075 40792 34240 23009 25900 70173 19603 62254 75647 89406 47548 34664 77604 11463 23390 56513 43306
 84495 39790 70903 02346 04614 70961 69688 68850 14083 47040 54607 42958 69913 82966 82468 18571 03188 79065 28703 66508
 32431 97440 47718 55678 93482 30894 31068 28702 72280 97362 48093 99627 06074 72645 53992 53994 42808 11373 69433 88729
 40630 79261 59599 54626 24629 70706 25948 45569 03471 19729 96409 08941 80595 34393 25123 62355 08134 94900 43642 78527
---[11000]---
 13831 59125 68989 29519 64272 87573 94691 42725 34366 94153 23610 04537 30488 19855 17065 94121 73524 62589 54873 01676
 00298 86592 57866 28561 24966 55235 33829 42878 54253 40483 08330 70165 37228 56355 91525 34784 45981 83134 11290 01999
 20598 13522 05117 33658 56407 82648 49427 64411 37639 38669 24803 11836 44536 98589 17544 26473 99882 28462 18449 00877
 76977 63127 95722 67265 55625 96282 54276 53183 00134 07092 23343 65779 16012 80931 79401 71859 85999 33849 23549 56400
 57099 55856 11349 80252 49906 69842 33017 35035 80440 81168 55265 31170 99570 89942 73287 09258 48789 44364 60050 41089
 22669 17835 25870 78595 12983 44172 95351 95378 85534 57374 26085 90290 81765 15578 03905 94640 87350 61232 26112 00937
 31080 48548 52635 72282 57682 03416 05048 46627 75045 00312 62008 00799 80492 54853 46941 46977 51649 32709 50493 46393
 82432 22718 85159 74054 70214 82897 11177 79237 61225 78873 47718 81968 25462 98126 86858 17050 74027 25502 63329 04497
 62778 94423 62167 41191 86269 43965 06715 15779 58675 64823 99391 76042 60176 33870 45499 01761 43641 20469 21823 70764
 88783 41968 96861 18155 81587 36062 93860 38101 71215 85527 26683 00823 83404 65647 58804 05138 08016 33638 87421 63714
---[12000]---
 06435 49556 18689 64112 28214 07533 02655 10042 41048 96783 52858 82902 43670 90488 71181 90909 49453 31442 18287 66181
 03100 73547 70549 81596 80772 00947 46961 34360 92861 48494 17850 17180 77930 68108 54690 00944 58995 27942 43981 39213
 50558 64221 96483 49151 26390 12803 83200 10977 38680 66287 79239 71801 46134 32445 72640 09737 42570 07359 21003 15415
 08936 79300 81699 80536 52027 60072 77496 74584 00283 62405 34603 72634 16554 25902 76018 34840 30681 13818 55105 97970
 56640 07509 42608 78857 35796 03732 45141 46786 70368 80988 06097 16425 84975 95138 06930 94494 01515 42222 19432 91302
 17391 25383 55915 03100 33303 25111 74915 69691 74502 71494 33151 55885 40392 21640 97229 10112 90355 21815 76282 32831
 82342 54832 61119 12800 92825 25619 02052 63016 39114 77247 33148 57391 07775 87442 53876 11746 57867 11694 14776 42144
 11112 63583 55387 13610 11023 26798 77564 10246 82403 22648 34641 76636 98066 37857 68134 92045 30224 08197 27856 47198
 39630 87815 43221 16691 22464 15911 77673 22532 64335 68614 61865 45222 68126 88726 84459 68442 41610 78540 16768 14208
 08850 28005 41436 13146 23082 10259 41737 56238 99420 75713 62751 67457 31891 89456 28352 57044 13354 37585 75342 69869
---[13000]---
 94725 47031 65661 39919 99682 62824 72706 41336 22217 89239 03176 08542 89437 33935 61889 16512 50424 40400 89527 19837
 87386 48058 47268 95462 43882 34375 17885 20143 95600 57104 81194 98842 39060 61369 57342 31559 07967 03461 49143 44788
 63604 10318 23507 36502 77859 08975 78272 73130 50488 93989 00992 39135 03373 25085 59826 55867 08924 26124 29473 67019
 39077 27130 70686 91709 26462 54842 32407 48550 36608 01360 46689 51184 00936 68609 54632 50021 45852 93095 00009 07151
 05823 62672 93264 53738 21049 38724 99669 93394 24685 51648 32611 34146 11068 02674 46637 33437 53407 64294 02668 29738
 65220 93570 16263 84648 52851 49036 29320 19919 96882 85171 83953 66913 45222 44470 80459 23966 02817 15655 15656 66111
 35982 31122 50628 90585 49145 09715 75539 00243 93153 51909 02107 11945 73002 43880 17661 50352 70862 60253 78817 97519
 47806 10137 15004 48991 72100 22201 33501 31060 16391 54158 95780 37117 79277 52259 78742 89191 79155 22417 18958 53616
 80594 74123 41933 98420 21874 56492 56443 46239 25319 53135 10331 14763 94911 99507 28584 30658 36193 53693 29699 28983
 79149 41939 40608 57248 63968 83690 32655 64364 21664 42576 07914 71086 99843 15733 74964 88352 92769 32822 07629 47282
---[14000]---
 38153 74099 61545 59879 82598 91093 71712 62182 83025 84811 23890 11968 22142 94576 67580 71865 38065 06487 02613 38928
 22994 97257 45303 32838 96381 84394 47707 79402 28435 98834 10035 83854 23897 35424 39564 75556 84095 22484 45541 39239
 41000 16207 69363 68467 76413 01781 96593 79971 55746 85419 46334 89374 84391 29742 39143 36593 60410 03523 43777 06588
 86778 11394 98616 47874 71407 93263 85873 86247 32889 64564 35987 74667 63847 94665 04074 11182 56583 78878 45485 81489
 62961 27399 84134 42726 08606 18724 55452 36064 31537 10112 74680 97787 04464 09475 82803 48769 75894 83282 41239 29296
 05829 48619 19667 09189 58089 83320 12103 18430 34012 84951 16203 53428 01441 27617 28583 02435 59830 03204 20245 12072
 87253 55811 95840 14918 09692 53395 07577 84000 67465 52603 14461 67050 82768 27722 23534 19110 26341 63157 14740 61238
 50425 84598 84199 07611 28725 80591 13935 68960 14316 68283 17632 35673 25417 07342 08173 32230 46298 79928 04908 51409
 47903 68878 68789 49305 46955 70307 26190 09502 07643 34933 59106 02454 50864 53628 93545 68629 58531 31533 71838 68265
 61786 22736 37169 75774 18302 39860 06591 48161 64049 44965 01173 21313 89574 70620 88474 80236 53710 31150 89842 79927
---[15000]---
 54426 85327 79743 11395 14357 41722 19759 79935 96852 52285 74526 37962 89612 69157 23579 86620 57340 83757 66873 88426
 64059 90993 50500 08133 75432 45463 59675 04844 23528 48747 01443 54541 95762 58473 56421 61981 34073 46854 11176 68831
 18654 48937 76979 56651 72796 62326 71481 03386 43913 75186 59467 30024 43450 05449 95399 74237 23287 12494 83470 60440
 63471 60632 58306 49829 79551 01095 41836 23503 03094 53097 33583 44628 39476 30477 56450 15008 50757 89495 48931 39394
 48992 16125 52559 77014 36858 94358 58775 26379 62559 70816 77643 80012 54365 02371 41278 34679 26101 99558 52247 17220
 17772 37004 17808 41942 39487 25406 80155 60359 98390 54898 57235 46745 64239 05858 50216 71903 13952 62944 55439 13166
 31345 30893 90620 46784 38778 50542 39390 52473 13620 12947 69187 49751 91011 47231 52893 26772 53391 81466 07300 08902
 77689 63114 81090 22097 24520 75916 72970 07850 58071 71863 81054 96797 31001 67870 85069 42070 92232 90807 03832 63453
 45203 80278 60990 55690 01341 37182 36837 09919 49516 48960 07550 49341 26787 64367 46384 90206 39640 19766 68559 23356
 54639 13836 31857 45698 14719 62108 41080 96188 46054 56039 03845 53437 29141 44651 34749 40784 88442 37721 75154 33426
---[16000]---
 03066 98831 76833 10011 33108 69042 19390 31080 14378 43341 51370 92435 30136 77631 08491 35161 56422 69847 50743 03297
 16746 96406 66531 52703 53254 67112 66752 24605 51199 58183 19637 63707 61799 19192 03579 58200 75956 05302 34626 77579
 43936 30746 30569 01080 11494 27141 00939 13691 38107 25813 78135 78940 05599 50018 35425 11841 72136 05572 75221 03526
 80373 57265 27922 41737 36057 51127 88721 81908 44900 61780 13889 71077 08229 31002 79766 59358 38758 90939 56881 48560
 26322 43937 26562 47277 60378 90814 45883 78550 19702 84377 93624 07825 05270 48758 16470 32458 12908 78395 23245 32378
 96029 84166 92254 89649 71560 69811 92186 58492 67704 03956 48127 81021 79913 21741 63058 10554 59880 13004 84562 99765
 11212 41536 37451 50056 35070 12781 59267 14241 34210 33015 66165 35602 47338 07843 02865 52572 22753 04999 88370 15348
 79300 80626 01809 62381 51613 66903 34111 13865 38510 91936 73938 35229 34588 83225 50887 06450 75394 73952 04396 80790
 67086 80644 50969 86548 80168 28743 43786 12645 38158 34280 75306 18454 85903 79821 79945 99681 15441 97425 36344 39960
 29025 10015 88827 21647 45006 82070 41937 61584 54712 31834 60072 62933 95505 48239 55713 72568 40232 26821 30124 76794
---[17000]---
 52264 48209 10235 64775 27230 82081 06351 88991 52692 88910 84555 71126 60396 50343 97896 27825 00161 10153 23516 05196
 55904 21184 49499 07789 99200 73294 76905 86857 78787 20982 90135 29566 13978 88486 05097 86085 95701 77312 98155 31495
 16814 67176 95976 09942 10036 18355 91387 77817 69845 87581 04466 28399 88060 06162 29848 61693 53373 86578 77359 83361
 61338 41338 53684 21197 89389 00185 29569 19678 04554 48285 84837 01170 96721 25353 38758 62158 23101 33103 87766 82721
 15726 94951 81795 89754 69399 26421 97915 52338 57662 31676 27547 57035 46994 14892 90413 01863 86119 43919 62838 87054
 36777 43224 27680 91323 65449 48536 67680 00001 06526 24854 73055 86159 89991 40170 76983 85483 18875 01429 38908 99506
 85453 07651 16803 33732 22651 75662 20752 69517 91442 25280 81651 71667 76672 79303 54851 54204 02381 74608 92328 39170
 32754 25750 86765 51178 59395 00279 33895 92057 66827 89677 64453 18404 04185 54010 43513 48389 53120 13263 78369 28358
 08271 93783 12654 96174 59970 56745 07183 32065 03455 66440 34490 45362 75600 11250 18433 56073 61222 76594 92783 93706
 47842 64567 63388 18807 56561 21689 60504 16113 90390 63960 16202 21536 84941 09260 53876 88714 83798 95599 99112 09916
---[18000]---
 46464 41191 85682 77004 57424 34340 21672 27644 55893 30127 78158 68695 25069 49936 46101 75685 06016 71453 54315 81480
 10545 88605 64550 13320 37586 45485 84032 40298 71709 34809 10556 21167 15468 48477 80394 47569 79804 26318 09917 56422
 80987 39987 66973 23769 57370 15808 06822 90459 92123 66168 90259 62730 43067 93165 31149 40176 47376 93873 51409 33618
 33216 14280 21497 63399 18983 54848 75625 29875 24238 73077 55955 59554 65196 39440 18218 40998 41248 98262 36737 71467
 22606 16336 43296 40633 57281 07078 87581 64043 81485 01884 11431 88598 82769 44901 19321 29682 71588 84133 86943 46828
 59006 66408 06314 07775 77257 05630 72940 04929 40302 42049 84165 65479 73670 54855 80445 86572 02276 37840 46682 33798
 52827 10578 43197 53541 79501 13472 73625 77408 02134 76826 04502 28515 79795 79764 74670 22840 99956 16015 69108 90384
 58245 02679 26594 20555 03958 79229 81852 64800 70683 76504 18365 62094 55543 46135 13415 25700 65974 88191 63413 59556
 71964 96540 32187 27160 26485 93049 03978 74895 89066 12725 07948 28276 93895 35217 53621 85079 62977 85146 18843 27192
 23223 81015 87444 50528 66523 80225 32843 89137 52738 45892 38442 25354 72653 09817 15784 47834 21582 23270 20690 28723
---[19000]---
 23300 53862 16347 98850 94695 47200 47952 31120 15043 29322 66282 72763 21779 08840 08786 14802 21475 37657 81058 19702
 22630 97174 95072 12724 84794 78169 57296 14236 58595 78209 08307 33233 56034 84653 18730 29302 66596 45013 71837 54288
 97557 97144 99246 54038 68179 92138 93469 24474 19850 97334 62679 33210 72686 87076 80626 39919 36196 50440 99542 16762
 78409 14669 85692 57150 74315 74079 38053 23925 23947 75574 41591 84582 15625 18192 15523 37096 07483 32923 49210 34514
 62643 74498 05596 10330 79941 45347 78457 46999 92128 59999 93996 12281 61521 93148 88769 38802 22810 83001 98601 65494
 16542 61696 85867 88372 60958 77456 76182 50727 59929 50893 18052 18729 24610 86763 99589 16145 85505 83972 74209 80909
 78172 93239 30106 76638 68240 40111 30402 47007 35085 78287 24627 13494 63685 31815 46969 04669 68693 92547 25194 13992
 91465 24238 57762 55004 74852 95476 81479 54670 07050 34799 95888 67695 01612 49722 82040 30399 54632 78830 69597 62493
 61510 10243 65553 52230 69061 29493 88599 01573 46610 23712 23547 89112 92547 69617 60050 47974 92806 07212 68039 22691
 10277 72261 02544 14922 15765 04508 12067 71735 71202 71802 42968 10620 37765 78837 16690 91094 18074 48781 40490 75517
---[20000]---
 82038 56539 09910 47759 41413 21543 28440 62503 01802 75716 96508 20964 27348 41469 57263 97884 25600 84531 21406 59358
 09041 27113 59200 41975 98513 62547 96160 63228 87361 81367 37324 45060 79244 11763 99759 74619 38358 45749 15988 09766
 74470 93006 54634 24234 60634 23747 46660 80431 70126 00520 55928 49369 59414 34081 46852 98150 53947 17890 04518 35755
 15412 52235 90590 68726 48786 35752 54191 12888 77371 76637 48602 76606 34960 35367 94702 69232 29718 68327 71739 32361
 92007 77452 21262 47518 69833 49515 10198 64269 88784 71719 39664 97690 70825 21742 33656 62725 92844 06204 30214 11371
 99227 85269 98469 88477 02323 82384 00556 55517 88908 76613 60130 47709 84386 11687 05231 05531 49162 51728 37327 28676
 00724 81729 87637 56981 63354 15074 60883 86636 40693 47043 72066 88651 27568 82661 49730 78865 70156 85016 91864 74885
 41679 15459 65072 34287 73069 98537 13904 30026 65307 83987 76385 03238 18215 53559 73235 30686 04301 06757 60838 90862
 70498 41888 59513 80910 30423 59578 24951 43988 59011 31858 35840 66747 23702 97149 78508 41458 53085 78133 91562 70760
 35639 07639 47311 45549 58322 66945 70249 41398 31634 33237 89759 55680 85683 62972 53867 91327 50555 42524 49194 35891
---[21000]---
 28405 04522 69538 12179 13191 45135 00993 84631 17740 17971 51228 37854 60116 03595 54028 64405 90249 64669 30707 76905
 54810 28850 20808 58008 78115 77381 71917 41776 01733 07385 54758 00605 60143 37743 29901 27286 77253 04318 25197 57916
 79296 99650 41460 70664 57125 88834 69797 96429 31622 96552 01687 97300 03564 63045 79308 84032 74807 71811 55533 09098
 87025 50520 76804 63034 60865 81653 94876 95196 00440 84820 65967 37947 31680 86415 64565 05300 49881 61649 05788 31154
 34548 50526 60069 82309 31577 76500 37807 04661 26470 60214 57505 79327 09620 47825 61524 71459 18965 22360 83966 45624
 10519 55105 22357 23973 95128 81816 40597 85914 27914 81654 26328 92004 28160 91369 37773 72229 99833 27082 08296 99557
 37727 37566 76155 27113 92258 80552 01898 87620 11416 80054 68736 55806 33471 60373 42917 03907 98639 65229 61312 80178
 26797 17289 82293 60702 88069 08776 86605 93252 74637 84053 97691 84808 20410 21944 71971 38692 56084 16245 11239 80620
 11318 45412 44782 05011 07987 60717 15568 31540 78865 43904 12108 73032 40201 06853 41947 23047 66667 21749 86986 85470
 76781 20512 47367 92479 19315 08564 44775 37985 37997 32234 45612 27858 43296 84664 75133 36573 69238 72014 64723 67942
---[22000]---
 78700 42503 25558 99268 84349 59287 61240 07558 75694 64137 05625 14001 17971 33166 20715 37154 36006 87647 73186 75587
 14878 39890 81074 29530 94106 05969 44315 84775 39700 94398 83949 14432 35366 85392 09946 87964 50665 33985 73888 78661
 47629 44341 40104 98889 93160 05120 76781 03588 61166 02029 61193 63968 21349 60750 11164 98327 85635 31614 51684 57695
 68710 90029 99769 84126 32665 02347 71672 86573 78579 08574 66460 77228 34154 03114 41529 41880 47825 43876 17707 90430
 00156 69867 76795 76090 99669 36075 59496 51527 36349 81189 64130 43311 66277 47123 38817 40603 73174 39705 40670 31096
 76765 74869 53587 89670 03192 58662 59410 51053 35843 84656 02339 17967 49267 84476 37084 74978 33365 55790 07384 19147
 31988 62713 52595 46251 81604 34225 37299 62863 26749 68240 58060 29642 11463 86436 86422 47248 87283 43417 04415 73482
 48183 33016 40566 95966 88667 69563 49141 63284 26414 97453 33499 99480 00266 99875 88815 93507 35781 51958 89900 53951
 20853 51035 72613 73640 34367 53471 41048 36017 54648 83004 07846 41674 52167 37190 48310 96767 11344 34948 19262 68111
 07399 48250 60739 49507 35031 69019 73185 21195 52635 63258 43390 99822 49862 40670 31076 83184 46607 29124 87475 40316
---[23000]---
 17969 94113 97387 76589 98685 54170 31884 77886 75929 02607 00432 12666 17919 22352 09382 27878 88098 86335 99116 08192
 35355 57046 46349 11320 85918 97961 32791 31975 64909 76000 13996 23444 55350 14346 42686 04644 95862 47690 94347 04829
 32941 40411 14654 09239 88344 43515 91332 01077 39441 11840 74107 68498 10663 47241 04823 93582 74019 44935 66516 10884
 63125 67852 97769 73468 43030 61462 41803 58529 33159 73458 30384 55410 33701 09167 67763 74276 21021 37013 54854 45092
 63071 90114 73184 85749 23318 16720 72137 27935 56795 28443 92548 15609 13728 12840 63330 39373 56242 00160 45664 55741
 45881 66052 16660 87387 48047 24339 12129 55877 76390 69690 37078 82852 77538 94052 46075 84962 31574 36917 11317 61347
 83882 71941 68606 62572 10368 51321 56647 80014 76752 31039 35786 06896 11125 99602 81839 30954 87090 59073 86135 19145
 91819 51029 73278 75571 04972 90114 87171 89718 00469 61697 77001 79139 19613 79141 71627 07018 95846 92143 43696 76292
 74591 09940 06008 49835 68425 20191 55937 03701 01104 97473 39493 87788 59894 17433 03178 53487 07603 22198 29705 79751
 19144 05109 94235 88303 45463 53492 34982 68836 24043 32726 74155 40301 61950 56806 54180 93940 99820 20609 99414 02168
---[24000]---
 90900 70821 33072 30896 62119 77553 06659 18814 11915 77836 27292 74615 61857 10372 17247 10095 21423 69648 30864 10259
 28874 57999 32237 49551 91221 95190 34244 52307 53513 38068 56807 35446 49951 27203 17448 71954 03976 10730 80602 69906
 25807 60202 92731 45525 20780 79914 18429 06388 44373 49968 14582 73372 07266 39176 70201 18300 46481 90002 41308 35088
 46584 15214 89912 76106 51374 15394 35657 21139 03285 74918 76909 44137 02090 51703 14877 73461 65287 98482 35338 29726
 01361 10984 51484 18238 08120 54099 61252 74580 88109 94869 72216 12852 48974 25555 51607 63716 75054 89617 30168 09613
 80381 19143 61143 99210 63800 50832 14098 76045 99309 32485 10251 68294 46726 06661 38151 74571 25597 54953 58023 99831
 46982 20361 33808 28499 35670 55755 24712 90274 53977 62140 49318 20146 58008 02156 65360 67765 50878 38043 04134 31059
 18046 06800 83459 11366 40834 88740 80057 41272 58670 47922 58319 12741 57390 80914 38313 84564 24150 94084 91339 18096
 84025 11639 91936 85322 55573 38966 95374 90266 20923 26131 88558 91580 83245 55719 48453 87562 87861 28859 00410 60060
 73746 50140 26278 24027 34696 25282 17174 94158 23317 49239 68353 01361 78653 67376 06421 66778 13773 99510 06589 52887
---[25000]---
 74276 62636 84183 06801 90804 60984 98094 69763 66733 56622 82915 13235 27888 06157 76827 81595 88669 18023 89403 33076
 44191 24034 12022 31636 85778 60357 27694 15417 78826 43523 81319 05028 08701 85750 47046 31293 33537 57285 38660 58889
 04583 11145 07739 42935 20199 43219 71171 64223 50056 44042 97989 20815 94307 16701 98574 69273 84865 38334 36145 79463
 41759 22573 89858 80016 98014 75742 05429 95801 24295 81054 56510 83104 62972 82937 58416 11625 32562 51657 24980 78492
 09989 79906 20035 93650 99347 21582 96517 41357 98491 04711 16607 91587 43698 65412 22348 34188 77229 29446 33517 86538
 56731 96255 98520 26072 94767 40726 16767 14557 36498 12105 67771 68934 84917 66077 17052 77187 60119 99081 44113 05864
 55779 10525 68430 48114 40261 93840 23224 70939 24980 29335 50731 84589 03553 97133 08844 61741 07959 16251 17148 64874
 46861 12476 05428 67343 67090 46678 46867 02740 91881 01424 97111 49657 81772 42793 47070 21668 82956 10877 79440 50484
 37528 44337 51088 28264 77197 85400 06509 70403 30218 62556 14733 21177 71174 41335 02816 08840 35178 14525 41964 32030
 95760 18694 64908 86815 45285 62134 69883 55444 56024 95566 68436 60292 21951 24830 91060 53772 01980 21831 01032 70417
---[26000]---
 83866 54471 81260 39719 06884 62370 85751 80800 35327 04718 56594 99476 12424 81109 99288 67915 89690 49563 94762 46084
 24065 93094 86215 07690 31498 70206 73533 84834 95508 36366 01784 87710 60809 80426 92471 32410 00946 40143 73603 26564
 51845 66792 45666 95510 01502 29833 07984 96079 94988 24970 61723 67449 36122 62229 61790 81431 14146 60941 23415 93593
 09585 40791 39087 20832 27335 49572 08075 71651 71876 59944 98569 37956 23875 55161 75754 38091 78052 80294 64200 44721
 53962 80746 36021 13294 25591 60025 70735 62812 63873 31060 05891 06524 57080 24474 93754 31841 49401 48211 99962 76453
 10680 06631 18382 37616 39663 18093 14446 71298 61552 75982 01451 41027 56006 89297 50246 30401 73514 89194 57636 07893
 52855 50531 73314 16457 05049 96443 89093 63084 38744 84783 96168 40518 45273 28840 32345 20247 05685 16465 71647 71393
 23775 51729 47951 26132 39822 96023 94548 57975 45865 17458 78771 33181 38752 95980 94121 74227 30035 22965 08089 17770
 50682 59248 82232 21549 38048 37145 47816 47213 97682 09633 20508 30564 79204 82085 92047 54998 57320 38887 63916 01995
 24091 89389 45576 76874 97308 56955 95801 06595 26503 03626 61597 50662 22508 40674 28898 26590 75106 37563 56996 82115
---[27000]---
 10949 66974 45805 47288 69363 10203 67823 25018 23237 08459 79011 15484 72087 61821 24778 13266 33041 20762 16587 31297
 08112 30758 15982 12486 39807 21240 78688 78114 50165 58251 36178 90307 08608 70198 97588 98074 56643 95515 74153 63193
 19198 10705 75336 63373 80382 72152 79884 93503 97480 01589 05194 20879 71130 80512 33933 22190 34662 49917 16915 09485
 41401 87106 03546 03794 64337 90058 90957 72118 08044 65743 96280 61867 17861 01715 67409 67662 08029 57665 77051 29120
 99079 44304 63289 29473 06159 51043 09022 21439 37184 95606 34056 18934 25130 57268 29146 57832 93340 52463 50289 29175
 47087 25648 42600 34962 96116 54138 23007 73133 27298 30500 16025 67240 14185 15204 18907 01154 28857 99208 12198 44931
 56999 05918 20118 19733 50012 61877 28036 81248 19958 77070 20753 24063 61259 31343 85955 42547 78196 11429 35163 56122
 34966 61522 61473 53996 74051 58499 86035 52953 32924 57523 88810 13620 23476 24669 05581 64389 67863 09762 73655 04724
 34864 30712 18494 37348 53006 06387 64456 62721 86661 70123 81277 15621 37974 61498 61328 74411 77145 52444 70899 71445
 22885 66294 24402 30184 79120 54784 98574 52163 46964 48973 89206 24019 43518 31008 82834 80249 24908 54030 77863 87516
---[28000]---
 59113 02873 95878 70981 00772 71827 18745 29013 97283 66148 42142 87170 55317 96543 07650 45343 24600 53636 14726 18180
 96997 69334 86264 07743 51999 28686 32383 50887 56683 59509 72655 74815 43194 01955 76850 43724 80010 20413 74983 18722
 59677 38715 49583 99718 44490 72791 41965 84593 00839 42637 02087 56353 98216 96205 53248 03212 26749 89114 02678 52859
 96734 05242 03109 17978 99905 71882 19493 91320 75343 17079 80023 73659 09853 75520 23891 16434 67185 58290 68537 11897
 95262 62344 92483 39249 63424 49714 65684 65912 48918 55662 95893 29909 03523 92333 33647 43520 37077 01010 84388 00329
 07598 34217 01855 42283 86161 72104 17603 01164 59187 80539 36744 74720 59985 02358 28918 33692 92233 73239 99480 43710
 84196 59473 16265 48257 48099 48250 99918 33006 97656 93671 59689 36449 33488 64744 21350 08407 00660 88359 72350 39532
 34017 95825 57036 01693 69909 88671 13210 97988 97070 51728 07558 55191 26993 06730 99250 70407 02455 68507 78679 06947
 66126 29808 22516 33136 39952 11709 84528 09263 03759 22426 74257 55998 92892 78370 47444 52189 36320 34894 15521 04459
 72618 83800 30067 76179 31381 39916 20580 62701 65102 44588 69247 64924 68919 24612 12531 02757 31390 84047 00071 43561
---[29000]---
 36231 69923 71694 84813 25542 00914 53041 03713 54532 96620 63921 05479 82439 21251 72540 13231 49027 40585 89206 32175
 89494 34548 90684 63993 13757 09103 46332 71415 31622 32805 52297 29795 38018 80162 85907 35729 55416 27886 76498 27418
 61642 18789 88574 10716 49069 19185 11628 15285 48679 41736 38906 65388 57642 29158 34250 06736 12453 84916 06741 37340
 17357 27799 56341 04332 68835 69507 81493 13780 07362 35418 00706 19180 26732 85511 91942 67609 12210 35987 46924 11728
 37493 12616 33950 01239 59924 05084 54375 69850 79570 46222 66461 90001 03500 49018 30341 53545 84283 37643 78111 98855
 63187 77792 53720 11667 18539 54183 59844 38305 20376 28194 40761 59410 68207 16970 30228 51522 50573 12609 30468 98423
 43315 27321 31361 21658 28080 75212 63154 77306 04423 77475 35059 52287 17440 26663 89148 81717 30864 36111 38906 94202
 79088 14311 94487 99417 15404 21034 12190 84709 40802 54023 93294 29454 93878 64023 05129 27119 09751 35360 00921 97110
 54120 96683 11151 63287 05423 02847 00731 20658 03262 64171 16165 95761 32723 51566 66253 66727 18998 53419 98952 36884
 83099 93027 57419 91646 38414 27077 98870 88742 29277 05389 12271 72486 32202 88984 25125 28721 78260 30500 99451 08247
---[30000]---

总计用时130秒,速度有待提高.

相关文章推荐

vb2005设计计算圆周率

  • 2009年06月25日 10:43
  • 535B
  • 下载

计算圆周率π的小算法

  • 2011年06月26日 14:09
  • 361B
  • 下载

JavaScript计算圆周率(解析几何+定积分)

最近数学预习到选修本的定积分,前一向用它解决了物理上的正弦交流电有效值问题,前几天突发奇想,想用它来计算圆周率。于是我花了半节物理课的时间研究了一下,得出了以下求解方法。首先我们知道半径为r,圆心为(...

计算圆周率 源代码

  • 2014年04月12日 22:06
  • 41KB
  • 下载

怎样计算圆周率

  • 2014年10月03日 10:49
  • 2.36MB
  • 下载

【C++运用】(控制台)-概率的运用,石头剪刀布,抛硬币,圆周率的计算---ShinePans

#include #include #include #include #include using namespace std; double Count_com=0; //电脑赢得次数 doubl...

c#计算圆周率源程序

  • 2010年07月16日 21:31
  • 44KB
  • 下载

PAT编程基础 5-15 计算圆周率 (15分)

5-15 计算圆周率 (15分)根据下面关系式,求圆周率的值,直到最后一项的值小于给定阈值。 输入格式:输入在一行中给出小于1的阈值。输出格式:在一行中输出满足阈值条件的近似圆周率,输出到小...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB计算圆周率
举报原因:
原因补充:

(最多只允许输入30个字)