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

Количество вопросов - 333

В операторе print *, "TEXT " вместо символа "* " можно использовать

Укажите верные варианты объявления констант и переменных

Для генерации последовательности псевдослучайных целых чисел в диапазоне -4 < R \leq 3 используется запись:

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

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

Что означает аббревиатура GDI ?

Данный оператор
write(buf,200,ERR=100) A,B,C
может быть записан для файла

Укажите верные варианты объявления массивов.

Какой из приведенных циклов вычисляет выражение cos x=1-\frac {x^2} {2!} + \frac {x^4} {4!} - \frac {x^6} {6!} + \frac {x^8} {8!} - ....

Укажите верные варианты записи условного оператора.

В форматном файле word5.txt записаны индексы цветов рисунка по пикселам размером (100х100) пикселов. Формат файла следующий:
  • каждый индекс цвета записан в отдельной строке
  • индексы записываются последовательно друг за другом
  • пустые строки не допускаются
  • сначала записывается первый столбец, затем первая строка без учета первого элемента, далее второй столбец без учета первого элемента, затем вторая строка без учета первых двух элементов далее третий столбец без учета первых двух элементов и т. д.
  • Восстановите изображение и введите текст (маленькие латинские буквы) полученный на экране.

    Выберите процедуры, которые можно объявить элементными.

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

    Оператор, создающий устройство В/В и связывающий с ним внешний файл

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

    Введите значение подстроки str(5:12) в конце работы фрагмента программы
    character(LEN=50) :: str="coirh8euncoewfg8uwbdniwnbd"   str=repeat("File",5)   str(5:7)=achar(80)//achar(81)//achar(82)

    За формирование массива отвечают строки программы \begin{pmatrix}0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\2 & 0 & 2 & 0 & 2 & 0 & 2 & 0 & 2 & 0 \\0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\2 & 0 & 2 & 0 & 2 & 0 & 2 & 0 & 2 & 0 \\2 & 0 & 2 & 0 & 2 & 0 & 2 & 0 & 2 & 0 \\0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  \end{pmatrix}

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

    Какой атрибут объявляет процедуру чистой ?

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

    Что означает второй параметр в функции CreatePen

    Перечислите виды контекстов устройств в GDI

    В двоичном файле pic1.bin по пикселам сохранена область экрана в формате: координата x, координата y, цвет. Какая фигура была изображена на экране ?

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

    Точка отсчета пикселов начинается с угла экрана

    Дана подпрограмма
    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

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

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

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

    Какой из фрагментов программ выполняет перенос данных из файла vector.txt ^^^1^^^4^^^5^^^8^^^9^^^0^^^7 в файла spisok.dat в виде 0001000400050008000900000007

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

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

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

    Данный оператор
    write(1,*,ERR=100, asynchronous='NO') A,B,C
    может быть записан для файла

    За создание массива отвечают строки программы \begin{pmatrix} 4 & 4 & 0 & 0 & 4 & 4 & 0 & 0 & 4 & 4 \\ 4 & 4 & 0 & 0 & 4 & 4 & 0 & 0 & 4 & 4 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ 4 & 4 & 0 & 0 & 4 & 4 & 0 & 0 & 4 & 4 \\ 4 & 4 & 0 & 0 & 4 & 4 & 0 & 0 & 4 & 4 \\0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ 4 & 4 & 0 & 0 & 4 & 4 & 0 & 0 & 4 & 4 \\ 4 & 4 & 0 & 0 & 4 & 4 & 0 & 0 & 4 & 4 \\ \end{pmatrix}

    Программа формирует и выводит на экран матрицу A \underbrace{\begin{pmatrix} 1 & 4 & 7 & 10 & 13 \\ 2 & 5 & 8 & 11 & 14 \\ 3 & 6 & 9 & 12 & 15 \\  \end{pmatrix}}_\text{A}\underbrace{\begin{pmatrix} 1 & 6 & 11 \\ 2 & 7 & 12 \\ 3 & 8 & 13 \\ 4 & 9 & 14 \\  5 & 10 & 15 \\ \end{pmatrix}}_\text{B}Чтобы преобразовать матрицу A в матрицу B достаточно добавить строки в программе

    Какие операторы выполняют преобразование массива A(Mi,Mj)(см. рисунок)(Mi=7, Mj=7) ? \underbrace{\begin{pmatrix} 1 & 1 & 1 & 1 & 1 & 1 & 1 \\ 2 & 2 & 2 & 2 & 2 & 2 & 2 \\  3 & 3 & 3 & 3 & 3 & 3 & 3 \\ 4 & 4 & 4 & 4 & 4 & 4 & 4 \\   5 & 5 & 5 & 5 & 5 & 5 & 5 \\   1 & 1 & 1 & 1 & 1 & 1 & 1 \\  2 & 2 & 2 & 2 & 2 & 2 & 2 \\  \end{pmatrix}}_\text{исходный A} \underbrace{\begin{pmatrix} 1 & 1 & 1 & 1 & 1 & 1 & 1 \\ 2 & 2 & 2 & 2 & 2 & 2 & 2 \\  0 & 0 & 0 & 3 & 3 & 0 & 0 \\ 4 & 4 & 4 & 4 & 8 & 4 & 4 \\   5 & 5 & 5 & 5 & 8 & 5 & 5 \\   1 & 1 & 1 & 1 & 1 & 1 & 1 \\  2 & 2 & 2 & 2 & 2 & 2 & 2 \\  \end{pmatrix}}_\text{преобразованный A}

    Элементам массива требуется присвоить значения, как показано на рисунке. Какую операцию присваивания следует выбрать?\begin{pmatrix} 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  0 & 0 & 1 & 1 & 1 & 1 & 1 & 1 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  0 & 0 & 1 & 1 & 1 & 1 & 1 & 1 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  0 & 0 & 1 & 1 & 1 & 1 & 1 & 1 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ \end{pmatrix}

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

    Укажите верные варианты объявления массивов.

    Вычислите сумму \sum\limits_{k=1}^{30} k^2*sin{(k+\frac x k), x=\frac{\pi}7. В ответ введите целую часть результата.

    Для генерации последовательности псевдослучайных целых чисел в диапазоне -8 < R < 13 используется запись:

    Сколько потребуется просуммировать членов ряда \sum\limits_{k=1} \frac {\lvert sink \rvert} k, чтобы очередное слагаемое стало меньше 0.00001?

    Функция f(x)=sin(x)+\frac {sin (3x)}3 + \frac {sin (5x)}5 протабулирована на отрезке от x0=2 до xn=14 с шагом dx=0.01. Сколько значений функции попадет в область 0<f(x)<2 и 5-dx/2<x<10+dx/2?

    Какой из приведенных циклов вычисляет выражение e^x=1+x + \frac {x^2} {2!} + \frac {x^3} {3!} + \frac {x^4} {4!}+.....

    Вычислите выражение 10^6*\sum\limits_{k=-3}^5 \sum\limits_{i=3}^{12} \frac {(i^2+k)*x^k} {(i+1)}, x= 1,83478346. В ответ введите целую часть результата.

    Дано x=1-i, вычислить \frac {(x-2i)*(x-4)*(x-6i)*(x-8)*...*(x-64)} {(x-1)*(x-3i)*(x-5)*(x-7i)...*(x-63i)}.В ответ ввести целое значение мнимой части результата.

    Вычислите значение выражения S=\left(1+ \frac 1 2 + \frac 1 {2^2} + \frac 1 {2^3} + ... + \frac 1 {2^n} \right)^n, n=80. В ответ ввести целую часть результата

    Укажите верные варианты записи условного оператора.

    Вычислите значение функции f(x)= \frac {log_5 x + arccos {\frac 1 x}}{10^{-4}*\sqrt x * ln x } в точке x=\sqrt 5 + \sqrt 3. Ответом является целая часть результата

    Укажите строку программы, которая означает: переменную k увеличили на остаток от деления переменной m на квадрат переменной s.

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

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

    Введите значение переменной name.
    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)

    Укажите верную запись математического выражения \frac { ln {\lvert ln x \rvert}+ 1/x} {arctg {(x/y)}}, где x, у – вещественные числа.

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

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

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

    Укажите сочетание клавиш для перехода в полноэкранный режим.

    Что означает первый параметр в GDI-функции CreatePen ?

    Функция f(x)=sin(x)+\frac {x} {x+10+cos(x)} протабулирована на отрезке от x0=0 до xn=10 с шагом dx=0.02. Сколько значений функции не попадет в область -1.5<f(x)<2 и 2-dx/2<x<7+dx/2?

    Вычислите сумму \sum\limits_{k=1}^{20} k*cos{(k^2+x), x=\frac{\pi}2. В ответ введите целую часть результата.

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

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

    Укажите верные записи оператора allocate

    Укажите верные варианты записи условного оператора.

    Введите значение подстроки buf(3:k1) после выполнения фрагмента программы (^ - означает пробел).
    integer k1character(LEN=50) bufbuf="^^^^^abcxwyz1234567890"buf(5:10)="XSAMFF"buf=adjustl(buf)k1=index(buf,"12")

    Укажите верное условие попадания в закрашенную область

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

    Обязательно ли создавать функции WinMain и MainWndProc, если будут использоваться процедуры GDI

    Какой модуль используется для работы с процедурами GDI

    В операторе interface следует указывать

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

    Для генерации последовательности псевдослучайных целых чисел в диапазоне -4 \leq R \leq 8 используется запись:

    Вычислите значение комплексного выражения,N=20. В ответ введите целое значение мнимой части результата. S=\frac {1+i} {i-1} + \frac {{(2+i)}^2} {i-2} + \frac {{(3+i)}^3} {i-3} + \frac {{(4+i)}^4}{i-4} + ... + \frac {{(N+i)}^N} {i-N}

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

    Выберите процедуры, которые устанавливают цвет фона в проекте QuickWIn

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

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

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

    Укажите верно заданные имена

    Файл data3.txt содержит двоичные данные целочисленного массива A(Mi,Mj,Mk,Mn). Данные записаны в формате по умолчанию в следующем порядке Mi,Mj,Mk,Mn,A.Найти количество нулевых значений матрицы А.

    Какие операторы выполняют преобразование массива A(Mi,Mj)(см. рисунок)(Mi=7, Mj=7)?\underbrace{\begin{pmatrix} 1 & 1 & 1 & 1 & 1 & 1 & 1 \\ 2 & 2 & 2 & 2 & 2 & 2 & 2 \\  3 & 3 & 3 & 3 & 3 & 3 & 3 \\ 4 & 4 & 4 & 4 & 4 & 4 & 4 \\   5 & 5 & 5 & 5 & 5 & 5 & 5 \\   4 & 4 & 4 & 4 & 4 & 4 & 4 \\   5 & 5 & 5 & 5 & 5 & 5 & 5 \\   \end{pmatrix}}_\text{исходный A}\underbrace{\begin{pmatrix} 0 & 0 & 0 & 9 & 1 & 1 & 1 \\ 2 & 2 & 2 & 9 & 2 & 2 & 2 \\  0 & 0 & 0 & 9 & 3 & 3 & 3 \\ 4 & 4 & 4 & 9 & 4 & 4 & 4 \\   0 & 0 & 0 & 9 & 5 & 5 & 5 \\   4 & 4 & 4 & 9 & 4 & 4 & 4 \\   0 & 0 & 0 & 9 & 5 & 5 & 5 \\   \end{pmatrix}}_\text{преобразованный A}

    Перечислите стандарты языка Fortran

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

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

    Стандартные расширение файлов с программами на языке Fortran ?

    Что означает первый параметр в функции Ellipse в GDI

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

    Вычислите выражение \sum\limits_{k=1}^{10} \prod\limits_{s=2}^{12} k*x+S,x=3. В ответ введите целую часть результата.

    К каким процедурам нельзя применить атрибут pure ?

    Укажите верные утверждения. Модульные процедуры

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

    В форматном файле word.txt записаны индексы цветов рисунка по пикселам размером (100х100) пикселов. Формат файла следующий:
  • каждый индекс цвета записан в отдельной строке
  • индексы записываются последовательно друг за другом
  • пустые строки не допускаются
  • рисунок записывается по строкам, сначала идет первый ряд слева направо, затем второй ряд справа налево, третий ряд слева направо и т. д.
  • Восстановите изображение и введите текст (маленькие латинские буквы) полученный на экране.

    Имя метафайла в процедуре CreateEnhMetaFile идет по порядку

    Выберите графические объекты, с которыми работает GDI

    В двоичном файле pic4.bin по пикселам сохранена область экрана в формате: координата x, координата y, цвет. Какая фигура была изображена на экране ?

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

    Укажите какие процедуры следует вызвать чтобы установить цвет фона

    В стандартной палитре из 16 цветов фиолетовый цвет обозначен константой

    Для того, чтобы получить текущее разрешение экрана в проекте QuickWin используется процедура

    Какой оператор используется для остановки работы процедуры и возврат в вызывающую программную единицу.

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

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

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

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

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

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

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

    Какой из фрагментов программ выполняет перенос данных из файла vector.txt ^^^1^^^4^^^5^^^8^^^9^^^0^^^7 в файла spisok.dat в виде 0001000400050008000900000007

    Что можно сказать о следующих строках удачно скомпилированной программы ?
    open(2,file='c:\data.txt',action='WRITE')  write(2,*) 10, 20, 50  rewind(2)
    Выберите верные утверждения

    Файл data4.txt содержит двоичные данные целочисленного массива A(Mi,Mj). Данные записаны в формате по умолчанию в следующем порядке Mi, Mj, A.Найдите сумму элементов 10-й и 20-й строк матрицы A.

    Какой из приведенных фрагментов программы выполняет копирование файла ids.exe в файл ids2.exe ?

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

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

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

    Оператор, перемещающий файловый указатель на одну запись назад

    Данный оператор
    write(1, "(e9.3)") param
    может быть записан для файла

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

    За формирование массива отвечают строки программы \begin{pmatrix} 4 & 4 & 4 & 4 & 4 & 4 & 4 & 4 & 4 & 4 \\4 & 4 & 4 & 4 & 4 & 4 & 4 & 4 & 4 & 4 \\4 & 4 & 4 & 4 & 4 & 4 & 4 & 4 & 4 & 4 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ 4 & 4 & 4 & 4 & 4 & 4 & 4 & 4 & 4 & 4 \\4 & 4 & 4 & 4 & 4 & 4 & 4 & 4 & 4 & 4 \\ \end{pmatrix}

    Элементам побочной диагонали

    Чтобы получить массив B из массива A достаточно добавить строки в программе. \underbrace{\begin{pmatrix} 1 & 4 & 7 & 10 & 13 \\ 2 & 5 & 8 & 11 & 14 \\ 3 & 6 & 9 & 12 & 15 \\  \end{pmatrix}}_\text{A}\underbrace{\begin{pmatrix}1 & 2 & 3 \\4 & 5 & 6 \\7 & 8 & 9 \\10 & 11 & 12 \\13 & 14 & 15 \\  \end{pmatrix}}_\text{B}

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

    Какие операторы выполняют преобразование массива A(Mi,Mj)(см. рисунок)(Mi=5, Mj=8)?\underbrace{\begin{pmatrix} 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ 1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 \\ 2 & 2 & 2 & 2 & 2 & 2 & 2 & 2 \\  2 & 2 & 2 & 2 & 2 & 2 & 2 & 2 \\  5 & 5 & 5 & 5 & 5 & 5 & 5 & 5 \\   \end{pmatrix}}_\text{исходный A}\underbrace{\begin{pmatrix} 0 & 2 & 2 & 2 & 2 & 2 & 2 & 0 \\ 1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 \\ 2 & 4 & 4 & 4 & 4 & 4 & 4 & 2 \\  2 & 2 & 2 & 2 & 2 & 2 & 2 & 2 \\  5 & 7 & 7 & 7 & 7 & 7 & 7 & 5 \\   \end{pmatrix}}_\text{преобразованный A}

    Элементам массива требуется присвоить значения, как показано на рисунке. Какую операцию присваивания следует выбрать?\begin{pmatrix} 1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 & 0 & 0 \\  0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ \end{pmatrix}

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

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

    Укажите верные варианты объявления массивов.

    Вычислите сумму \sum\limits_{k=1}^{20} k*sin{(k*x)}, x=\frac{\pi}5. В ответ введите целую часть результата.

    Для генерации последовательности псевдослучайных целых чисел в диапазоне -3 \leq R \leq 0 используется запись:

    Сколько потребуется просуммировать членов ряда \sum\limits_{k=1} k*\lvert cosk \rvert, чтобы очередное слагаемое стало больше 1000?

    Функция f(x)=sin (x*\sqrt x)+ cos {x^2}*sin{\frac 2 {x+2}} протабулирована на отрезке от x0=1.0 до xn=9.0 с шагом dx=0.1. Сколько значений функции попадет в область -1.5<f(x)<0.5 и 1-dx/2 <x<9+dx/2?

    Какой из приведенных циклов вычисляет выражение ln (x+1)=x-\frac {x^2} {2} + \frac {x^3} {3} - \frac {x^4} {4} + \frac {x^5} {5} - ....

    Вычислите выражение 10^{10}*\sum\limits_{k=1}^7 \sum\limits_{i=2}^{10} \frac {(i+k)*x^k} {i}, x=1,13625582. В ответ введите целую часть результата.

    Дано x=\sqrt{2i}, вычислить 10^5*(sin{(ix)}+cos(ix+1)+sin(ix+2)+cos(ix+3)+...+sin(ix+100)).В ответ ввести целое значение мнимой части результата.

    Найти сумму ряда при N=20 \frac {10^N}{\lvert sin 1 \rvert} +  \frac {10^N}{\lvert sin 2 \rvert + \lvert sin 3 \rvert}+\frac {10^N}{\lvert sin 3 \rvert + \lvert sin 4 \rvert + \lvert sin 5 \rvert} ... + \frac {10^N} {\underbrace{\lvert sin k \rvert + \lvert sin {(k+1)} \rvert + ... \lvert sin {(k+p)} \rvert}_{\text{N слагаемых}} }. Ответ - целая часть результата.

    Укажите верные варианты записи условного оператора.

    Вычислите значение функции f(x)=\frac {tg{(\frac {x} {x+1})}+10*e^{sin x }} {\sqrt [9] x *cos x} в точке x=e^2*arcsin(0.278). Ответом является ближайшее большее целое число.

    Укажите строку программы, в которой переменной s присвоили нулевое значение.

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

    Какое значение содержит переменная fruits в конце работы фрагмента программы?
    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

    Введите значение подстроки str(1:6) в конце работы фрагмента программы
    character(5), parameter :: s1="start"character(15) str  str=repeat("MOV",5)  str(9:13)=s1  str(3:7)=str(10:14)

    Укажите верное условие попадания в закрашенную область.

    Укажите верную запись математического выражения sin a+\frac{b^{3/8}} {x^2} + tg {\sqrt x}, где a,b,x – вещественные числа.

    Чему равно значение переменной p? Переменные k, m, n, p – целые двухбайтовые.
    	m=2**7-1k=m/2**2n=k+mod(k,10)p=k+n/2

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

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

    Оператор, обозначаемый конец программы

    Комментарии обозначаются ...

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

    Какое значение содержит ссылка ptr1 в конце работы фрагмента программы?
        integer, pointer :: ptr1, ptr2  integer, target :: value = 300, param = 500  value=value*10  ptr1=>param  ptr2=>value  ptr1=ptr2+1  param=param*10 

    Файл data2.txt содержит двоичные данные целочисленного массива A(Mi,Mi). Данные записаны в формате по умолчанию в следующем порядке Mi, A.Найдите сумму элементов нижней треугольной матрицы A (без диагонали).

    Какие операторы выполняют преобразование массива A(Mi,Mj)(см. рисунок)(Mi=5, Mj=8)?\underbrace{\begin{pmatrix} 1 & 2 & 3 & 4 & 5 & 0 & 1 & 8 \\ 1 & 2 & 3 & 4 & 5 & 0 & 1 & 8 \\ 1 & 2 & 3 & 4 & 5 & 0 & 1 & 8 \\ 1 & 2 & 3 & 4 & 5 & 0 & 1 & 8 \\ 1 & 2 & 3 & 4 & 5 & 0 & 1 & 8 \\  \end{pmatrix}}_\text{исходный A}\underbrace{\begin{pmatrix} -1 & -1 & -1 & 4 & 5 & -1 & -1 & 8 \\ 1 & 2 & 3 & 4 & 5 & 0 & 1 & 8 \\ -1 & -1 & -1 & 4 & 5 & -1 & -1 & 8 \\ 1 & 2 & 3 & 4 & 5 & 0 & 1 & 8 \\ -1 & -1 & -1 & 4 & 5 & -1 & -1 & 8 \\  \end{pmatrix}}_\text{преобразованный A}

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

    В двоичном файле pic2.bin по пикселам сохранена область экрана в формате: координата x, координата y, цвет. Какая фигура была изображена на экране ?

    Введите значение подстроки buf(1:7) после выполнения фрагмента программы
     character buf*30, name*5, ex*3buf="abcxwyz1234567890"name=buf(1:5) ex=buf(4:6)buf=name//ex

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

    За формирование массива отвечают строки программы \begin{pmatrix} 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ 0 & 0 & 0 & 5 & 0 & 5 & 0 & 5 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ 0 & 0 & 0 & 5 & 0 & 5 & 0 & 5 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ 0 & 0 & 0 & 5 & 0 & 5 & 0 & 5 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  \end{pmatrix}

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

    В операторе write для передачи управления исполняемому оператору при возникновении ошибки ввода/вывода используется спецификатор

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

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

    Вычислите сумму \sum\limits_{k=1}^{100} k^3*sin^2{(\frac x k)}, x=\frac{\pi}8. В ответ введите целую часть результата.

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

    Укажите строку программы, которая означает: переменную st уменьшили в e раз.

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

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

    (Ответ считается верным, если отмечены все правильные варианты ответов.)

    Укажите стандартные типы проектов в Intel Visual Fortran
    (Ответ считается верным, если отмечены все правильные варианты ответов.)

    Укажите верные варианты объявления констант и переменных
    (Ответ считается верным, если отмечены все правильные варианты ответов.)

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

    В головной программе описаны переменные
      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)
    Выберите верные утверждения

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

    Что можно сказать о следующих строках удачно скомпилированной программы ?
      if (.NOT.(eof(1)) read(1) base  read(1) A  close(1,status='DELETE')
    Выберите верные утверждения

    Чему равно значение переменной pos в конце фрагмента программы? Переменные a, b, c, pos - целые четырехбайтовые.
    a=2;  b=3;  c=5b=b/2*2c=b**bpos=a+b+c/3+1+2**bpos=-pos

    Вычислите значение функции f(x)= \frac {sin{\sqrt {x^2+x}}*ln {x^{100}}}{x*cosx} в точке x=\pi + 1. Ответом является ближайшее большее целое число.

    Цикл обработки сообщения в проекте Windowing Application обрабатывает сообщения

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

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

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

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

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

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

    Дано x=1+i, вычислить 10^5*(\frac {sin(ix)}{cos(x+i)}-\frac {sin(2ix)}{cos(x+2i)}+ \frac {sin(3ix)}{cos(x+3i)})-\frac {sin(4ix)}{cos(x+4i)}+...+\frac {sin(31ix)}{cos(x+31i)}).В ответ ввести целое значение вещественной части результата.

    Укажите верные варианты объявления массивов.

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

    Укажите верную запись математического выражения \frac {\lvert x+sin x \rvert *x^x} {x^2*cos x}, где x – вещественно число.

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

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

    Вычислите значение функции f(x)=\frac {100*\sqrt {x^2+e^x+1/x}} {\sqrt{1+x}*cos{\sqrt x}} в точке x=\frac {1}{\pi}+\frac{1}{e^2}. Ответом является целая часть результата.

    Дано натуральное N=10, действительное значение x=2.5. Вычислить \left( sin x + sin {(sin x)} + sin {(sin { (sin x)})} + ... + \underbrace{sin{(sin{{(...sin(x)...)})}}}_{\text{N раз}} \right) \cdot 10^N.

    Какой из приведенных циклов вычисляет выражение sin x=x-\frac {x^3} {3!} + \frac {x^5} {5!} - \frac {x^7} {7!} + \frac {x^9} {9!} - ....

    Функция f(x)=sin x + \frac x {x^2+10+cos (x)} протабулирована на отрезке от x0=0 до xn=10 с шагом dx=0.2. Сколько значений функции попадет в область -1.5<f(x)<2 и 2-dx/2<x<7+dx/2?

    Для генерации последовательности псевдослучайных целых чисел в диапазоне 7 < R < 15 используется запись:

    Укажите верные варианты объявления массивов.

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

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

    Чтобы получить массив B из массива A достаточно добавить строку в программе. \underbrace{\begin{pmatrix} 1 & 2 & 3 & 4 & 5 \\  \end{pmatrix}}_\text{A}\underbrace{\begin{pmatrix} 1 & 2 & 3 & 4 & 5 \\ 1 & 2 & 3 & 4 & 5 \\ 1 & 2 & 3 & 4 & 5 \\  \end{pmatrix}}_\text{B}

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

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

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

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

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

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

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

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

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

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

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

    В двоичном файле pic3.bin по пикселам сохранена область экрана в формате: координата x, координата y, цвет. Какая фигура была изображена на экране ?

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

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

    Сколько раз переменная 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

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

    Укажите верные варианты объявления констант и переменных

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

    В текстовом файле записаны целые числа в виде:
    1234и т.д.
    Выберите фрагмент программы, вычисляющий общее количество целых чисел в файле

    Вычислите значение выражения с N корнями: S=10^N*\sqrt{1/3+\sqrt{1/2+\sqrt{1/3+\sqrt {1/2+\sqrt{1/3+...}}}}}. Значение

    N - 25

    . Ответ - целая часть результата

    Вычислите выражение \sum\limits_{k=1}^7 \prod\limits_{s=1}^{5} S*(x+k), x=2. В ответ введите целую часть результата.

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

    Элементам массива требуется присвоить значения, как показано на рисунке. Какую операцию присваивания следует выбрать?\begin{pmatrix} 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  0 & 0 & 1 & 0 & 0 & 1 & 0 & 0 & 1 & 0 \\  0 & 0 & 1 & 0 & 0 & 1 & 0 & 0 & 1 & 0 \\   0 & 0 & 1 & 0 & 0 & 1 & 0 & 0 & 1 & 0 \\  0 & 0 & 1 & 0 & 0 & 1 & 0 & 0 & 1 & 0 \\  0 & 0 & 1 & 0 & 0 & 1 & 0 & 0 & 1 & 0 \\  0 & 0 & 1 & 0 & 0 & 1 & 0 & 0 & 1 & 0 \\  0 & 0 & 1 & 0 & 0 & 1 & 0 & 0 & 1 & 0 \\  0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ \end{pmatrix}

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

    Укажите верные варианты объявления массивов.

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

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

    Дано x=2+3i, вычислить \frac {(x+2)*(x+4)*(x+6)*...*(x+64)} {(x-1)*(x-3)*(x-5)*...*(x-63)}. В ответ ввести целое значение вещественной части результата.

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

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

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

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

    Укажите верные варианты объявления констант и переменных

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

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

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

    Вычислите выражение 1000 \cdot \sum\limits_{k=1}^7 \sum\limits_{i=2}^{10} \frac {(i+k^2)*x} {i*k} x=1,243. В ответ введите целую часть результата.

    Сколько раз переменная 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

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

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

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

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

    Укажите верные утверждения. Модульные процедуры

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

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

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

    В двоичном файле pic5.bin по пикселам сохранена область экрана в формате: координата x, координата y, цвет. Какая фигура была изображена на экране ?

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

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

    Функция f(x)=cos(x)+\frac {cos(3x)} 3 + \frac {cos(5x)}{5} протабулирована на отрезке от x_0=2 до x_n=14 с шагом dx=0.02. Сколько значений функции не попадет в область 0<f(x)<2 и 5-dx/2<x<10+dx/2?

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

    Сколько потребуется просуммировать членов ряда \sum\limits_{k=1} 100*e^{-k/10} cos^2k, чтобы очередное слагаемое стало меньше 0.0003?

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

    Чтобы преобразовать матрицу A достаточно добавить строку в программе \underbrace{\begin{pmatrix} 1 & 2 & 3 & 4 & 5 \\ 6 & 7 & 8 & 9 & 10 \\ 11 & 12 & 13 & 14 & 15 \\  \end{pmatrix}}_\text{исходная A}\underbrace{\begin{pmatrix} 4 & 5 & 1 & 2 & 3 \\ 9 & 10 & 6 & 7 & 8 \\ 14 & 15 & 11 & 12 & 13 \\  \end{pmatrix}}_\text{преобразованная A}

    Укажите верное условие попадания в закрашенную область.

    Какой из приведенных циклов вычисляет выражение \frac 1 {x+a}=\frac 1 a - \frac x {a^2} + \frac {x^2} {a^3} -  \frac {x^3} {a^4} + \frac {x^4} {a^5} - ....

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

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

    Укажите верные варианты объявления констант и переменных

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

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

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

    Сколько раз переменная 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

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

    Элементам массива требуется присвоить значения, как показано на рисунке. Какую операцию присваивания следует выбрать?\begin{pmatrix} 1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 & 1 \\ 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ \end{pmatrix}

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

    Файл data1.txt содержит двоичные данные целочисленного массива A(Mi,Mj,Mk). Данные записаны в формате по умолчанию в следующем порядке Mk, Mi, Mj, A.Найдите сумму элементов матрицы А.

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

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

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

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

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

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

    В форматном файле word4.txt записаны индексы цветов рисунка по пикселам размером (100х100) пикселов. Формат файла следующий:
  • каждый индекс цвета записан в отдельной строке
  • индексы записываются последовательно друг за другом
  • пустые строки не допускаются
  • рисунок записывается в шахматном порядке по столбцам сверху вниз, сначала записываются "белые" пикселы текущего столбца, затем "черные" пикселы текущего столбца, т.е вывод начинается всегда с "белых точек"
  • Восстановите изображение и введите текст (маленькие латинские буквы) полученный на экране.

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

    За формирование массива отвечают строки программы \begin{pmatrix} 0 & 2 & 0 & 0 & 0 & 2 & 0 & 2 & 0 & 0 \\ 0 & 2 & 0 & 0 & 0 & 2 & 0 & 2 & 0 & 0 \\ 0 & 2 & 0 & 0 & 0 & 2 & 0 & 2 & 0 & 0 \\ 0 & 2 & 0 & 0 & 0 & 2 & 0 & 2 & 0 & 0 \\ 0 & 2 & 0 & 0 & 0 & 2 & 0 & 2 & 0 & 0 \\ 0 & 2 & 0 & 0 & 0 & 2 & 0 & 2 & 0 & 0 \\ 0 & 2 & 0 & 0 & 0 & 2 & 0 & 2 & 0 & 0 \\ 0 & 2 & 0 & 0 & 0 & 2 & 0 & 2 & 0 & 0 \\ 0 & 2 & 0 & 0 & 0 & 2 & 0 & 2 & 0 & 0 \\ 0 & 2 & 0 & 0 & 0 & 2 & 0 & 2 & 0 & 0 \\  \end{pmatrix}

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

    Укажите верное условие попадания в закрашенную область

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

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

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

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

    Сколько потребуется просуммировать членов ряда \sum\limits_{k=1} k*sin^2k, чтобы очередное слагаемое стало больше 2000?

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

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

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

    Фрагмент программы преобразует файл 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')

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

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

    В форматном файле word3.txt записаны индексы цветов рисунка по пикселам размером (100х100) пикселов. Формат файла следующий:
  • каждый индекс цвета записан в отдельной строке
  • индексы записываются последовательно друг за другом
  • пустые строки не допускаются
  • рисунок записывается в шахматном порядке по строкам слева направо, сначала записываются "белые" пикселы текущей строки, затем "черные" пикселы текущей строки, т.е вывод начинается всегда с "белых точек"
  • Восстановите изображение и введите текст (маленькие латинские буквы) полученный на экране.

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

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

    Укажите верное условие попадания в закрашенную область.

    Какие операторы выполняют преобразование массива B(Mi,Mj)(см. рисунок)(Mi=7, Mj=10) ?\underbrace{\begin{pmatrix} 0 & 0 & 0 & 0 & 0 & 5 & 5 & 0 & 0 & 0 \\ 1 & 1 & 1 & 1 & 1 & 5 & 5 & 1 & 1 & 1 \\  2 & 2 & 2 & 2 & 2 & 5 & 5 & 2 & 2 & 2 \\  3 & 3 & 3 & 3 & 3 & 5 & 5 & 3 & 3 & 3 \\   5 & 5 & 5 & 5 & 5 & 5 & 5 & 5 & 5 & 5 \\   7 & 7 & 7 & 7 & 7 & 5 & 5 & 7 & 7 & 7 \\  8 & 8 & 8 & 8 & 8 & 5 & 5 & 8 & 8 & 8 \\  \end{pmatrix}}_\text{исходный B}\underbrace{\begin{pmatrix} 0 & 0 & 0 & -2 & -2 & -2 & -2 & -2 & -2 & -2 \\ 1 & 1 & 1 & 1 & 1 & 5 & 5 & 1 & 1 & 1 \\  2 & 2 & 2 & -2 & -2 & -2 & -2 & -2 & -2 & -2 \\ 3 & 3 & 3 & 3 & 3 & 5 & 5 & 3 & 3 & 3 \\   5 & 5 & 5 & -2 & -2 & -2 & -2 & -2 & -2 & -2 \\ 7 & 7 & 7 & 7 & 7 & 5 & 5 & 7 & 7 & 7 \\  8 & 8 & 8 & 8 & 8 & -2 & -2 & 8 & 8 & 8 \\  \end{pmatrix}}_\text{преобразованный B}

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

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

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

    Чтобы получить массив B из массива A достаточно добавить строки в программе. \underbrace{\begin{pmatrix}1 & 4 & 0 & 10 & 13 \\0 & 5 & 8 & 11 & 14 \\0 & 6 & 0 & 12 & 15 \\  \end{pmatrix}}_\text{A} \underbrace{1 \; 2 \; 3 \; 4 \;5\; 6\; 7\; 8\; 9\; 10\; 11\; 12\; 13\; 14\; 15}_\text{B}

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

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

    Вычислите значение функции f(x)=-x^3*\frac {cos {x^2}+x^4} {(x+1)*sin{\sqrt x}} в точке x=\frac{\sqrt 3}{1+10^{-3}}. Ответом является ближайшее большее целое число.

    Сколько раз переменная 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

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

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

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

    В форматном файле word2.txt записаны индексы цветов рисунка по пикселам размером (100х100) пикселов. Формат файла следующий:
  • каждый индекс цвета записан в отдельной строке
  • индексы записываются последовательно друг за другом
  • пустые строки не допускаются
  • рисунок записывается по столбцам, сначала идет первый ряд сверху вниз, затем второй ряд снизу вверх, третий ряд сверху вниз и т. д
  • Восстановите изображение и введите текст (маленькие латинские буквы) полученный на экране.

    Укажите верное условие попадания в закрашенную область.

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

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

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

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

    Файл data5.txt содержит двоичные данные целочисленного массива A(Mi,Mi). Данные записаны в формате по умолчанию в следующем порядке Mi, Mi, A.Найдите сумму элементов побочной диагонали

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

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

    Чему равно значение переменной 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

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

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

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

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

    Фрагмент программы преобразует файл 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') 

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

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

    Укажите верные варианты записи условного оператора.

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

    Сколько потребуется просуммировать членов ряда \sum\limits_{k=1} \sqrt {k/10} * cos^2k, чтобы очередное слагаемое стало больше 10?

    Вычислите сумму 1500*\sum\limits_{k=1}^{100} \frac {sin(kx)} k , x=\frac{\pi}9. В ответ введите целую часть результата.

    Элементам массива требуется присвоить значения, как показано на рисунке. Какую операцию присваивания следует выбрать?\begin{pmatrix} 0 & 1 & 0 & 1 & 0 & 1 & 0 & 1 & 0 & 1 \\  0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\   0 & 1 & 0 & 1 & 0 & 1 & 0 & 1 & 0 & 1 \\   0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\  0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ 0 & 1 & 0 & 1 & 0 & 1 & 0 & 1 & 0 & 1 \\   0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ \end{pmatrix}

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

    Вычислите значение выражения \frac {10^N}{\lvert sin 1 \rvert} +  \frac {10^N}{\lvert sin 1 \rvert + \lvert sin 2 \rvert}+ ... + \frac {10^N}{\lvert sin 1 \rvert + \lvert sin 2 \rvert + ... \lvert sin N \rvert} при N=25. Ответ - целая часть результата.

    Укажите верную запись математического выражения \frac {sin ({z1+Im {(z1)}})} {z^2*i*e^{2i}}, где z1, z2 – комплексные числа, i - мнимая единица.

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

    Укажите верную запись математического выражения \frac {cos{\sqrt a} + \sqrt[5] {x^3}} {ctg {(ln x)} }, где a,x – вещественные числа.

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