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

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

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

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

character ch*4  open(1,file='vector.txt', access='direct', recl=1, form='formatted')   open(2,file='spisok.dat')  do k=1,28,4      read(1,"(A)",rec=k) ch      write(2,"(A)") '000',ch(3:4)     end do

character ch  open(1,file='vector.txt', access='direct', recl=1, form='formatted')   open(2,file='spisok.dat')  do k=4,28,4      read(1,"(A)",rec=k) ch      write(2,"(3('0'),A,\)") ch     end do

(Верный ответ)

character ch*28  open(1,file='vector.txt')   open(2,file='spisok.dat')  read(1,*) ch  forall (k=1:28, ch(k:k)=='^')    ch(k:k)='0'  end forall  write(2,*) ch

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

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

Фрагмент программы преобразует файл 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.Введите номера строк, разделяя ; в порядке выполнения программы

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)  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')

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

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

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

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

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

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