大学计算机VFP编程题

合集下载

相关主题

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

11、输入圆的半经，计算圆的面积和周长。

评析：

input "r=" to r

s=3.1415*r*r

c=3.1415*2*r

? "s=",s

? "c=",c

12、输入三角形的底和高，计算三角形的面积。

评析：

input "a=" to a

input "b=" to b

s=(a*b)/2

? "s=",s

13、编写一个程序，求三个数中的最大值。

评析：

Input "a=" to a

input "b=" to b

input "c=" to c

max=a

if max

max=b

endif

if max

max=c

endif

? "max=",max

14、编写一个程序，求三个数中的最小值。

评析：

Input "a=" to a

input "b=" to b

input "c=" to c

min=a

if min>b

min=b

if min>c

min=c

endif

? "min=",min

15、用do while循环编程计算p=1*2*3* (20)

评析：

p=1

k=1

do while k<=20

p=p*k

k=k+1

enddo

? "1*2*3*……*20=",p

16、用for循环编程计算s=1+2+3+4+ (100)

评析：

for i=1 to 100

s=s+i

17、用do case－endcase语句编程计算

评析：

input "x=" to x

do case

case x<0

y=x*x

case x=0

y=0

case x>0 .and. x<10

y=x+1

case x>=10

y=2*x

endcase

? "y=",y

18、用if－else－endif语句编程计算

评析：

input "x=" to x

if x<0

y=x*x+1

else

if x=0

y=0

else

if x<5

y=x

else

y=2*x+1

endif

? "y=",y

19、编程计算1－100之间能被3整除的数的和。

评析：

s=0

for k=1 to 100

if int(k/3)=k/3

s=s+k

endif

20、编程计算1－100之间能被7整除的数的积。

评析：

p=1

for k=1 to 100

if int(k/7)=k/7

p=p*k

endif