解水池进出水问题

妙转人生

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_分析按钮_被单击

变量名	类 型	静态	数组	备 注
水池总容量	双精度小数型
水池当前水量	双精度小数型
每秒进水量	双精度小数型
每秒出水量	双精度小数型
水池装满的时间	双精度小数型
水降到底的时间	双精度小数型

' 下面的数值型变量，在对应的编辑框获取数据。要是编辑框的内容为空，变量值会等于初始值0
水池总容量 ＝ 到数值 (水池总容量编辑框.内容)
水池当前水量 ＝ 到数值 (水池当前水量编辑框.内容)
每秒进水量 ＝ 到数值 (每秒进水量编辑框.内容)
每秒出水量 ＝ 到数值 (每秒出水量编辑框.内容)
水池状态编辑框.内容 ＝ “”
如果真 (水池总容量 ＞ 0)  ' 要是水池有容量时
如果真 (水池当前水量 ≤ 水池总容量)  ' 要是水池当前水量，小于或等于水池总容量时
如果真 (每秒进水量 ＞ 0 或 每秒出水量 ＞ 0)  ' 要是水池有进水，或有出水时
如果真 (每秒进水量 ＞ 0 且 每秒出水量 ≤ 0)  ' 要是水池只有进水，没有出水时
水池装满的时间 ＝ 四舍五入 ( (水池总容量 － 水池当前水量) ÷ 每秒进水量, 2)  ' 保留两位小数
水池装满的时间编辑框.内容 ＝ 到文本 (水池装满的时间)  ' 在这个编辑框显示水池装满的时间
水降到底的时间编辑框.内容 ＝ “”
' *** 缩略程序块 ***
水池状态编辑框.加入文本 (“水池总容量有” ＋ 到文本 (水池总容量) ＋ “立方米，”)
如果真 (水池当前水量 ＞ 0)  ' 要是水池当前水量大于零,显示水池当前水量这个条件
水池状态编辑框.加入文本 (“水池当前水量有” ＋ 到文本 (水池当前水量) ＋ “立方米，”)
水池状态编辑框.加入文本 (“水池每秒进水量为” ＋ 到文本 (每秒进水量) ＋ “立方米。”)
水池状态编辑框.加入文本 (“水池装满需要多少秒？” ＋ #换行符 ＋ #换行符 )
水池状态编辑框.加入文本 (“解：”)
如果真 (水池当前水量 ＞ 0)  ' 要是水池当前水量大于零，显示减去当池当前水量的计算
水池状态编辑框.加入文本 (“(” ＋ 到文本 (水池总容量) ＋ “-”)
水池状态编辑框.加入文本 (到文本 (水池当前水量) ＋ “)”)
如果真 (水池当前水量 ≤ 0)  ' 要是水池当前水量小于等于零，忽略减去当池当前水量的计算
水池状态编辑框.加入文本 (到文本 (水池总容量))
水池状态编辑框.加入文本 (“÷” ＋ 到文本 (每秒进水量) ＋ “=”)
水池状态编辑框.加入文本 (到文本 (水池装满的时间) ＋ “(” ＋ “秒” ＋ “)” ＋ #换行符 )
水池状态编辑框.加入文本 ( #换行符 ＋ “答：水池装满需要” ＋ 到文本 (水池装满的时间) ＋ “秒。”)
如果真 (每秒出水量 ＞ 0 且 每秒进水量 ≤ 0)  ' 要是水池只有出水，没有进水时
水降到底的时间 ＝ 四舍五入 (水池当前水量 ÷ 每秒出水量, 2)  ' 保留两位小数
水降到底的时间编辑框.内容 ＝ 到文本 (水降到底的时间)  ' 在这个编辑框显示水降到底的时间
水池装满的时间编辑框.内容 ＝ “”
' *** 缩略程序块 ***
水池状态编辑框.加入文本 (“水池总容量有” ＋ 到文本 (水池总容量) ＋ “立方米，”)
水池状态编辑框.加入文本 (“水池当前水量有” ＋ 到文本 (水池当前水量) ＋ “立方米，”)
水池状态编辑框.加入文本 (“水池每秒出水量为” ＋ 到文本 (每秒出水量) ＋ “立方米。”)
水池状态编辑框.加入文本 (“水降到池底需要多少秒？” ＋ #换行符 ＋ #换行符 )
水池状态编辑框.加入文本 (“解：”)
水池状态编辑框.加入文本 (到文本 (水池当前水量) ＋ “÷” ＋ 到文本 (每秒出水量) ＋ “=”)
水池状态编辑框.加入文本 (到文本 (水降到底的时间) ＋ “(” ＋ “秒” ＋ “)” ＋ #换行符 )
水池状态编辑框.加入文本 ( #换行符 ＋ “答：水降到池底需要” ＋ 到文本 (水降到底的时间) ＋ “秒。”)
如果真 (每秒进水量 ＞ 0 且 每秒出水量 ＞ 0)  ' 要是水池有进水，也有出水时
如果真 (每秒进水量 ＝ 每秒出水量)  ' 要是水池进水量，等于水池出水量
水池装满的时间编辑框.内容 ＝ “”
水降到底的时间编辑框.内容 ＝ “”
水池状态编辑框.加入文本 (“当前水池进水量与出水量一样，”)
水池状态编辑框.加入文本 (“无法计算水池装满水的时间，和水降到池底的时间！”)
如果真 (每秒进水量 ＞ 每秒出水量)  ' 要是水池进水量，大于水池出水量
水池装满的时间 ＝ 四舍五入 ( (水池总容量 － 水池当前水量) ÷ (每秒进水量 － 每秒出水量), 2)  ' 保留两位小数
水池装满的时间编辑框.内容 ＝ 到文本 (水池装满的时间)  ' 在这个编辑框显示水池装满的时间
水降到底的时间编辑框.内容 ＝ “”
' *** 缩略程序块 ***
水池状态编辑框.加入文本 (“水池总容量有” ＋ 到文本 (水池总容量) ＋ “立方米，”)
如果真 (水池当前水量 ＞ 0)  ' 要是水池当前水量大于零,显示水池当前水量这个条件
水池状态编辑框.加入文本 (“水池当前水量有” ＋ 到文本 (水池当前水量) ＋ “立方米，”)
水池状态编辑框.加入文本 (“水池每秒进水量为” ＋ 到文本 (每秒进水量) ＋ “立方米，”)
水池状态编辑框.加入文本 (“水池每秒出水量为” ＋ 到文本 (每秒出水量) ＋ “立方米。”)
水池状态编辑框.加入文本 (“水池装满需要多少秒？” ＋ #换行符 ＋ #换行符 )
水池状态编辑框.加入文本 (“解：”)
如果真 (水池当前水量 ＞ 0)  ' 要是水池当前水量大于零，显示减去当池当前水量的计算
水池状态编辑框.加入文本 (“(” ＋ 到文本 (水池总容量) ＋ “-”)
水池状态编辑框.加入文本 (到文本 (水池当前水量) ＋ “)”)
如果真 (水池当前水量 ≤ 0)  ' 要是水池当前水量小于等于零，忽略减去当池当前水量的计算
水池状态编辑框.加入文本 (到文本 (水池总容量))
水池状态编辑框.加入文本 (“÷” ＋ “(” ＋ 到文本 (每秒进水量) ＋ “-”)
水池状态编辑框.加入文本 (到文本 (每秒出水量) ＋ “)” ＋ “=”)
水池状态编辑框.加入文本 (到文本 (水池装满的时间) ＋ “(” ＋ “秒” ＋ “)” ＋ #换行符 )
水池状态编辑框.加入文本 ( #换行符 ＋ “答：水池装满需要” ＋ 到文本 (水池装满的时间) ＋ “秒。”)
如果真 (每秒进水量 ＜ 每秒出水量)  ' 要是水池出水量，小于水池进水量
如果真 (水池当前水量 ＞ 0)  ' 要是水池当前水量等于零
水降到底的时间 ＝ 四舍五入 (水池当前水量 ÷ (每秒出水量 － 每秒进水量), 2)  ' 保留两位小数
水降到底的时间编辑框.内容 ＝ 到文本 (水降到底的时间)  ' 在这个编辑框显示水降到底的时间
水池装满的时间编辑框.内容 ＝ “”
' *** 缩略程序块 ***
水池状态编辑框.加入文本 (“水池总容量有” ＋ 到文本 (水池总容量) ＋ “立方米，”)
水池状态编辑框.加入文本 (“水池当前水量有” ＋ 到文本 (水池当前水量) ＋ “立方米，”)
水池状态编辑框.加入文本 (“水池每秒进水量为” ＋ 到文本 (每秒进水量) ＋ “立方米，”)
水池状态编辑框.加入文本 (“水池每秒出水量为” ＋ 到文本 (每秒出水量) ＋ “立方米。”)
水池状态编辑框.加入文本 (“水降到池底需要多少秒？” ＋ #换行符 ＋ #换行符 )
水池状态编辑框.加入文本 (“解：”)
水池状态编辑框.加入文本 (到文本 (水池当前水量) ＋ “÷” ＋ “(”)
水池状态编辑框.加入文本 (到文本 (每秒出水量) ＋ “-” ＋ 到文本 (每秒进水量) ＋ “)” ＋ “=”)
水池状态编辑框.加入文本 (到文本 (水降到底的时间) ＋ “(” ＋ “秒” ＋ “）” ＋ #换行符 )
水池状态编辑框.加入文本 ( #换行符 ＋ “答：水降到池底需要” ＋ 到文本 (水降到底的时间) ＋ “秒。”)
如果真 (水池当前水量 ≤ 0)  ' 要是水池当前没有水
水池状态编辑框.内容 ＝ “由于水池当前没有水，且水池的出水量大于进水量，无法计算！”  ' 给出提示



如果真 (每秒进水量 ≤ 0 且 每秒出水量 ≤ 0)  ' 要是水池没有进水,也没有出水
水池状态编辑框.内容 ＝ “请输入水池的进水量或出水量！”  ' 给出提示
每秒进水量编辑框.获取焦点 ()

如果真 (水池当前水量 ＞ 水池总容量)  ' 要是水池当前容量大于水池总容量
水池状态编辑框.加入文本 (“水池当前的水量不能大于水池的总容量！” ＋ #换行符 )  ' 给出提示
水池状态编辑框.加入文本 (“请修改水池的总容量，或修改水池当前的水量！”)  ' 给出建议
水池总容量编辑框.获取焦点 ()

如果真 (水池总容量 ≤ 0)  ' 要是水池没有容量
水池状态编辑框.内容 ＝ “请输入水池的总容量！”  ' 给出提示
水池总容量编辑框.获取焦点 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _分析按钮_被单击<br /> .局部变量 水池总容量, 双精度小数型<br /> .局部变量 水池当前水量, 双精度小数型<br /> .局部变量 每秒进水量, 双精度小数型<br /> .局部变量 每秒出水量, 双精度小数型<br /> .局部变量 水池装满的时间, 双精度小数型<br /> .局部变量 水降到底的时间, 双精度小数型<br /> <br /> ' 下面的数值型变量，在对应的编辑框获取数据。要是编辑框的内容为空，变量值会等于初始值0<br /> 水池总容量 ＝ 到数值 (水池总容量编辑框.内容)<br /> 水池当前水量 ＝ 到数值 (水池当前水量编辑框.内容)<br /> 每秒进水量 ＝ 到数值 (每秒进水量编辑框.内容)<br /> 每秒出水量 ＝ 到数值 (每秒出水量编辑框.内容)<br /> <br /> 水池状态编辑框.内容 ＝ “”<br /> <br /> .如果真 (水池总容量 ＞ 0)  ' 要是水池有容量时<br /> <br />     .如果真 (水池当前水量 ≤ 水池总容量)  ' 要是水池当前水量，小于或等于水池总容量时<br /> <br />         .如果真 (每秒进水量 ＞ 0 或 每秒出水量 ＞ 0)  ' 要是水池有进水，或有出水时<br /> <br />             .如果真 (每秒进水量 ＞ 0 且 每秒出水量 ≤ 0)  ' 要是水池只有进水，没有出水时<br />                 水池装满的时间 ＝ 四舍五入 ((水池总容量 － 水池当前水量) ÷ 每秒进水量, 2)  ' 保留两位小数<br />                 水池装满的时间编辑框.内容 ＝ 到文本 (水池装满的时间)  ' 在这个编辑框显示水池装满的时间<br />                 水降到底的时间编辑框.内容 ＝ “”<br /> <br />                 ' *** 缩略程序块 ***<br />                 水池状态编辑框.加入文本 (“水池总容量有” ＋ 到文本 (水池总容量) ＋ “立方米，”)<br />                 .如果真 (水池当前水量 ＞ 0)  ' 要是水池当前水量大于零,显示水池当前水量这个条件<br />                     水池状态编辑框.加入文本 (“水池当前水量有” ＋ 到文本 (水池当前水量) ＋ “立方米，”)<br />                 .如果真结束<br />                 水池状态编辑框.加入文本 (“水池每秒进水量为” ＋ 到文本 (每秒进水量) ＋ “立方米。”)<br />                 水池状态编辑框.加入文本 (“水池装满需要多少秒？” ＋ #换行符 ＋ #换行符)<br /> <br />                 水池状态编辑框.加入文本 (“解：”)<br />                 .如果真 (水池当前水量 ＞ 0)  ' 要是水池当前水量大于零，显示减去当池当前水量的计算<br />                     水池状态编辑框.加入文本 (“(” ＋ 到文本 (水池总容量) ＋ “-”)<br />                     水池状态编辑框.加入文本 (到文本 (水池当前水量) ＋ “)”)<br />                 .如果真结束<br />                 .如果真 (水池当前水量 ≤ 0)  ' 要是水池当前水量小于等于零，忽略减去当池当前水量的计算<br />                     水池状态编辑框.加入文本 (到文本 (水池总容量))<br />                 .如果真结束<br />                 水池状态编辑框.加入文本 (“÷” ＋ 到文本 (每秒进水量) ＋ “=”)<br />                 水池状态编辑框.加入文本 (到文本 (水池装满的时间) ＋ “(” ＋ “秒” ＋ “)” ＋ #换行符)<br />                 水池状态编辑框.加入文本 (#换行符 ＋ “答：水池装满需要” ＋ 到文本 (水池装满的时间) ＋ “秒。”)<br /> <br /> <br />             .如果真结束<br />             .如果真 (每秒出水量 ＞ 0 且 每秒进水量 ≤ 0)  ' 要是水池只有出水，没有进水时<br />                 水降到底的时间 ＝ 四舍五入 (水池当前水量 ÷ 每秒出水量, 2)  ' 保留两位小数<br />                 水降到底的时间编辑框.内容 ＝ 到文本 (水降到底的时间)  ' 在这个编辑框显示水降到底的时间<br />                 水池装满的时间编辑框.内容 ＝ “”<br /> <br />                 ' *** 缩略程序块 ***<br />                 水池状态编辑框.加入文本 (“水池总容量有” ＋ 到文本 (水池总容量) ＋ “立方米，”)<br />                 水池状态编辑框.加入文本 (“水池当前水量有” ＋ 到文本 (水池当前水量) ＋ “立方米，”)<br />                 水池状态编辑框.加入文本 (“水池每秒出水量为” ＋ 到文本 (每秒出水量) ＋ “立方米。”)<br />                 水池状态编辑框.加入文本 (“水降到池底需要多少秒？” ＋ #换行符 ＋ #换行符)<br /> <br />                 水池状态编辑框.加入文本 (“解：”)<br />                 水池状态编辑框.加入文本 (到文本 (水池当前水量) ＋ “÷” ＋ 到文本 (每秒出水量) ＋ “=”)<br />                 水池状态编辑框.加入文本 (到文本 (水降到底的时间) ＋ “(” ＋ “秒” ＋ “)” ＋ #换行符)<br />                 水池状态编辑框.加入文本 (#换行符 ＋ “答：水降到池底需要” ＋ 到文本 (水降到底的时间) ＋ “秒。”)<br /> <br /> <br />             .如果真结束<br />             .如果真 (每秒进水量 ＞ 0 且 每秒出水量 ＞ 0)  ' 要是水池有进水，也有出水时<br /> <br />                 .如果真 (每秒进水量 ＝ 每秒出水量)  ' 要是水池进水量，等于水池出水量<br />                     水池装满的时间编辑框.内容 ＝ “”<br />                     水降到底的时间编辑框.内容 ＝ “”<br />                     水池状态编辑框.加入文本 (“当前水池进水量与出水量一样，”)<br />                     水池状态编辑框.加入文本 (“无法计算水池装满水的时间，和水降到池底的时间！”)<br /> <br />                 .如果真结束<br />                 .如果真 (每秒进水量 ＞ 每秒出水量)  ' 要是水池进水量，大于水池出水量<br />                     水池装满的时间 ＝ 四舍五入 ((水池总容量 － 水池当前水量) ÷ (每秒进水量 － 每秒出水量), 2)  ' 保留两位小数<br />                     水池装满的时间编辑框.内容 ＝ 到文本 (水池装满的时间)  ' 在这个编辑框显示水池装满的时间<br />                     水降到底的时间编辑框.内容 ＝ “”<br /> <br />                     ' *** 缩略程序块 ***<br />                     水池状态编辑框.加入文本 (“水池总容量有” ＋ 到文本 (水池总容量) ＋ “立方米，”)<br />                     .如果真 (水池当前水量 ＞ 0)  ' 要是水池当前水量大于零,显示水池当前水量这个条件<br />                         水池状态编辑框.加入文本 (“水池当前水量有” ＋ 到文本 (水池当前水量) ＋ “立方米，”)<br />                     .如果真结束<br />                     水池状态编辑框.加入文本 (“水池每秒进水量为” ＋ 到文本 (每秒进水量) ＋ “立方米，”)<br />                     水池状态编辑框.加入文本 (“水池每秒出水量为” ＋ 到文本 (每秒出水量) ＋ “立方米。”)<br />                     水池状态编辑框.加入文本 (“水池装满需要多少秒？” ＋ #换行符 ＋ #换行符)<br /> <br />                     水池状态编辑框.加入文本 (“解：”)<br />                     .如果真 (水池当前水量 ＞ 0)  ' 要是水池当前水量大于零，显示减去当池当前水量的计算<br />                         水池状态编辑框.加入文本 (“(” ＋ 到文本 (水池总容量) ＋ “-”)<br />                         水池状态编辑框.加入文本 (到文本 (水池当前水量) ＋ “)”)<br />                     .如果真结束<br />                     .如果真 (水池当前水量 ≤ 0)  ' 要是水池当前水量小于等于零，忽略减去当池当前水量的计算<br />                         水池状态编辑框.加入文本 (到文本 (水池总容量))<br />                     .如果真结束<br />                     水池状态编辑框.加入文本 (“÷” ＋ “(” ＋ 到文本 (每秒进水量) ＋ “-”)<br />                     水池状态编辑框.加入文本 (到文本 (每秒出水量) ＋ “)” ＋ “=”)<br />                     水池状态编辑框.加入文本 (到文本 (水池装满的时间) ＋ “(” ＋ “秒” ＋ “)” ＋ #换行符)<br />                     水池状态编辑框.加入文本 (#换行符 ＋ “答：水池装满需要” ＋ 到文本 (水池装满的时间) ＋ “秒。”)<br /> <br />                 .如果真结束<br />                 .如果真 (每秒进水量 ＜ 每秒出水量)  ' 要是水池出水量，小于水池进水量<br />                     .如果真 (水池当前水量 ＞ 0)  ' 要是水池当前水量等于零<br />                         水降到底的时间 ＝ 四舍五入 (水池当前水量 ÷ (每秒出水量 － 每秒进水量), 2)  ' 保留两位小数<br />                         水降到底的时间编辑框.内容 ＝ 到文本 (水降到底的时间)  ' 在这个编辑框显示水降到底的时间<br />                         水池装满的时间编辑框.内容 ＝ “”<br /> <br />                         ' *** 缩略程序块 ***<br />                         水池状态编辑框.加入文本 (“水池总容量有” ＋ 到文本 (水池总容量) ＋ “立方米，”)<br />                         水池状态编辑框.加入文本 (“水池当前水量有” ＋ 到文本 (水池当前水量) ＋ “立方米，”)<br />                         水池状态编辑框.加入文本 (“水池每秒进水量为” ＋ 到文本 (每秒进水量) ＋ “立方米，”)<br />                         水池状态编辑框.加入文本 (“水池每秒出水量为” ＋ 到文本 (每秒出水量) ＋ “立方米。”)<br />                         水池状态编辑框.加入文本 (“水降到池底需要多少秒？” ＋ #换行符 ＋ #换行符)<br /> <br />                         水池状态编辑框.加入文本 (“解：”)<br />                         水池状态编辑框.加入文本 (到文本 (水池当前水量) ＋ “÷” ＋ “(”)<br />                         水池状态编辑框.加入文本 (到文本 (每秒出水量) ＋ “-” ＋ 到文本 (每秒进水量) ＋ “)” ＋ “=”)<br />                         水池状态编辑框.加入文本 (到文本 (水降到底的时间) ＋ “(” ＋ “秒” ＋ “）” ＋ #换行符)<br />                         水池状态编辑框.加入文本 (#换行符 ＋ “答：水降到池底需要” ＋ 到文本 (水降到底的时间) ＋ “秒。”)<br /> <br />                     .如果真结束<br />                     .如果真 (水池当前水量 ≤ 0)  ' 要是水池当前没有水<br />                         水池状态编辑框.内容 ＝ “由于水池当前没有水，且水池的出水量大于进水量，无法计算！”  ' 给出提示<br /> <br />                     .如果真结束<br /> <br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br />         .如果真 (每秒进水量 ≤ 0 且 每秒出水量 ≤ 0)  ' 要是水池没有进水,也没有出水<br />             水池状态编辑框.内容 ＝ “请输入水池的进水量或出水量！”  ' 给出提示<br />             每秒进水量编辑框.获取焦点 ()<br />         .如果真结束<br /> <br />     .如果真结束<br />     .如果真 (水池当前水量 ＞ 水池总容量)  ' 要是水池当前容量大于水池总容量<br />         水池状态编辑框.加入文本 (“水池当前的水量不能大于水池的总容量！” ＋ #换行符)  ' 给出提示<br />         水池状态编辑框.加入文本 (“请修改水池的总容量，或修改水池当前的水量！”)  ' 给出建议<br />         水池总容量编辑框.获取焦点 ()<br />     .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (水池总容量 ≤ 0)  ' 要是水池没有容量<br />     水池状态编辑框.内容 ＝ “请输入水池的总容量！”  ' 给出提示<br />     水池总容量编辑框.获取焦点 ()<br /> <br /> .如果真结束

錆叫ωo红领巾℡

数学大佬

sunsun321

数学大佬{:3_64:}{:3_64:}

shuaier

谢谢分享！

1279868433

谢谢分享！

豪豪豪111

数学大佬{:3_64:}{:3_64:}

BIG牛肉面

来看看

kurt

6666

晴天大佬

编程也要数学功底

晴天大佬