西安交大fortran上机作业之四.docxVIP

四工程分析程序设计 上机作业（四）结构化编程上机目的：练习使用选择结构和循环结构编制程序。求y值，x由键盘输入。PROGRAM MAINIMPLICIT NONE REAL X,Y PRINT*,请输入X值 READ*,X IF (X=0.AND.X10) THEN Y=XELSEIF (X=10.AND.X20) THEN Y=X**2+1ELSEIF (X=20.AND.X30) THEN Y=X**3+X**2+1ELSE PRINT*,X不在取值范围内END IFPRINT*,Y值为：,YEND输入4个数A，B，C，D，按由大到小的顺序打印出来。PROGRAM MAINIMPLICIT NONEREAL A,B,C,D,T REAL::E(4) INTEGER I,J PRINT*,请输入四个数： READ*,A,B,C,D E(1)=A E(2)=B E(3)=C E(4)=D DO I=1,3 DO J=I+1,4 IF (E(I)E(J)) THEN T=E(I) E(I)=E(J) E(J)=T END IFEND DO END DO PRINT*,E END编写一个子程序，判断一个整数是否素数。PROGRAM MAINIMPLICIT NONEINTEGER X,SSPRINT*,请输入一个整数：READ*,X CALL SUSHU(X,SS)CONTAINSSUBROUTINE SUSHU(A,SS) IMPLICIT NONE INTEGER I,A,B,SS,K K=0 DO I=2,A-1 B=MOD(A,I) IF (B==0) THEN K=K+1END IF END DO IF (K==0) THEN PRINT*,是素数 ELSE PRINT*,不是素数 END IFEND SUBROUTINEEND利用上一编程结果，对1000以内的所有偶数验证哥德巴赫猜想。即：对于大于2的任一偶数，先分解为两个奇数之和，然后验证第一个奇数是否素数，如果是，再验证第二个奇数是否素数，如果两个奇数都是素数，则输出结果。（要求给出所有把偶数分解成两个素数之和的等式）。并统计，每个偶数可以分解的等式个数（两个素数互换位置的不算一个独立的结果），研究随着偶数增大，分解的等式个数的变化规律。PROGRAM MAINIMPLICIT NONEINTEGER I,x,y,SS,NDO I=2,1000,2N=0 DO X=1,I/2,2 Y=I-X CALL SUSHU(X,SS) IF (SS==0) THEN CALL SUSHU(Y,SS) IF (SS==0) THEN PRINT*,I,X,Y N=N+1 END IF END IF END DO PRINT*,共有N种,NEND DOCONTAINSSUBROUTINE SUSHU(A,SS) INTEGER J,A,B,SS,K K=0 DO J=2,A-1 B=MOD(A,J) IF (B==0) THEN K=K+1END IF END DO IF (K==0) THEN SS=0 ELSE SS=1 END IFEND SUBROUTINEEND输入一个自然数，进行因子分解并输出结果，例如24=1×2×2×2×3。（输出格式不限）。PROGRAM MAINIMPLICIT NONEINTEGER X,I,A,K,B,JPRINT*,请输入一个自然数:READ*,XB=XDO I=1,B DO J=2,X A=MOD(X,J) IF (A==0) THEN X=X/J PRINT*,J EXIT END IFEND DOEND DOENDManufacturing transformation and development planning1 comprehensive strength of the manufacturing industry to upgradeRelying on good traffic conditions and location advantages of the industrial base, the manufacturing industry comprehensive strength steadily, the total size of the total, technical level, economic benefits and so on in the country has become the cornerstone of the precedent, the citys economic and social development and an important support. 1