| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 748 人关注过本帖
标题:请教大家二个问题!
只看楼主 加入收藏
my_sj0414
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-5-9
收藏
 问题点数:0 回复次数:3 
请教大家二个问题!

set talk off
clear
do while.t.
input"请输入一位整数,0表示退出: " to j
do case
case j>=10.or.j<0
@ 0,20 say "请输入10以下的正整数! "
loop
case j=0
exit
endcase
clear
@ 1,20 say j
i=2
do while i>=j
do sub1 with i
i=i+1
enddo
i=j
do while i>=1
do sub1 with i
i=i-1
enddo
enddo
set talk on
return

程序的功能是:接收一位整数J,在屏幕上显示一个由1到该整数组成的菱形。
如: 1
2 2 2
3 3 3 3 3
2 2 2
1
请改正程序中的错误,并编制子程序sub1.prg


2.
set talk off
clear
do while.t.
input"请输入自然数K值: "to k
input"请输入自然数M值(M>K): "to m
if k>m
?"输入的M>K不能计算!"
exit
endif
s=0,a=0
j=k
do while j<=m
do sub
s=s+a
j=j+1
enddo
?"s=",a
wait"是否继续(Y/N)?"to yn
if upper(yn)="Y"
loop
else
exit
endif
enddo
?"再见!"
set talk on
return

程序的功能是:接收用户输入的自然数K值M值(M>k)通过调用子程序SUB。PRG计算以下阶乘积。
S=K!+(K+1)!+....+M!
请改正程序中的错误,并编子程序SUB.prg。





搜索更多相关主题的帖子: 整数 case talk enddo 
2007-05-09 10:16
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:0 
这是请教还是做作业啊?

2007-05-10 07:52
songyuyu
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:6090
专家分:25
注 册:2007-1-17
收藏
得分:0 

我喝水只喝纯净水,牛奶只喝纯牛奶,所以我很单纯……
2007-05-10 14:05
Sam38
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2007-5-12
收藏
得分:0 
看来是作业

我的邮箱:Dahong38@ 我的QQ号:362879662 中国VFP专业论坛:www.
2007-05-12 01:29
快速回复:请教大家二个问题!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015577 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved