Введение в программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel - ответы
Количество вопросов - 333
integer, pointer :: pk character(32), target :: file logical :: st=.FALSE., flag=.TRUE. complex(16) Z1(10,10,10,10) real sk,sp,RКакие из них доступны во внутренней функции GetParamVector?
complex function GetParamVector(V,N,z1) result(flag) complex(16) V integer(8) N complex(16), optional, intent(out) :: z1 real x,y,ks,kp,st ... end function GetParamVector
1) read(1,"(A28)") ch2) ch(k:k+2)='000'3) write(1,"(A28)") ch4) character ch*285) open(1,file='C:\spisok.dat')6) rewind(1)7) end do8) ires = RENAMEFILEQQ ('vector.txt','spisok.dat')9) do k=1,28,4
character buf*30, name*5, ex*3buf="abcxwyz1234567890"name=buf(1:5) ex=buf(4:6)buf=name//ex
k = 1 do select case (k) case (5:16,18:19) k=k+2 case (1:4) k=k+1 case (20) exit case (17) k=k-7 end select end do
integer, pointer :: ptr1, ptr2 integer, target :: value = 300, param = 500 value=value*10 ptr1=>param ptr2=>value ptr1=ptr2+1 param=param*10
m=2**7-1k=m/2**2n=k+mod(k,10)p=k+n/2
character(5), parameter :: s1="start"character(15) str str=repeat("MOV",5) str(9:13)=s1 str(3:7)=str(10:14)
enum, bind(C) enumerator :: apple=1 enumerator pear enumerator :: lemon=5 enumerator orange enumerator kiwi enumerator :: grapes=7end enuminteger :: fruits=-1fruits=orange*3-pear+lemon+kiwi+grapes
open(2,file='c:\data.txt',action='WRITE') write(2,*) 10, 20, 50 rewind(2)Выберите верные утверждения
subroutine GetVolume(A,B,C, ind, symbol) complex(16) A(:) logical(8) B(500) real(4) C(:) integer(1) ind character symbol ... end subroutine GetVolumeКакие вызовы подпрограммы являются верными, если
complex(16) X(1000) logical(8) V(500) real(4) R(250)
character function CH(str, N, status, param, maska) character(*), intent(in) :: str integer, intent(inout) :: N integer, intent(out) :: status character, optional, intent(out) :: param logical, optional, intent(in) :: maska(:) ... end function CHКакие вызовы функции являются верными, если
character(128) adr integer, parameter :: N=7000 integer i character symbol logical :: mask(100) = .TRUE.
real A,B,C,D integer K1, K2, M, N complex SКакие из них доступны во внутренней подпрограмме proc ?
subroutine proc(A,C,M,N) real, intent(in) :: A(:) complex, intent(out) :: C integer, optional, intent(in) :: M,N complex R,T ... end subroutine proc
write(1,"(i4)",rec=100) param rewind(1)Выберите верные утверждения
integer k1character(LEN=50) bufbuf="^^^^^abcxwyz1234567890"buf(5:10)="XSAMFF"buf=adjustl(buf)k1=index(buf,"12")
recursive subroutine proc(param, p, A, B, C) real param logical p real A(:), B(:), C(:) ... end subroutine procКакие вызовы подпрограммы являются верными, если real X(1000), Y(1000), Z(1000)
integer k1character(LEN=100) pathcharacter*11 name path="C:\NUMERICAL\FLOW\RESULTS\Re100.txt" k1=index(path,".txt") path(k1:len(path))="_V1.txt" k1=index(path,"Re") name=path(k1:k1+10)
implicit noneinteger :: param=1integer(2) scalar associate (param=>10) scalar=param+1 param=param+1 end associate param=param+1
integer function FX(x,y,z,A,B,C) complex, intent(in) :: x logical, intent(out) :: y real z complex, intent(in) :: A(:) character(*), intent(in) :: B(:) real, intent(inout) :: C(3) ... end function FXКакие вызовы функции являются верными, если
complex xc, yc, zc, Z(50), W(50) logical status, fс real param, alfa, beta, gamma character NAME(100) real VEC(1000) integer dummy
character(64), parameter :: NAME = "C:\DATA\FLOW\SWIRL\V1" real, pointer :: p1, p2 real, target :: T(1000) logical flag(10) complex(16) C1, C2Какие из них доступны во внутренней подпрограмме proc ?
subroutine proc(C1, C2, flags) real(4), intent(out) :: C1 complex(16), intent(out) :: C2 character(*), optional, intent(in) :: flags real, pointer :: p1 ... end subroutine proc
subroutine proc(a,b,N,func) interface real function func(x) real x end function func end interface real, intent(in) :: a,b integer, intent(in) :: N write(*,*) func(a+b*N) end subroutine procВыберите верные вызовы, если
real function f(x) real x f=sqrt(x)+cos(x)+(1.0,1.0)end function freal function S(x,y) real x,y S=10000*x*yend function Srecursive function fr(x) real x if ((x-1)<0) then fr=1.0 return end if fr=sin(x)+cos(x)+fr(x-1)end function fr
if (.NOT.(eof(1)) read(1) base read(1) A close(1,status='DELETE')Выберите верные утверждения
character(LEN=50) :: str="coirh8euncoewfg8uwbdniwnbd" str=repeat("File",5) str(5:7)=achar(80)//achar(81)//achar(82)
a=2; b=3; c=5b=b/2*2c=b**bpos=a+b+c/3+1+2**bpos=-pos
implicit noneinteger :: param=1integer(2) scalar associate (param=>10) scalar=param+1 end associate param=param+1
open(8, asynchronous='YES', form='BINARY') write(8,asynchronous='NO') A, B(:,:,10:1000,-1:90) wait(2) write(8,asynchronous='NO') C(:,10:1000:2,:,:,:,:)Выберите верные утверждения
character function func(x,y,k,A,M) real x,y integer(1) k integer A(M) ... end function funКакие вызовы функции являются верными ?
k = 2 do select case (k) case (0,4,8,12,20) k=k+1 case (2,6,10,14,18) k=k+2 case (1,3,5,7,9,11,13,15,17,19) k=k+3 case (16) k=k-1 case (21:) exit end select end do
1234и т.д.Выберите фрагмент программы, вычисляющий общее количество целых чисел в файле
q1=101q2=mod(q1,3)**7+1tetta=q2+100sigma=max(tetta,q2,q1)+min(q2,q1)
k = 3 do select case (k) case (3,7,9,12,18) k=k+1 case (5,8,10,13,15) k=k+2 case (11) k=k-4 case (4,6,14,16,17) k=k+3 case (19:) exit end select end do
real(4) A,B,C logical, target :: LOGO complex(8), pointer :: cPT, cPN, cRT integer x,y,zКакие из них доступны во внутренней функции InitFlowAVI?
logical function InitFlowAVI(A,B,C,N,name,LOGO) result (cRT) real(4), intent(in) :: A(:,:,:), B(:,:,:), C(:,:,:) character(256) name logical, optional :: LOGO integer x,y complex(8), pointer, save :: CPT, CPN ... end function InitFlowAVI
complex function fun(a,b,ind,symbol) result(gnew) real a,b integer ind character symbol ... end function funКакие вызовы функции являются верными ?
implicit noneinteger paraminteger(2) scalar associate (sparam=>10) scalar=sparam+1 param=param+1 end associate param=param+1
k = 1 do select case (k) case (1,2,6,8,9,12,14) k=k+1 case (3,4,7,11,13,15) k=k+2 case (5) k=k-1 case (10) k=k+4 case (16:) exit end select end do
subroutine InitST(name, stat, param, index, vector) character(*) name logical stat real param integer index complex vector(1000) ... end subroutine InitSTКакие вызовы подпрограммы являются верными, если complex Z(1000)
subroutine GetIndicator(param, var, gr1, gr2, val) logical, intent (out) :: param real, intent (out) :: var(:) integer(1), intent (in) :: gr1 integer(2), intent (out) :: gr2 complex(16), intent (in) :: val ... end subroutine GetIndicatorКакие вызовы подпрограммы являются верными, если
logical ST(10), dum real A(100), B(100), C(100) integer(2) kf1, kf2 complex(16) R(200)
logical ex inquire (file='F:\geom.inf', exist = ex) if (ex) open(1,file='G:\copy.txt', action='write', form='binary')Выберите верные утверждения
1) open(1,file='vector.txt', access='direct', recl=1, form='formatted') 2) read(1,"(A)",rec=k) ch3) do k=1,284) character ch5) end do6) if (ch=='^') write(1,"(A)",rec=k) '0'7) ires = RENAMEFILEQQ ('vector.txt','spisok.dat')
complex(8) function Ex(A,V,W,alfa,betta,gamma) real, intent(in) :: A(:,:) complex(8), intent(out) :: V(:,:,:) character(*), intent(in) :: W(:) integer, optional, intent(in) :: alfa real, optional, intent(inout) :: betta complex, optional, intent(out) :: gamma ... end function ExКакие вызовы функции являются верными, если
real M2D(100,100) complex(8) C1(10,10,10), A(10,10,10), B(10,10,10) character(128) CH(100) integer kparam real sparam complex zparam
k = 1 do select case (k) case (1,3,4,7) k=k+1 case (2,5,6,8,12:20) k=k+2 case (9) k=k-2 case (10) k=k+5 case (21) exit end select end do
subroutine ModifyMassiv(A,B,st,sp,status) real, intent(in) :: A(:) complex, intent(out) :: B(:,:,:) integer, intent (in) :: st,sp integer, optional, intent(in) :: status ...end subroutine ModifyMassivКакие вызовы подпрограммы являются верными, если
real S(1000) complex Q(100,100,100) integer ik, k1, jk
ap=mod(22,5)bp=2-mod(7,4)bp=ap+sign(ap,bp)sp=dim(ap,bp)alfa=ap+bp+sp
1) read(1,"(A4)",rec=k) ch2) end do3) character ch*44) do k=1,75) write(1,"(A4)",rec=k) ch6) ch(1:3)='000'7) open(1,file='vector.txt', access='direct', recl=4, form='formatted')
param=5 + 9/4 + mod(9,4)param=-param/2s0=2**3**2tk=s0/parambetta=sign(s0,tk)
complex, parameter :: k=(0.0,1.0) integer s1,s2 real A(100,100) logical :: MASK(2,2,3,3,4,4,5)=.TRUE. character, pointer :: pcA, pcB character, target :: str1, str2Какие из них доступны во внутренней функции F ?
real function F(str1, str2, x, y, z, QW) result(A) logical MASKA(2,2,3,3,4,4,5) complex k integer(1) s1 ... end function F