База ответов ИНТУИТ

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

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

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

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

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

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

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

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

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

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

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

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

    За формирование массива отвечают строки программы \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}

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

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

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

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

    Какие операторы выполняют преобразование массива 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}

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

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

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

    Укажите стандартные типы проектов в Intel Visual Fortran

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

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

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

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

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

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

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

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

    Введите значение подстроки 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)

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

    Какое значение содержит переменная 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

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

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

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

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

    Найти сумму ряда при 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 слагаемых}} }. Ответ - целая часть результата.

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

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

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

    Функция 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?

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

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

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

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

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

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

    Элементам массива требуется присвоить значения, как показано на рисунке. Какую операцию присваивания следует выбрать?\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}

    Какие операторы выполняют преобразование массива 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}

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

    Чтобы получить массив 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}

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

    За формирование массива отвечают строки программы \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}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    Какие операторы выполняют преобразование массива 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}

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

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

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

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

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

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

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

    Вычислите значение комплексного выражения,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}

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

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

    Что можно сказать о следующих строках удачно скомпилированной программы ?
    write(1,"(i4)",rec=100) param  rewind(1)
    Выберите верные утверждения

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

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

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

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

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

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

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

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

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

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

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

    Функция 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?

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    Функция 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?

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

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

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

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

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

    Элементам массива требуется присвоить значения, как показано на рисунке. Какую операцию присваивания следует выбрать?\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}

    Какие операторы выполняют преобразование массива 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}

    Программа формирует и выводит на экран матрицу 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 достаточно добавить строки в программе

    За создание массива отвечают строки программы \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}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    За формирование массива отвечают строки программы \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}

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

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

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

    Чему равно значение переменной 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 можно использовать в проектах