作业七

 
1假设只有SEQUENCE和IF_THEN_ELSE两种控制结构，怎么利用它们完成DO_WHILE操作？ 解：转化如下； label: IF (条件) THEN   程序块   GOTO label  ELSE   程序块  END IF

2假设只有SEQUENCE和DO_WHILE两种控制结构，怎么利用它们完成IF_THEN_ELSE操作？ 解：转化如下：
K = 1

DO WHILE （条件 .AND. K.EQ.1)  程序块1 
K=K+1
END DO
DO WHILE （ (.NOT. 条件) .AND. K.EQ.1)  程序块2 
K=K+1
END DO