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。