Объявлена функция 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.
(Ответ считается верным, если отмечены все правильные варианты ответов.)
Варианты ответа
write(*,*) CH("Q", i, i, maska = mask(1:10:2).XOR.mask(31:40:2), param=symbol)(Верный ответ)
write(*,*) CH("C:\DATA\1.txt", N+1, N, param = '!', maska = mask(::2))
write(*,*) CH("000001", i, i, maska = mask(1:10:2).AND.mask(31:40:2))(Верный ответ)
write(*,*) CH("res.dat", N, N, maska = mask(::4))
write(*,*) CH("QXXDF67C", N, i, maska = mask(2:30:3), param = symbol)