0
点赞
收藏
分享

微信扫一扫

RationalDMIS 7.1取最大值

小a草 2022-06-06 阅读 69

RationalDMIS 7.1取最大值_java

MODE/PROG,MAN
DECL/COMMON,INTGR,I
DECL/COMMON,INTGR,J
DECL/COMMON,DOUBLE,Z[4]
Z[1] = ASSIGN/20
Z[2] = ASSIGN/30
Z[3] = ASSIGN/35
Z[4] = ASSIGN/40.9152
DECL/COMMON,DOUBLE,V1
DO/I,1,4,1

J = ASSIGN/I+1

DO/J,1,4,1
IF/(Z[I].GT.Z[J])
V1= ASSIGN/Z[I]

Z[J] = ASSIGN/Z[I]
ENDIF

ENDDO

ENDDO
DECL/COMMON, CHAR, 256, KNPTC1
KNPTC1 = ASSIGN/CONCAT('最大值为:',STR(V1))
TEXT/OUTFIL, KNPTC1

RationalDMIS 7.1取最大值_java_02


举报

相关推荐

0 条评论