mypro1.prg

来自「刚才那个的补充」· PRG 代码 · 共 9 行

**计算园面积
p=3.1415926    	&&园周率
r=10			&&园的半径			
s=p*r^2	
l=2*p*r	
CLEAR
? '园面积为'+alltrim(str(s,10,2))
? '园周长为'+alltrim(str(l,10,2))