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

工程分析程序设计 上机作业(四) 结构化编程 上机目的：练习使用选择结构和循环结构编制程序。 1、求y值，xrtl键盘输入。 x 0 x 10 y = x2 +1 10 x 20 x3 + x2+l 20x30 PROGRAM MAIN IMPLICIT NONE REAL::X,Y WRIT玖*,*)%青输入X“ READ(*,*)X IF(X=O.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 ELSE Writer,*)“ERROR” END IF WRITE(*,*)Y END PROGRAM cv D:\IORI\Debug\ 弔输入X 1 25 16251.00 『Less any key to continue. 2、输入4个数A, B, C, D,按由大到小的顺序打印出来。 PROGRAM MAIN IMPLICIT NONE REAL::A,B,C,D,T WRITER,*)“请输入 A,B,C,D” READ(*,*)A,B,C,D IF(AB)THEN T=A A=B B=T END IF IF(BC)THEN T=C C=B B 二T END IF IF(CD)THEN T=D D=C C=T END IF IF(AB