Fortran 上机题汇总.docx

Fortran 复习题汇总program exer101_1implicit nonerealpi,r,t,sC 说明符号常量parameter(pi=3.1415926) C 打开用于保存结果的文件open(9,file=mydata.dat) write(*,*)请输入r和t的值：read*,r,t s=t/360.0*pi*r**2C 在屏幕上显示结果 print*,r=,r,t=,t,s=,s C 采用格式说明语句显示结果write(*,100)r=,r,t=,t,s=,s 100 format(1X,3(A2,F10.5,1X))C 将结果保存至文件中write(9,*)r=,r,t=,t,s=,s endprogram exer101_2implicit nonerealpi.r,t,sparameter(pi=3.1415926) !说明符号常量open(9,file=mydata.dat) !打开用于保存结果的文件 write(*,*)请输入r和t的值：read*,r,t s=t/360.0*pi*r**2 print*,r=,r,t=,t,s=,s !在屏幕上显示结果write(*,100)r=,r,t=,t,s=,s !采用格式说明语句显示结果100 format(1X,3(A2,F10.5,1X))write(9,*)r=,r,t=,t,s=,s !将结果保存至文件中endprogram ex202implicit nonereal F,Cprint*,请输入一个华氏温度：read*,FC=(F-32)*5/9print*,摄氏温度为：,Cendprogram ex203implicit nonereala,b,x,yprint*,请依次输入a，b，x的值read*,a,b,xy=(exp(a*x)+log(x)**2)/(5.0*b)print*,yendprogram ex204implicit nonereal v0,t,g,sparameter(g=9.81)print*,请输入v0，t的值read*,v0,ts=0.5*g*t**2+t*(v0)print*,sendprogram ex301implicit nonereal I1,I2,I3,sprint*,请输入三个整数read*,I1,I2,I3s=I1+I2+I3print*,三个整数之和为：,sprint*,第一种排列次序：,I1,I2,I3print*,第二种排列次序：,I1,I3,I2print*,第三种排列次序：,I2,I1,I3print*,第四种排列次序：,I2,I3,I1print*,第五种排列次序：,I3,I1,I2print*,第六种排列次序：,I3,I2,I1end!计算三数之和，求三数排列次序program ex301_2!说明部分开始implicit noneinteger(1)::I,J,Kinteger Sprint*,请输入三个整数：read*,I,J,KS=I+J+Kprint*,I1+I2+I3=,Sprint*,三个整数所有可能排列次序有：print*,I,J,Kprint*,I,K,Jprint*,J,I,Kprint*,J,K,Iprint*,K,I,Jprint*,K,J,Iend programprogram ex302implicit nonecomplex::c1=(3.5,4.8),c2=(7.5,-3.2)complexa,b,c,da=c1+c2b=c1-c2c=c1*c2d=c1/c2print*,两数之和为：,aprint*,两数之差为：,bprint*,两数之积为：,cprint*,两数之商为：,dendprogram ex401_1implicit nonereal A1,A2,B1,B2,C1,C2,X,Y,TA1=2.0A2=-6.0B1=1.0B2=-1.0C1=4.0C2=4.00T=A1*B2-A2*B1X=(B2*C1-B1*C2)Y=(A1*C2-A2*C1)WRITE(*,*)X=,X,Y=,YENDprogram ex0402implicit nonereal A1,A2,B1,B2,C1,C2,X,Y,Twrite(*,*)请输入A1,A2,,B1,B2,C1,C2的值： read*,A1,A2,B1,B2,C1,C2T=A1*B2-A2*B1X=(B2*C1-B1*C2)Y=(A1*C2-A2*C1)WRITE(*,*)X=,X,Y=,YENDPROGRAM ex402IMPLICIT NONEREAL AINTEGER IREAL RWRITE(*,*)ENTER REAL A(A