3-作业(选择结构程序设计).ppt

第三章 选择结构程序设计作业 FORTRAN程序设计 Page* 授课教师: 袁丽蓉 E－mail: yuanfortran07@126.com School of Engineering Sun Yat－Sen University Gungzhou China 第五题 第八题 第九题 program five real price,weight,d,freight integer s !logical k read*,price,weight,s !k=250=s500 if(s250)d=0.0 if(k=250=s500) d=0.025 !if(k) d=0.025 if(500=s1000) d=0.045 if(1000=s2000) d=0.075 if(2000=s2500) d=0.09 if(2500=s3000) d=0.12 if(3000=s) d=0.15 !print *,d,k freight=price*weight*s*(1-d) print*,freight end print*,s,i,d freight=price*weight*s*(1-d) print*,freight end !第三章作业第5题 program caseexample implicit none real price,s,weight,d,freight integer i read*,price,weight,s i=s/250 select case(i) case(:0) d=0 case(1) d=0.025 case(2,3) d=0.045 case(4:7) d=0.075 case(8,9) d=0.09 case(10,11) d=0.12 case(12:) d=0.12 endselect program eight integer a,b,c,d,q,w,e,r,n2,n3 read*,a,b,c,d q=min(a,b,c,d) r=max(a,b,c,d) if (a/=q.and.a/=r) w=a if (b/=q.and.b/=r) w=b if (c/=q.and.c/=r) w=c if (d/=q.and.d/=r) w=d if (d/=q.and.d/=r.and.d/=w) e=d if (c/=q.and.c/=r.and.c/=w) e=c if (b/=q.and.b/=r.and.b/=w) e=b if (a/=q.and.a/=r.and.a/=w) e=a n2=min(w,e) n3=max(w,e) print*,q,n2,n3,r end if(d.lt.a)then print*,c,d,a,b else if(d.lt.b)then if(c.lt.a)then print*,c,a,d,b else print*,a,c,d,b endif else if(c.lt.a)then print*,c,a,b,d else if(c.lt.b)then print*,a,c,b,d else print*,a,b,c,d endif endif endif endif end !第三章作业第8题 program main implicit none integer a,b,c,d,t read *,a,b,c,d !先在a，b中比出大小 if(a.gt.b)then t=a a=b b=t Endif !先在c，d中比出大小 if(c.gt.d)then t=c c=d d=t endif program nine real x,y read*,x if(-15x0) y=cos(x+1) if(0=x10) y=log(x**2+1) if(15x20) y=x**(1/3) if(x=15.or.x=20.or.10=x=15) y=x**2 print*,y end !第三章作业第9题 program main implicit none real x,y integer i read*,x if(x.gt.-15.and.x.lt.0)then i=1 y=cos(x+1) elseif(x=0.and.x10