[原创]恳请有大型计算机的朋友帮个忙，谢谢！

c46357106 · 发表于 2004-11-19 12:57

[watermark]
恳请有大型计算机的朋友帮个忙，谢谢！
帮我计算一下
下面这些等式的结果?
到循环小数为止。
  1除以19=？

  希望敬爱的朋友您
  把循环小数写在等号后面，谢谢！
  1除以[19+1乘30]=？
  1除以[19+2乘30]=？
  1除以[19+3乘30]=？
  1除以[19+4乘30]=？
  1除以[19+5乘30]=？
  1除以[19+6乘30]=？
  1除以[19+7乘30]=？
  1除以[19+8乘30]=？
  1除以[19+9乘30]=？
  1除以[19+10乘30]=？
  1除以[19+11乘30]=？
  1除以[19+12乘30]=？
  1除以[19+13乘30]=？
  1除以[19+14乘30]=？
  1除以[19+15乘30]=？
  1除以[19+16乘30]=？
  1除以[19+17乘30]=？
  1除以[19+18乘30]=？
  1除以[19+19乘30]=？
  1除以[19+20乘30]=？
  1除以[19+21乘30]=？
  1除以[19+22乘30]=？
  1除以[19+23乘30]=？
  1除以[19+24乘30]=？
  1除以[19+25乘30]=？
  1除以[19+26乘30]=？
  1除以[19+27乘30]=？
  1除以[19+28乘30]=？
  1除以[19+29乘30]=？
  1除以[19+30乘30]=？
  1除以[19+31乘30]=？
  1除以[19+32乘30]=？
  1除以[19+33乘30]=？
  1除以[19+34乘30]=？
  1除以[19+35乘30]=？
  1除以[19+36乘30]=？
  1除以[19+37乘30]=？
  1除以[19+38乘30]=？
  1除以[19+39乘30]=？
  1除以[19+40乘30]=？
  1除以[19+41乘30]=？
  1除以[19+42乘30]=？
  1除以[19+43乘30]=？
  1除以[19+44乘30]=？
  1除以[19+45乘30]=？
  1除以[19+46乘30]=？
  1除以[19+47乘30]=？
  1除以[19+48乘30]=？
  1除以[19+49乘30]=？
  1除以[19+50乘30]=？
  1除以[19+51乘30]=？
  1除以[19+52乘30]=？
  1除以[19+53乘30]=？
  1除以[19+54乘30]=？
  1除以[19+55乘30]=？
  1除以[19+56乘30]=？
  1除以[19+57乘30]=？
  1除以[19+58乘30]=？
  1除以[19+59乘30]=？
  1除以[19+60乘30]=？
  1除以[19+61乘30]=？
  1除以[19+62乘30]=？
  1除以[19+63乘30]=？
  1除以[19+64乘30]=？
  1除以[19+65乘30]=？
  1除以[19+66乘30]=？
  1除以[19+67乘30]=？
  1除以[19+68乘30]=？
  1除以[19+69乘30]=？
  1除以[19+70乘30]=？
  1除以[19+71乘30]=？
  1除以[19+72乘30]=？
  1除以[19+73乘30]=？
  1除以[19+74乘30]=？
  1除以[19+75乘30]=？
  1除以[19+76乘30]=？
  1除以[19+77乘30]=？
  1除以[19+78乘30]=？
  1除以[19+79乘30]=？
  1除以[19+80乘30]=？
  1除以[19+81乘30]=？
  1除以[19+82乘30]=？
  1除以[19+83乘30]=？
  1除以[19+84乘30]=？
  1除以[19+85乘30]=？
  1除以[19+86乘30]=？
  1除以[19+87乘30]=？
  1除以[19+88乘30]=？ [/watermark]

zhouj · 发表于 2004-11-19 18:05

未到要求(仅仅到双精度):
do i=0,88
write(*,*) i,1.0d0/(19+i*30.0d0)
enddo
end
--- 结果 ---
      0 5.263157894736842E-002
      1 2.040816326530612E-002
      2 1.265822784810127E-002
      3 9.174311926605505E-003
      4 7.194244604316547E-003
      5 5.917159763313609E-003
      6 5.025125628140704E-003
      7 4.366812227074236E-003
      8 3.861003861003861E-003
      9 3.460207612456748E-003
      10 3.134796238244514E-003
      11 2.865329512893983E-003
      12 2.638522427440633E-003
      13 2.444987775061125E-003
      14 2.277904328018223E-003
      15 2.132196162046908E-003
      16 2.004008016032064E-003
      17 1.890359168241966E-003
      18 1.788908765652952E-003
      19 1.697792869269949E-003
      20 1.615508885298869E-003
      21 1.540832049306626E-003
      22 1.472754050073638E-003
      23 1.410437235543018E-003
      24 1.353179972936401E-003
      25 1.300390117035111E-003
      26 1.251564455569462E-003
      27 1.206272617611580E-003
      28 1.164144353899884E-003
      29 1.124859392575928E-003
      30 1.088139281828074E-003
      31 1.053740779768177E-003
      32 1.021450459652707E-003
      33 9.910802775024777E-004
      34 9.624639076034649E-004
      35 9.354536950420954E-004
      36 9.099181073703367E-004
      37 8.857395925597874E-004
      38 8.628127696289905E-004
      39 8.410428931875525E-004
      40 8.203445447087777E-004
      41 8.006405124099279E-004
      42 7.818608287724785E-004
      43 7.639419404125286E-004
      44 7.468259895444362E-004
      45 7.304601899196494E-004
      46 7.147962830593281E-004
      47 6.997900629811056E-004
      48 6.854009595613434E-004
      49 6.715916722632640E-004
      50 6.583278472679394E-004
      51 6.455777921239509E-004
      52 6.333122229259025E-004
      53 6.215040397762585E-004
      54 6.101281269066504E-004
      55 5.991611743559018E-004
      56 5.885815185403178E-004
      57 5.783689994216310E-004
      58 5.685048322910744E-004
      59 5.589714924538849E-004
      60 5.497526113249038E-004
      61 5.408328826392645E-004
      62 5.321979776476849E-004
      63 5.238344683080147E-004
      64 5.157297576070139E-004
      65 5.078720162519045E-004
      66 5.002501250625312E-004
      67 4.928536224741252E-004
      68 4.856726566294317E-004
      69 4.786979415988511E-004
      70 4.719207173194903E-004
      71 4.653327128897162E-004
      72 4.589261128958238E-004
      73 4.526935264825713E-004
      74 4.466279589102278E-004
      75 4.407227853680035E-004
      76 4.349717268377555E-004
      77 4.293688278231001E-004
      78 4.239084357778720E-004
      79 4.185851820845542E-004
      80 4.133939644481190E-004
      81 4.083299305839118E-004
      82 4.033884630899556E-004
      83 3.985651654045437E-004
      84 3.938558487593541E-004
      85 3.892565200467108E-004
      86 3.847633705271258E-004
      87 3.803727653100038E-004
      88 3.760812335464460E-004

zhouj · 发表于 2004-11-19 18:07

计算机有P2.8,
但程序?

gxqcn · 发表于 2004-12-10 17:52

我以前曾研究过循环小数。这哪需大型机？！
编个程序赛扬机上都可以得到结果。
只是程序设计时需要一些技巧，特别需要一点点初等数论方面的知识。

gxqcn · 发表于 2004-12-10 17:58

下面是我运行3年半前开发的程序的结果：
1/19  = 0.{052 631 578 947 368 421}
1/49  = 0.{020 408 163 265 306 122 448 979 591 836 734 693 877 551}
1/79  = 0.{012 658 227 848 1}
1/109 = 0.{009 174 311 926 605 504 587 155 963 302 752 293 577 981 651 376 146 788 990 825 688 073 394 495 412 844 036 697 247 706 422 018 348 623 853 211}
...

pantum · 发表于 2005-3-6 10:11

我曾计算过1/2401，它的循环节很长

gxqcn · 发表于 2005-3-11 16:31

我再调出以前的那个小程序，立即可得到如下结果：
1/2401 = 0.{000 416 493 127 863 390 254 060 807 996 668 054 977 092 877 967 513 536 026 655 560 183 256 976 259 891 711 786 755 518 533 944 189 920 866 305 705 955 851 728 446 480 633 069 554 352 353 186 172 428 154 935 443 565 181 174 510 620 574 760 516 451 478 550 603 915 035 401 915 868 388 171 595 168 679 716 784 673 052 894 627 238 650 562 265 722 615 576 842 982 090 795 501 874 219 075 385 256 143 273 635 985 006 247 396 917 950 853 810 912 119 950 020 824 656 393 169 512 703 040 399 833 402 748 854 643 898 375 676 801 332 778 009 162 848 812 994 585 589 337 775 926 697 209 496 043 315 285 297 792 586 422 324 031 653 477 717 617 659 308 621 407 746 772 178 259 058 725 531 028 738 025 822 573 927 530 195 751 770 095 793 419 408 579 758 433 985 839 233 652 644 731 361 932 528 113 286 130 778 842 149 104 539 775 093 710 953 769 262 807 163 681 799 250 312 369 845 897 542 690 545 605 997 501 041 232 819 658 475 635 152 019 991 670 137 442 732 194 918 783 840 066 638 900 458 142 440 649 729 279 466 888 796 334 860 474 802 165 764 264 889 629 321 116 201 582 673 885 880 882 965 431 070 387 338 608 912 952 936 276 551 436 901 291 128 696 376 509 787 588 504 789 670 970 428 987 921 699 291 961 682 632 236 568 096 626 405 664 306 538 942 107 455 226 988 754 685 547 688 463 140 358 184 089 962 515 618 492 294 877 134 527 280 299 875 052 061 640 982 923 781 757 600 999 583 506 872 136 609 745 939 192 003 331 945 022 907 122 032 486 463 973 344 439 816 743 023 740 108 288 213 244 481 466 055 810 079 133 694 294 044 148 271 553 519 366 930 445 647 646 813 827 571 845 064 556 434 818 825 489 379 425 239 483 548 521 449 396 084 964 598 084 131 611 828 404 831 320 283 215 326 947 105 372 761 349 437 734 277 384 423 157 017 909 204 498 125 780 924 614 743 856 726 364 014 993 752 603 082 049 146 189 087 880 049 979 175 343 606 830 487 296 959 600 166 597 251 145 356 101 624 323 198 667 221 990 837 151 187 005 414 410 662 224 073 302 790 503 956 684 714 702 207 413 577 675 968 346 522 282 382 340 691 378 592 253 227 821 740 941 274 468 971 261 974 177 426 072 469 804 248 229 904 206 580 591 420 241 566 014 160 766 347 355 268 638 067 471 886 713 869 221 157 850 895 460 224 906 289 046 230 737 192 836 318 200 749 687 630 154 102 457 309 454 394 002 498 958 767 180 341 524 364 847 980 008 329 862 557 267 805 081 216 159 933 361 099 541 857 559 350 270 720 533 111 203 665 139 525 197 834 235 735 110 370 678 883 798 417 326 114 119 117 034 568 929 612 661 391 087 047 063 723 448 563 098 708 871 303 623 490 212 411 495 210 329 029 571 012 078 300 708 038 317 367 763 431 903 373 594 335 693 461 057 892 544 773 011 245 314 452 311 536 859 641 815 910 037 484 381 507 705 122 865 472 719 700 124 947 938 359 017 076 218 242 399} (10进制，其循环节长度=2058)

		自动登录	找回密码
密码			注册