Fortran复习题(2)

5、阅读下列FORTRAN程序： program example implicit none integer i

integer strlen

integer, parameter :: key = 2 character(len=20) :: string write(*,*) \ read(*,*) string

strlen = len_trim(string) do i = 1, strlen

string(i:i) = char( ichar(string(i:i)) + key ) end do

write(*,\ stop end

BCDIJK<回车>

则最后输出的结果为: DEFKLM

6、阅读下列FORTRAN程序： program example implicit none integer i,j do i=1, 2

do j=2, 3, 2

write(*, \ end do

write(*,*) \ end do stop end

程序运行的结果是: 1 2

another circle 2 2 another circle

（按输出格式，1、2前均有一空格。若题目无特殊说明，不需表达出；若有说明，则空格用“□”表示）

7、阅读下列FORTRAN程序： program example implicit none

integer :: dest = 6 integer floor do floor=1, dest

if ( floor==2 .or. floor==4 ) cycle write(*,*) floor end do stop end

程序运行的结果是: 1

3 5 6

8、阅读下列FORTRAN77程序： program example

implicit none

integer, parameter :: limit=10 integer counter integer :: ans = 0 counter = 1

do while( counter <= limit ) ans = ans + counter counter = counter + 2 end do

write(*,*) ans stop end

程序运行的结果是: 25

9、阅读下列FORTRAN程序： program example implicit none

integer, parameter :: students = 5

integer :: student(students) = (/ 80, 90, 85, 75, 95 /) integer i

do while( .true. ) write(*,*) \ read(*,*) i

if ( i<=0 .or. i>students ) exit write(*,*) student(i) end do stop end

运行上述程序时，如果从键盘输入 3<回车>

则最后输出的结果为: 85

10、阅读下列FORTRAN程序： program example implicit none

integer, parameter :: L=2, M=3, N=2 real :: A(L,M) = (/ 1,2,3,4,5,6/) real :: B(M,N) = (/ 1,2,3,4,5,6/) real :: C(L,N) integer :: i,j,k do i=1,L do j=1,N

C(i,j) = 0.0 do k=1,M

C(i,j) = C(i,j)+A(i,k)*B(k,j) end do end do end do do i=1,L

write(*,*) C(i,:) end do stop end

程序运行的结果是: 22 49

28 64

11、阅读下列FORTRAN程序： program example implicit none

integer :: i,j loop1: do i=1,3 loop2: do j=1,3

if ( i==3 ) exit loop1 if ( j==2 ) cycle loop2

write(*, \ end do loop2 end do loop1 stop end

程序运行的结果是: (1,1) (1,3)

(2,1) (2,3)

12、阅读下列FORTRAN程序： program example implicit none real :: a=1.0

call ShowInteger(a) call ShowReal(a) stop end

subroutine ShowInteger(num) implicit none integer :: num write(*,*) num return end

subroutine ShowReal(num) implicit none real :: num write(*,*) num return end

程序运行的结果是: 随机数

1.000000

13、阅读下列FORTRAN程序： program example implicit none

integer, parameter :: row = 2 integer, parameter :: col = 2 integer :: m(row, col) integer r integer c

data ((m(r,c), r=1, 2), c=1,2) /1,2,3,4/

write(*,\ stop end

程序运行的结果是: 1 3 2 4 14、阅读下列FORTRAN程序： program ex0805 implicit none

integer :: a = 1 integer :: b = 2

write(*,*) a,b call add(a) call add(b) write(*,*) a,b stop end

subroutine add(num) implicit none integer :: num num = num+1 return end

程序运行的结果是: 1 2 2 3

15、阅读下列FORTRAN程序： program example implicit none

integer, parameter :: size=10

integer :: a(size) = (/ 5,3,6,4,8,7,1,9,2,10 /) integer :: i,j integer :: t do i=1, size-1 do j=i+1, size

if ( a(i) > a(j) ) then t=a(i) a(i)=a(j) a(j)=t end if end do end do

write(*,\ stop end

程序运行的结果是: 1 2 3 4 5 6 7 8 9 10

16、阅读下列FORTRAN程序： program example implicit none real :: a=1 real :: b=2

real, external :: add

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库Fortran复习题(2)在线全文阅读。