• 大小: 38KB
    文件类型: .doc
    金币: 1
    下载: 0 次
    发布日期: 2021-06-26
  • 语言: 其他
  • 标签: 程序  结果  

资源简介

C ============== PROGRAM RANDIR C ============== DIMENSION X(25),GX(50) COMMON /ONE/ NSR,KWR,ILI,NPE,NFX,NGR READ(*,*) N,KG,NSR WRITE(*,1001) WRITE(*,1002) N,KG,NSR 1001 FORMAT(25X,'======== PRIMARY DATA ========'/) 1002 FORMAT(5X,'N=',I4,2X,'KG=',I4,2X,'NSR=',I4) CALL MAISUB(N,KG,X,GX) STOP END . . . .

资源截图

代码片段和文件信息

评论

共有 条评论