工程分析程序设计 上机作业(四).docxVIP

工程分析程序设计上机作业（四）结构化编程上机目的：练习使用选择结构和循环结构编制程序。求y值，x由键盘输入。PROGRAM MAIN IMPLICIT NONE REAL::X,Y WRITE(*,*)请输入XREAD(*,*)X IF(X=0.AND.X10)THEN Y=X ELSE IF(X=10.AND.X20)THEN Y=X**2+1 ELSE IF(X=20.AND.X30)THEN Y=X**3+X**2+1 ELSEWRITE(*,*)ERROR END IF WRITE(*,*)YEND PROGRAM输入4个数A，B，C，D，按由大到小的顺序打印出来。PROGRAM MAIN IMPLICIT NONE REAL::A,B,C,D,T WRITE(*,*)请输入A,B,C,DREAD(*,*)A,B,C,DIF(AB)THEN T=AA=BB=T END IFIF(BC)THEN T=CC=BB=T END IF IF(CD)THEN T=DD=CC=T END IFIF(AB)THEN T=AA=BB=T END IFIF(BC)THEN T=CC=BB=T END IFIF(AB)THEN T=AA=BB=T END IFWRITE(*,*)A,B,C,DEND PROGRAM编