4.\x05编写一个求面积的程序,其中求各种面积(三角形((底*高)/2)、梯形((上底+下底)*高/2)、圆(3.14*半径^2)、正方形(边长*边长)、矩形面积(长*宽))的过程用过程文件保存,通
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 19:43:01
![4.\x05编写一个求面积的程序,其中求各种面积(三角形((底*高)/2)、梯形((上底+下底)*高/2)、圆(3.14*半径^2)、正方形(边长*边长)、矩形面积(长*宽))的过程用过程文件保存,通](/uploads/image/z/12270060-36-0.jpg?t=4.%5Cx05%E7%BC%96%E5%86%99%E4%B8%80%E4%B8%AA%E6%B1%82%E9%9D%A2%E7%A7%AF%E7%9A%84%E7%A8%8B%E5%BA%8F%2C%E5%85%B6%E4%B8%AD%E6%B1%82%E5%90%84%E7%A7%8D%E9%9D%A2%E7%A7%AF%EF%BC%88%E4%B8%89%E8%A7%92%E5%BD%A2%EF%BC%88%EF%BC%88%E5%BA%95%2A%E9%AB%98%EF%BC%89%2F2%EF%BC%89%E3%80%81%E6%A2%AF%E5%BD%A2%EF%BC%88%EF%BC%88%E4%B8%8A%E5%BA%95%2B%E4%B8%8B%E5%BA%95%EF%BC%89%2A%E9%AB%98%2F2%EF%BC%89%E3%80%81%E5%9C%86%EF%BC%883.14%2A%E5%8D%8A%E5%BE%84%5E2%EF%BC%89%E3%80%81%E6%AD%A3%E6%96%B9%E5%BD%A2%28%E8%BE%B9%E9%95%BF%2A%E8%BE%B9%E9%95%BF%29%E3%80%81%E7%9F%A9%E5%BD%A2%E9%9D%A2%E7%A7%AF%EF%BC%88%E9%95%BF%2A%E5%AE%BD%EF%BC%89%EF%BC%89%E7%9A%84%E8%BF%87%E7%A8%8B%E7%94%A8%E8%BF%87%E7%A8%8B%E6%96%87%E4%BB%B6%E4%BF%9D%E5%AD%98%2C%E9%80%9A)
4.\x05编写一个求面积的程序,其中求各种面积(三角形((底*高)/2)、梯形((上底+下底)*高/2)、圆(3.14*半径^2)、正方形(边长*边长)、矩形面积(长*宽))的过程用过程文件保存,通
4.\x05编写一个求面积的程序,其中求各种面积(三角形((底*高)/2)、梯形((上底+下底)*高/2)、圆(3.14*半径^2)、正方形(边长*边长)、矩形面积(长*宽))的过程用过程文件保存,通过主程序调用这些过程文件中的过程实现面积的求解;
首先建立过程文件110.prg
proc s
input"请输入三角形的高度:" to sd
input"请输入三角形的底长:" to sc
s=sd*sc
"三角形的面积="
return
endproc
proc t
input"请输入梯形的上底:" to ts
input"请输入梯形的下底:" to tx
input"请输入梯形的高度:" to tg
s=(ts+tx)*tg/2
"梯形的面积="
return
endproc
proc y
input"请输入圆的半径:" to bj
s=3.14*bj**2
"圆的面积="
return
endproc
proc z
input"请输入正方形的边长:" to zc
s=zc*zc
"正方形的面积:"
return
endfor
建立主程序
set proc to 110.Prg
do while .t.
clear
" 0--退出"
" 1--求三角形的面积"
" 2--求梯形的面积"
" 3--求圆的面积"
" 4--求正方形的面积"
input "请输入你的选择:"to x
do case
case x=0
exit
case x=1
do s
case x=2
do t
case x=3
do y
case x=4
do z
endcase
wait"按任意键选择菜单……"
enddo
close proc
return
运行时出现语法错误,请问下是什么原因?
4.\x05编写一个求面积的程序,其中求各种面积(三角形((底*高)/2)、梯形((上底+下底)*高/2)、圆(3.14*半径^2)、正方形(边长*边长)、矩形面积(长*宽))的过程用过程文件保存,通
将set proc to 110.Prg替换为
set proc to 110
最好重新输入,原来的110前面空格好像太大了