fortran程序案例题汇编(14道).docxVIP

PAGE 1 1．Fibonacci数列定义如下： ? F1=1 ? F2=1 ? Fn=Fn-1+Fn-2 (n2) ?求Fibonacci数列的前30项。 integer f(30),i f(1)=1 f(2)=2 do i=3,30 f(i)=f(i-1)+f(i-2) enddo print*,f end 2．输入10个学生的总分，求每个学生的名次 ? integer s(10),a(10),i,j do i=1,10 read*,s(i) enddo do i=1,10 a(i)=1 do j=1,10 if(s(i)s(j)) a(i)=a(i)+1 enddo enddo do i=1,10 print*,s(i),a(i) enddo end 3．给定一组数，按照从小到大的顺序输出。 integer a(10) integer p do i=1,10 read *,a(i) enddo do j=1,9 p=j do i=j+1,10 if (a(i)a(p)) p=i enddo if (p/=j) then t=a(p);a(p)=a(j);a(j)=t endif enddo print *,(a(i),i=1,10) end 4．输入若干名学生的学号和三门课程（语