计算周期值
本帖最后由 ooxxgod 于 2012-5-12 18:24 编辑女性的排卵日期一般在下次月经来潮前的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日为排卵期。除了月经期和排卵期，其余的时间均为安全期。在安全期性交可不必采用任何避孕药物和避孕工具。 安全期月历因个人体质变异差异极大。
在于算法这里如何写数组。点击后显示安全期号数-月经期号数-排卵期号数.
数组给个例子思考 ;------------------------------------------
;------------------------------------------
#include <Array.au3>
Const $n = 10
Dim $a[$n]
$a = 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,"小->大排序后结果:") 你这那里是要什么算法
就是要人帮你写代码嘛！ 其实蛮简单，嘿嘿，我觉得这个还是很实用滴。 还以为楼主有代码呢。。。 回复 4# haijie1223
发哥 本人菜鸟 不会写这个你高手能举例吗 回复 5# ooxxgod
对女人例假周期一向搞不懂.也懒得去想.问我高等数学也别问我女人问题.脑袋大！ 回复 5# ooxxgod
做伸手党要不得，至少你也得自己动手把一楼你给的图形界面也写出来嘛 回复 7# happytc
谢 老鸟点评 GUI我是写好了只是这里 写不会实在没办法伸手违规了 算了 结贴 回复happytc
谢 老鸟点评 GUI我是写好了只是这里 写不会实在没办法伸手违规了 算了 结贴
ooxxgod 发表于 2012-5-10 18:49 http://www.autoitx.com/images/common/back.gif
你写好了，我们没有看见呀
没有发出来嘛 回复 9# happytc
恩 好吧 我补上 不好意思了 本帖最后由 afan 于 2012-5-10 21:35 编辑
LZ 的 用户名 真适合发这个帖子…
ps, “测试”按钮的功能是？ 回复 11# afan
A版主：莫笑 我起初是我有个朋友 说起 我就兴起想写这个 可惜无奈功底不行到这里就犯愁。
那个测试功能键无所谓的 为了保留后期想加点什么功能性上去而已。 考虑是不是也重注册个牛掰点的马甲 LZ 的 用户名 真适合发这个帖子…
afan 发表于 2012-5-10 21:32 http://www.autoitx.com/images/common/back.gif
非常赞同，这下楼主可以随时XXOO了
页:
[1]
2