程序填空[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 ?? \ ENDFO

>>展开全文<<
12@gma联系客服:779662525#qq.com(#替换为@)