|
公告 |
|
四川理工学院信息管理与信息系统专业学生，男，83年5月生。
职业：自由开发者
为人座右铭：做人要厚道
QQ:61951565
VFP群:4001858(已满员),17966472
E-mail:lugreen@163.com
QQ空间:Greeeeeeeeeeeeeen
本博客文章未经作者同意不得转载 |
| Blog信息 |
|
blog名称:Green1Vfp 原创空间
日志总数:35
评论数量:101
留言数量:3
访问次数:443463
建立时间:2004年12月7日 |
| |
|
 [数据处理]湖南省今天的VFP二级考试题（帮朋友做的）
原创空间, 软件技术
Green1 发表于 2005/5/21 17:05:45 VFP QQ群:4001858 VFP UC团体：4363524 欢迎您的加入 |
| 今天不太忙，就答应室友帮他的一个朋友做VFP二级试题。他朋友用短信把题发过来，我负责算出答案，然后再把答案发过去。
现在我把代码贴出来，供VFP初学者参考。
总共做了四道题，一道根本没用代码，直接用数学知识解出来，另外三道是用代码做的。
1、求使1+(1+2)+(1+2+3)+....+(1+2+3+...+n)之和不大于1000的最大自然数n
我的代码是这样
clearLOCAL mLOCAL nLOCAL ss=0m=0n=0DO WHILE .t. m=m+1 n=n+m s=s+n ?m ??n ??s IF s>1000 EXIT ENDIFENDDO?m-1
2、求35000以内能同时被3和7整除的整数的个数
CLEARLOCAL iLOCAL ni=0n=0DO WHILE i<=35000 i=i+1 IF MOD(i,3)=0 AND MOD(i,7)=0 n=n+1 ENDIFENDDO?n3、1张1元钞票，将它分成1分、2分和5分硬币，每种方案至少11枚硬币组合，请问有多少种方案？
LOCAL aa=0LOCAL bb=0LOCAL cc=0LOCAL nn=0LOCAL sum1sum=0LOCAL sum2sum2=0DO WHILE .t. b=0 c=0 a=a+1 IF a=100 EXIT ENDIF DO WHILE .t. c=0 b=b+1 IF b=100 EXIT ENDIF DO WHILE .t. c=c+1 IF c=20 EXIT ENDIF sum1=a+2*b+5*c sum2=a+b+c IF sum1=100 AND sum2>=11 n=n+1 ENDIF ENDDO ENDDOENDDO?n 第三道题的代码太烦琐了，时间关系，将就了。 |
|
|
回复:湖南省今天的VFP二级考试题（帮朋友做的）
原创空间, 软件技术
A HA(游客)发表评论于2005/7/13 20:01:40 VFP QQ群:4001858 VFP UC团体：4363524 欢迎您的加入 |
|
» 1 »
|