最近 All 1 2 3 4 5 10 30 天 BUG保修 站务讨论 调查报告 会客大厅 新手上路 推门之声 书籍交易 资源下载 每周谜题 谜题大全 字谜灯谜 原创小说 历史悬案 媒体征稿 中国侦探 欧美名家 日本推理 出版书讯 作品列表 法律案例 技术交流 推理游戏 推理影视 推理动漫 福尔摩斯 本格沙龙 原创俱乐部 作者： 主题： 内容：

您当前的位置： 推理之门 > 网友交流 > 会客大厅

【版主】：低丿调,张晨萧

字体大小：较小默认普通较大很大超大

第1页/共1页（总计4个回复）

主 题： 急~~~~~~~~~~~求一题程序设计的流程图和伪代码（人气：701）

推理之父（推理之父） 1 楼： 急~~~~~~~~~~~求一题程序设... 07年01月06日15点49分 要求: 1. 产生一个随机数. 2. 让用户输入一个数, 然后与随机数比较, 如果大于随机数, 则提示: “请输入一个更小的数”. 如小于随机数,则提示: “请输入一个更大的数”. 3.用户有三次机会. 4. 在三次机会机会后, 如用户猜中,则提示: “算你厉害”. 否则则提示: “Be lucky next time”. 请用流程图完成以上程序的设计，并写出伪代码 急啊～望懂的人速度在４８小时内解决　谢谢～～～～～～～～～～～～～～ 　　点击复制本贴地址： ※来源: 【 推理之门 Tuili.Com 】.

暗夜花儿开（新参者） 2 楼： Re:急~~~~~~~~~~~求一题... 07年01月06日18点04分 【推理之父在大作中谈到:】 ＞ ＞要求: ＞1. 产生一个随机数. ＞2. 让用户输入一个数, 然后与随机数比较, 如果大于随机数, 则提示: “请输入一个更小的数”. 如小于随机数,则提示: “请输入一个更大的数”. ＞3.用户有三次机会. ＞4. 在三次机会机会后, 如用户猜中,则提示: “算你厉害”. 否则则提示: “Be lucky next time”. ＞ ＞ 请用流程图完成以上程序的设计，并写出伪代码 ＞急啊～望懂的人速度在４８小时内解决　谢谢～～～～～～～～～～～～～～ 你的作业吗？ 呵呵，我只会VB的编程，别的不太会。。。。 爱莫能助 有你的天空没有风/有你的湖水露笑容 有你的草地真舒坦/有你的夜晚出星星 你是我的好朋友/有你的冬天不会冷 你是我的好朋友/有你的梦境不愿醒 ※来源: 【 推理之门 Tuili.Com 】.

飞翼零（erozero） 3 楼： Re:Re:急~~~~~~~~~~~... 07年01月06日18点14分 ..................... 随机数的产生似乎是个大难题咧 自己写的随机算法也可以...假如是用的VC的话在stdlib.h里有个rand()就是一个获取随机的函数 后面的比较应该没什么问题吧~ 要自己写随机算法的话...头好痛.........:c:c ※来源: 【 推理之门 Tuili.Com 】.

老蔡（老蔡） 4 楼： Re:Re:Re:急~~~~~~~~... 07年01月07日18点44分 伪代码老早就忘记咯，类Pascal的伪代码大致是这样的（10以内） 1. Randomize 2. I ← I + Random (10) 3. YourChance ← 3 4. While YourChance ＞ 0 1.do …… 算了，不写了，Pascal早还给老师了，以下给出类VB的代码，未经测试，用Notepad直接写的，由于系统过滤特殊字符，所以有些符号用了其他的代替，程序流程图可参考此画，代码未做优化，可以写的更短一些。 Dim MyValue, YourChance, YourValue as Integer Randomize MyValue = Int((10 × Rnd) + 1)　‘乘号改为星号 YourChance = 3 do while YourChance ＞ 0 Call InputYourValue If YourChance = 0 Then Exit do loop Msgbox “Be lucky next time”　‘双引号为半角 end Sub InputYourValue Input YourValue if YourValue = MyValue Then Msgbox “算你厉害”　‘双引号为半角 end else if YourValue ＜ MyValue Then Msgbox “请输入一个更大的数”　‘双引号为半角 else Msgbox “请输入一个更小的数”　‘双引号为半角 end if end if YourChance = YourChance - 1 End Sub [此贴被老蔡于2007-1-7 18:47:01修改过] 　　　　　　　　　　书山有路勤为径，学海无涯苦作舟 　　　　　　　　　　　　http://www.tuili.com 　　　|　　　　　　　　 .&______~^@^~______&.　　　　　 @　 　 -- @ --　　　　　　"w/YYYYYYYYYYYYYYYYYYY\w"　　　　@@@　 　　　|　　　　　　　　  Y--Y--Y-----Y--Y--Y 　　　  @@@@@　 　　　　　　　　　　 p-p_|__|__|_____|__|__|_q-q　　　@@Y@@　 　__________________[EEEEM==M==MM===MM==M==MEEEE]-______|_____　  　　　　　　　　　　　　　推理之门　老蔡 ※来源: 【 推理之门 Tuili.Com 】.

icewt（吕归尘） 5 楼： Re:Re:Re:Re:急~~~~~... 07年01月09日11点13分 【老蔡在大作中谈到:】 ＞ ＞伪代码老早就忘记咯，类Pascal的伪代码大致是这样的（10以内） ＞1. Randomize ＞2. I ← I + Random (10) ＞3. YourChance ← 3 ＞4. While YourChance ＞ 0 ＞ 1.do …… ＞ ＞算了，不写了，Pascal早还给老师了，以下给出类VB的代码，未经测试，用Notepad直接写的，由于系统过滤特殊字符，所以有些符号用了其他的代替，程序流程图可参考此画，代码未做优化，可以写的更短一些。 ＞ ＞Dim MyValue, YourChance, YourValue as Integer ＞Randomize ＞MyValue = Int((10 × Rnd) + 1)　‘乘号改为星号 ＞YourChance = 3 ＞do while YourChance ＞ 0 ＞ Call InputYourValue ＞ If YourChance = 0 Then Exit do ＞loop ＞Msgbox “Be lucky next time”　‘双引号为半角 ＞end ＞ ＞Sub InputYourValue ＞Input YourValue ＞if YourValue = MyValue Then ＞ Msgbox “算你厉害”　‘双引号为半角 ＞ end ＞else if YourValue ＜ MyValue Then ＞ Msgbox “请输入一个更大的数”　‘双引号为半角 ＞ else ＞ Msgbox “请输入一个更小的数”　‘双引号为半角 ＞ end if ＞end if ＞YourChance = YourChance - 1 ＞End Sub ＞ ＞ ＞[此贴被老蔡于2007-1-7 18:47:01修改过] 这里强人真多!佩服佩服. 我来推理 ※来源: 【 推理之门 Tuili.Com 】.

第1页/共1页（总计4个回复）

每次上网自动访问推理之门   |    将推理之门加入收藏夹

邮件联系：zhejiong@126.com  沪ICP备2021006552号  沪公网安备31011502006128号  推理之门  版权所有 2000-2025