计算P分之一的循环节上的数字 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 计算P分之一的循环节上的数字

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1410 人关注过本帖

标题：计算P分之一的循环节上的数字

只看楼主加入收藏

csyx

来　自：火星
等　级：版主
威　望：37
帖　子：703
专家分：2760
注　册：2018-3-13

第 11 楼

得分:2

以下是引用独木星空在2023-2-26 08:11:38的发言：
就是商*P作为减数，让被除数作为余数，举例说明：如1除23，不够除，上数0（也就是商值），23*0=0；第二步，扩大10,1变成了10，仍就不够除，上数0（也就是商值）,23*0=0，余数=10-0=10，扩大10，变成100，此时够除了，上数4,23*4=92,100-92=8，扩大10倍，变成80，上数3,23*3=69,80-69=11，扩大10倍，变成110，.....。
这不是问题的关键，你可以用自己的方法去实现，我只要程序最终的结果，是整个程序，不是具体的某个P的循环节上的数字。256*256+1的循环节可以达到256*256. 以它作为验证吧。

既然算法都写出来了，转成vfp语法应该就简单了

这家伙很懒，啥也没留下

2023-02-26 13:35

csyx

来　自：火星
等　级：版主
威　望：37
帖　子：703
专家分：2760
注　册：2018-3-13

第 12 楼

得分:10

程序代码：

Local ii
Local array aprs[1]

Create Cursor test (prime I, 节长度 I, 循环节 M)
For m.ii = 1 to ALines(m.aprs, '2,3,5,7,11,73,107,997,8317,256*256+1', 1+4, ',')
    Insert into test (prime) Values (Evaluate(m.aprs[m.ii]))
EndFor

Set Escape on        && 预防代码不严谨导致出现死循环, 可按 Esc 中断

Scan all
    Wait window nowait prime        && 监视算到哪个质数了
    Replace next 1 循环节 with 计算循环节(prime)
EndScan
Wait clear
Replace all 节长度 with Len(循环节)
Locate
Browse nowait
Return 

Function 计算循环节(pr)
    Local cSg    && 循环节
    Local nRm    && 余数
    Local nQt    && 商
    Local nDv    && 被除数
    Local lp    && 用来预防死循环(非必须)
    
    lp    = 0                            
    cSg = ''
    nDv = 10
    Do while lp < 1000000            && 限制下循环节长度
        Do while nDv < pr
            nDv = nDv * 10
            cSg = cSg + '0'
            lp = lp + 1
        EndDo
        nRm = Mod(nDv, pr)
        If nRm == 0
            Exit         && 被整除
        Else
            nQt = Int(nDv / pr)
            nDv = (nDv - nQt * pr) * 10
            cSg = cSg + Str(nQt,1)
            If nRm == 1
                Exit     && 循环了
            EndIf
        EndIf
        lp = lp + 1
    EndDo
    Return cSg
EndFunc