|
 | 作者: 佳鱼 [jiayu]
 论坛用户 |
登录 |
| 输入若干个非0的整数，分别统计正，负数的个数，并求出正，负数的总合，输入0时结束程序。 （不能用数组）  |
| 地主 发表时间: 04-03-30 01:41 |
 | 回复: jkd [jkd]  论坛用户 |
登录 |
|
不能用数组成吗？ 若干个是不固定的！！ 怎么用啊？ |
| B1层 发表时间: 04-03-30 20:09 |
 | 回复: id18953560 [id18953560] 论坛用户 |
登录 |
|
ren 也不知道错没错，希望你能看懂这个算法 cls m=0 n=0 soc=1 sum_up=0 sum_low=0 do print "Please enter the number:" print "" input a /*这样的算法不论你输入多少个数都可以:-)*/ if a=0 then go end //这个跳转我实在记不清楚了,当时就没学好的,因为不提倡用跳转 if a>0 then m=m+1 //当a>0时,正数垒加1,即m+1 sum_up=sum_up+a //计算当前正数的和 else n=n+1 //当a<0时,负数垒加1,即n+1 sum_low=sum_low+a //计算当前正数的和 print "" print "There are ";m;"number biger than 0" print "And then sum is";sum_up print "" print "There are ";n;"number smaller than 0" print "And then sum is";sum_low print "" while soc<>0 end ============================================================================= 也不知道是不是对的，qb都三年没看过了`~ 学c去了` 有些地方可能受了c的影响，但是算法是对的,可以看分析,希望没写错~ 还有正负数的和我是分别计算的~ 如果要一起计算,相信难不倒你~呵呵~ 只要最后相加就可以了~呵呵~~ 呵呵~ 忘记了qb是不是可以在选择中执行多行语句~ 呵呵~ 写的不好,见笑.如过写的不能让你理解,请与我联系~ 我的email:e_mail4me@126.com 最好在邮件中写上本贴的内容,不然我会不记得的哦~呵呵~ [此贴被 北 木(id18953560) 在 03月30日23时58分 编辑过] |
| B2层 发表时间: 04-03-30 23:46 |
| 回复: jkd [jkd] 论坛用户 |
登录 |
|
上回看错了哈`````````很长时间没有用了不知道对不对！！！！！ cls s=0:s1=0:s2=0 '用于存放正负数的和及个数！！！ x=1 do while x<>0 input x if x>0 then s1=s1+1 elseif x<0 then s2=s2+1 endif s=s+x loop ? s,s1,s2 end |
| B3层 发表时间: 04-04-02 18:36 |
 | 回复: secondkahn [secondkahn] 论坛用户 |
登录 |
|
累加器啦，高一信息技术有的。。 |
| B4层 发表时间: 04-04-03 11:25 |
|
20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon
粤ICP备05087286号
论坛: 编程破解
标题: 高手复习一下QBASIC顺便教我