Ответы к контрольной работе: Введение в программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel

Процедуры GDI можно использовать в проектах

В головной программе описаны переменные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

Какого типа должны быть объявлены вершины многоугольника для вызова процедуры Polygon в проекте QuickWin ?

Чему равно значение переменной betta? Переменные tk, param, s0, betta – целые двухбайтовые.param=5 + 9/4 + mod(9,4)param=-param/2s0=2**3**2tk=s0/parambetta=sign(s0,tk)

Какие операторы описывают процедуры, передаваемые как параметры ?

Какой тип имеют дескрипторы в GDI ?

Фрагмент программы преобразует файл vector.txt ^^^1^^^4^^^5^^^8^^^9^^^0^^^7 в файла spisok.dat с данными 0001000400050008000900000007.Введите номера строк, разделяя ; в порядке выполнения программы 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')

Данный оператор read(1,END=200) MASSIV может быть записан для файла

Дан массив integer A(20,20)Запись A(:10:2,:)=5 означает присвоить значение 5

В операторе read(*,*) вместо второго символа "*" можно использовать

Оператор write(*,*) выполняет

Чему равно значение переменной alfa?Переменные ap, bp, sp, alfa – целые восьмибайтовые.ap=mod(22,5)bp=2-mod(7,4)bp=ap+sign(ap,bp)sp=dim(ap,bp)alfa=ap+bp+sp

Какая процедура в проекте Windowing Application используется для выбора пера (кисти) текущим

Объявлена подпрограмма 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

Какой из фрагментов программы открывает файл в режиме только для чтения и доступный только для чтения другим программам ?

Чтобы получить расширение файла

Оператор, закрывающий устройство В/В

Для вывода на экран ^^^^^^^^^^54321 (^ - означает пробел) можно воспользоваться следующими операторами write.

Укажите процедуру, выполняющая очистку экрана в проекте QuickWin

Дан массив integer A(20,20)Запись A(:2,:2)=5 означает присвоить значение 5

Сколько раз переменная k увеличится на 2? 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

В проекте QuickWin на черном экране нарисована только одна произвольная замкнутая область красной пунктирной линией. Что произойдет если попытаться закрасить, замкнутую область желтым цветом, процедурой FloodFill (стартовая точка находится внутри области) ?

Укажите верные утверждения. Процедуры бывают двух видов

Для того чтобы, создать динамический массив A с границами, формой и значениями как у массива B следует воспользоваться оператором

Операция C=A-B над двумерными массивами A и B аналогична следующим строчкам программы

Перечислите новшества языка Fortran 90

Для нахождения остатка от деления используется процедура

Какая функция проверяет присутствие необязательного формального параметра ?

Какой атрибут объявляет процедуру элементной ?

Объявлена функция 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

Фрагмент программы преобразует файл vector.txt ^^^1^^^4^^^5^^^8^^^9^^^0^^^7 в файл spisok.dat с данными 0001000400050008000900000007.Введите номера строк, разделяя ; в порядке выполнения программы 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')

Что можно сказать о следующих строках удачно скомпилированной программы ? logical ex inquire (file='F:geom.inf', exist = ex) if (ex) open(1,file='G:copy.txt', action='write', form='binary')Выберите верные утверждения

Укажите верные утверждения. Форматные файлы

Какой оператор используется для размещения в памяти динамического массива

Оператор, используемый для вывода данных на экран

Укажите верные утверждения, которые относятся к чистым процедурам

Продолжение на следующей строке обозначается ...

Перечислите новшества языка Fortran 95

Для описания переменной символьного типа используется оператор

Какой атрибут задает сохранять свои значения для внутренних переменных процедур ?

При задании толщины пера равным нулю, линии будут

Выберите процедуры, которые устанавливают текущий цвет в проекте Standard Graphics

В проекте QuickWin маска заполнения устанавливается процедурой

Какие из фрагментов программ содержат рекурсивные вызовы

Какой атрибут указывает, что стандартные процедуры передаются как фактические параметры в другие процедуры ?

Объявлена подпрограмма 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)

Объявлена подпрограмма subroutine InitST(name, stat, param, index, vector) character(*) name logical stat real param integer index complex vector(1000) ... end subroutine InitSTКакие вызовы подпрограммы являются верными, если complex Z(1000)

Процедура, вычисляющая размер массива вдоль заданного измерения называется

В результате выполнения операции C=A*B над двумерными массивами A и B произойдет.

Сколько раз переменная k увеличится на 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

Укажите строку программы, которая означает: целочисленную переменную s увеличили в 12 раз, если p=12.235.

Процедура выполняющая левое выравнивание символьной строки

Чему равно значение переменной param в конце работы фрагмента программы? implicit noneinteger paraminteger(2) scalar associate (sparam=>10) scalar=sparam+1 param=param+1 end associate param=param+1

Какое сочетание клавиш выполняет компиляцию и запуск программы без отладки?

Какая процедура выполняет умножение матриц по правилу "строка на столбец"?

Объявлена функция complex function fun(a,b,ind,symbol) result(gnew) real a,b integer ind character symbol ... end function funКакие вызовы функции являются верными ?

Какой модуль используются в проектах Standard Graphics и QuickWin ?

Какой оператор информирует головную программу о типе возвращаемого значения и типе формальных параметров для внешней функции

Процедура, выполняющая упаковку массива в одномерный массив

Выберите вызовы процедур, которые позволят рисовать коричневым цветом в проекте Standard Graphics

В проекте QuickWin тип линии устанавливается процедурой

В головной программе описаны переменные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

Для открытия файла в режиме "только для чтения" следует использовать спецификатор

Укажите процедуру, которая определяет доступ к файлу

Данный оператор read(1, "(i8)", rec = 10) koeff может быть записан для файла

Присваивание нижнему треугольнику (исключая диагональ) квадратной матрицы выполняют операторы:

Сколько раз переменная k увеличится на 3? 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

Укажите строку программы, которая означает: целочисленной переменной s присвоили 235, если p=12.235.

Для определения нажатия клавиши на клавиатуре используется процедура

Чему равно значение переменной sigma?Переменные q1, q2, tetta, sigma – целые однобайтовые. q1=101q2=mod(q1,3)**7+1tetta=q2+100sigma=max(tetta,q2,q1)+min(q2,q1)

Оператор, прерывающий выполнение программы

Укажите символы допустимые для задания имен

Оператор, используемый для ввода данных в программу

Для рисования сектора круга в проекте Standard Graphics используется процедура

Укажите верные утверждения. Внешние файлы

В операторе read для передачи управления исполняемому оператору при возникновении ошибочной ситуации "достигнут конец файла" используется спецификатор

Процедура, которая переводит физические координаты в координаты порта просмотра в проекте Standard Graphics

Укажите верные утверждения. Процедуры бывают следующих типов

Укажите верные утверждения. Внешние процедуры

Сколько раз переменная k увеличится на 3? 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

Перечислите зарезервированные константы для стилей пера в GDI

Какая функция в GDI используется для определения цвета по трем компонентам Red, Green, Blue ?

Выберите вызовы процедур, которые позволят рисовать желтым цветом в проекте QuickWin

Укажите атрибут, который позволяет выделять память для внутренних переменных во время выполнения программы.

Объявлена функция character function func(x,y,k,A,M) real x,y integer(1) k integer A(M) ... end function funКакие вызовы функции являются верными ?

Укажите верные утверждения. Внутренние процедуры объявляются после оператора

Что можно сказать о следующих строках удачно скомпилированной программы в среде Windows? 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,:,:,:,:)Выберите верные утверждения

Какой из операторов создает временный файл, удаляемый после работы программы ?

Для запрета асинхронного чтения данных из файла используется спецификатор

Для открытия файла в режиме асинхронного ввода/вывода следует использовать спецификатор

Оператор, позволяющий получить информацию о том существует файл или нет

Процедура, выполняющая переформирования массива называется

Дан массив integer B(10,20)Запись B(:,:)=4 означает присвоить значение 4

Для вычисления комплексного сопряженного числа используется процедура

Для вывода на экран ^^^^^12345 (^ - означает пробел) можно воспользоваться следующими операторами write.

Какое сочетание клавиш выполняет компиляцию и запуск программы в отладочном режиме?

Для смены атрибутов файла можно воспользоваться языковыми средствами

Для установки названия окна приложения в проекте Standard Graphics используется процедура

Какой оператор используется для освобождения памяти занимаемой динамическим массивом

Укажите верные утверждения. Описание внешних процедур объявляется после оператора