set talk off
do pd
set talk on
procedure pd
clear
accept " 请输入职工的产值数（单位：万元，输入Q/q退出）：" to a
if upper(a)="Q"
cancel
else
a=val(a)
do case
case a< 5
?" 该职工的奖金为："+str(0.3,3,1)+"万元。"
case a< 10
?" 该职工的奖金为："+str(0.5,3,1)+"万元。"
case a< 20
?" 该职工的奖金为："+str(0.7,3,1)+"万元。"
otherwise
?" 该职工的奖金为："+str(0.9,3,1)+"万元。"
endcase
endif
?
wait
do pd
*©80* |
