程序填空[1]

*-------------------------------------------------------

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=\

*------------------------------------------------------- *【程序设计】

*-------------------------------------------------------