计算周期值

ooxxgod

女性的排卵日期一般在下次月经来潮前的14天左右。下次月经来潮的第1天算起，倒数14天或减去14天就是排卵日，排卵日及其前5天和后4天加在一起称为排卵期。例如，某女的月经周期为28天，本次月经来潮的第1天在12月2日，那么下次月经来潮是在12月30日（12月2日加28天），再从12月30日减去14天，则12月16日就是排卵日。排卵日及其前5天和后4天，也就是12月11-20日为排卵期。除了月经期和排卵期，其余的时间均为安全期。在安全期性交可不必采用任何避孕药物和避孕工具。 安全期月历因个人体质变异差异极大。
在于算法这里如何写数组。点击后显示安全期号数-月经期号数-排卵期号数.
  数组给个例子思考

vason1019

;------------------------------------------

;------------------------------------------
#include <Array.au3>
Const $n = 10
Dim $a[$n]
$a[0] = Random(1,10,1)

Dim $i = 1
Dim $m
Dim $ChongFu

While $i < $n
        $a[$i] = Random(1,10,1)
        $ChongFu = False
        
        For $m = 0 To $i - 1
                If $a[$i]= $a[$m] Then 
                        $ChongFu = True
                        ExitLoop
                EndIf
        Next
        
        If $ChongFu = False Then ;.
                $i = $i + 1
        EndIf
WEnd

_ArrayDisplay($a,"10个不重复随机数:")

;---------------------------------------------
;从小到达排序(交换法)
;---------------------------------------------
$i = 0
Dim $j = 0
Dim $temp

For $i = 0 To $n - 2 ;每位数
        For $j = $i + 1 To $n - 1 ;每位数与后面的数进行比较
                If $a[$j] < $a[$i] Then
                        $temp = $a[$j]
                        $a[$j] = $a[$i]
                        $a[$i] = $temp ;将最小的值放在前面
                EndIf
        Next
Next
_ArrayDisplay($a,"小->大排序后结果:")

happytc

你这那里是要什么算法
就是要人帮你写代码嘛！

502762378

其实蛮简单，嘿嘿，我觉得这个还是很实用滴。

haijie1223

还以为楼主有代码呢。。。

ooxxgod

回复 4# haijie1223


    发哥 本人菜鸟 不会写这个  你高手能举例吗

haijie1223

回复 5# ooxxgod


    对女人例假周期一向搞不懂.也懒得去想.问我高等数学也别问我女人问题.脑袋大！

happytc

回复 5# ooxxgod


    做伸手党要不得，至少你也得自己动手把一楼你给的图形界面也写出来嘛

ooxxgod

回复 7# happytc


    谢 老鸟点评 GUI我是写好了  只是这里 写不会  实在没办法  伸手违规了 算了 结贴

happytc

回复  happytc


    谢 老鸟点评 GUI我是写好了  只是这里 写不会  实在没办法  伸手违规了 算了 结贴
ooxxgod 发表于 2012-5-10 18:49

你写好了，我们没有看见呀
没有发出来嘛

ooxxgod

回复 9# happytc


    恩 好吧 我补上 不好意思了

afan

LZ 的 用户名 真适合发这个帖子…
ps, “测试”按钮的功能是？

ooxxgod

回复 11# afan


    A版主：莫笑 我起初是我有个朋友 说起 我就兴起想写这个 可惜无奈功底不行到这里就犯愁。
  那个测试功能键无所谓的 为了保留后期想加点什么功能性上去而已。

502762378

考虑是不是也重注册个牛掰点的马甲

zldfsz

LZ 的 用户名 真适合发这个帖子…
afan 发表于 2012-5-10 21:32

非常赞同，这下楼主可以随时XXOO了