Fortran95第三章第四大题习题与答案.doc

计算。 Program ex3_1 implicit none real s integer i integer,parameter::num100 s0 do i1,numss+1.0/reali enddo print*,s,s stop End 计算的前20项和。 Program ex3_2 implicit none real s integer i,a integer,parameter::num20 a1 s1.0 do i1,num-1a-a ss+a*1.0/real2*i+1 enddo print*,s,s stop End 计算。 Program ex3_3 implicit none real y integer i,x,n y0 x1 print*,输入一个正整数 read*,n do i1,nxx*i yy+1.0/realx enddo print*,y,y stop End 计算，当y值大于1000时停止计算并输出n和y值。 Program ex3_4 implicit none integer n,y n1 y1 do whiley1000n2*n yy+n**3 enddo print*,n,n/2,y,y-n**3 stop End 利用以下展开式计算的近似值。值从键盘输入，当式中一项的绝对值小于时结束计算并输出值和项数。 Program ex3_5 implicit none integer i,j,k,n,sign real x,y,sum,mid,mul print*,请输入一个角度值: read*,x yx*3.14159/180.0 sign1 n1 j1 k3 mul1.0 mid1.0 sumy dodo ij,kmidmid*ymulmul*reali enddoifmid/mul1.0E-5thensign-signsumsum+sign*mid/mulnn+1jk+1k2*n+1 elseexit endif enddo print*,sin,x,,sum,n,n stop End 有一个30个数的数列，头两个数为0和1，第三个数是第一、第二个数之和，第四个数是第二、第三个数之和，以后每个数都是其前两个数之和。编写程序输出这个数列。 Program ex3_6 implicit none integer i,a,b,c a0 b1 print*,a print*,bdo i3,30ca+b ab bc print*,c enddo stop End 统计1~1000之间的正整数中能被3和5同时整除的数的个数，并输出这样的数及个数。如果不能同时被3和5整除，则求只能被3或只能被5整除的数，并输出这些数。 Program ex3_7 implicit none integer i,j,n n0 print*,能被3和5同时整除的数有: do i1,1000ifmodi,30.and.modi,50thennn+1print*,iendif enddo print*,n,n print*,只能被3或只能被5整除的数有: do j1,1000ifmodj,3/0.and.modj,50.or.modj,5/0.and.modj,30thenprint*,j endif enddo !由于数据较多，结果只会显示倒数的部分行数，与程序无关 stop End 求出1000以内的素数并输出。 Program ex3_8 implicit none integer i,j,k print*,1000以内的素数: print*,2 print*,3 do i4,1000jsqrtreali k2 doifmodi,k0exitkk+1ifkjcycleprint*,iexit enddo enddo stop End