VFP6.0 子程序
答案:1 悬赏:60 手机版
解决时间 2021-11-11 11:00
- 提问者网友：杀生予夺
- 2021-11-10 12:55
VFP6.0 子程序
最佳答案
- 五星知识达人网友：白昼之月
- 2021-11-10 13:06
clear
s=0
input "您想求三角形面积还是长方形面积?（1或2）" to x
if x=1
do sub1
else
do sub2
endif
return
proc sub1
input "输入三角形边长a=" to a
input "输入三角形边长b=" to b
input "输入三角形边长c=" to c
?"三角形周长=",a+b+c
p=(a+b+c)/2
s=sqrt(p*(p-a)*(p-b)*(p-c))
?"三角形面积s=",s
return
proc sub2
input "输入长方形长：" to a
input "输入长方形宽：" to b
?"长方形周长=",2*(a+b)
?"长方形面积=",a*b
return
s=0
input "您想求三角形面积还是长方形面积?（1或2）" to x
if x=1
do sub1
else
do sub2
endif
return
proc sub1
input "输入三角形边长a=" to a
input "输入三角形边长b=" to b
input "输入三角形边长c=" to c
?"三角形周长=",a+b+c
p=(a+b+c)/2
s=sqrt(p*(p-a)*(p-b)*(p-c))
?"三角形面积s=",s
return
proc sub2
input "输入长方形长：" to a
input "输入长方形宽：" to b
?"长方形周长=",2*(a+b)
?"长方形面积=",a*b
return
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯