*-------------------------------------------------------
SET TALK OFF
SET LOGERRORS ON
INPUT TO A SET TALK ON ?FUN(A) YZJ() RETURN
FUNCTION FUN(R) OUT=-1
**********Program**********
********** End ********** RETURN OUT FUNCTION YZJ() USE IN
LOCA FOR TIHAO=11 IF FOUND() O=FUN(N1)
DO YZJ11 WITH O ELSE
?\试题输入文件已损坏，请重新配置考试环境\ENDIF
RETURN
---------------------- IF r>0
OUT=r*r*3.14 ELSE
OUT=-1 ENDIF
*------------------------------------------------------- *【程序设计】
*-------------------------------------------------------
*题目：利用循环程序输出图形：
* 1 * 222 * 33333 * 4444444
*并将输出第三行存入变量S中
*请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK OFF
SET LOGERRORS ON S=\
**********Program**********
********** End ********** DO YZJ13 WITH S RETURN
---------------------- N=1
FOR N=1 TO 4 ? SPACE(4-N) FOR M=1 TO 2*N-1 ?? STR(N,1) ENDFOR ENDFOR SET TALK ON S=\
----------------------
*------------------------------------------------------- *【程序设计】
*-------------------------------------------------------
*题目：利用循环程序输出图形：
* ******* * *** *** * ** ** * * * * *******
* 并将输出第3行存入变量S中
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK OFF
SET LOGERRORS ON S=\
**********Program**********
********** End ********** DO YZJ14 WITH S SET TALK ON
---------------------- FOR N=1 TO 5 ? IF N=1 OR N=5 FOR M=1 TO 7 ?? \ ENDFOR ELSE FOR M=1 TO 5-N ?? \ ENDFOR ?? SPACE(2*N-3) FOR M=1 TO 5-N ?? \
ENDFOR ENDIF ENDFOR S=\ **\
*------------------------------------------------------- *【程序设计】
*-------------------------------------------------------
*题目：利用循环程序输出图形：
* 4 * 333 * 22222 * 1111111
* 并将最后一行存入变量S中
* 请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SET TALK OFF
SET LOGERRORS ON S=\
**********Program**********
********** End ********** DO YZJ15 WITH S SET TALK ON ---------------------- FOR N=1 TO 4 ? SPACE(4-N) FOR M=1 TO 2*N-1 ?? STR(4-N+1,1) ENDFOR ENDFOR S=\
*------------------------------------------------------- *【程序设计】
*-------------------------------------------------------