Yahoo奇摩 網頁搜尋

  1. ...integer, allocatable :: m(:) write(*,*) "班上有多少學生?" read (*,*) students allocate ( s(students), m(students), stat=i ) if ( i/=0 ) then write(*,*) "...

  2. ...bb, cc ierr = -1 if (na .ne. mb) return mc = ma nc = nb allocate (a(ma, na), b(mb, nb), c(mc, nc)) do i = 1, ma do j...1610061500272 2010-06-15 18:33:07 補充: 第 2 題較棘手的是: Fortran 雖然允許使用陣列當作呼叫副程式的「引數」(...

  3. ...read(10,*) Ar, Ac read(10,'(/)') read(10,*) Br, Bc allocate ( A(Ar,Ac), B(Br,Bc), S(Ar...

  4. ... even!' write(*,*)'input an integer again' read(*,*)n end do allocate (array(n+1,n+1)) array=0 i=1 j=n/2+1 array(i,j)=1 newi=i newj=j...