Фрагмент программы преобразует файл vector.txt ^^^1^^^4^^^5^^^8^^^9^^^0^^^7 в файл spisok.dat с...

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

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

(Отметьте один правильный вариант ответа.)

Варианты ответа

7;5;4;6;3;1;2

4;2;1;3;6;7;5

4;7;6;3;2;5;1

4;1;3;2;6;5;7(Верный ответ)

Похожие вопросы

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

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

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

Что можно сказать о следующих строках удачно скомпилированной программы ?

  logical ex  inquire (file='F:\geom.inf', exist = ex)  if (ex) open(1,file='G:\copy.txt', action='write', form='binary')

Выберите верные утверждения

Объявлена подпрограмма

  subroutine InitST(name, stat, param, index, vector)    character(*) name    logical stat    real param    integer index    complex vector(1000)    ...  end subroutine InitST

Какие вызовы подпрограммы являются верными, если complex Z(1000)

Что можно сказать о следующих строках удачно скомпилированной программы ?

open(2,file='c:\data.txt',action='WRITE')  write(2,*) 10, 20, 50  rewind(2)

Выберите верные утверждения

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

Выберите верные утверждения

Введите значение подстроки str(5:12) в конце работы фрагмента программы

character(LEN=50) :: str="coirh8euncoewfg8uwbdniwnbd"   str=repeat("File",5)   str(5:7)=achar(80)//achar(81)//achar(82)

Введите значение подстроки buf(1:7) после выполнения фрагмента программы

 character buf*30, name*5, ex*3buf="abcxwyz1234567890"name=buf(1:5) ex=buf(4:6)buf=name//ex