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

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

<<- Назад к вопросам

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

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

Варианты ответа
character(128) bufinteger Y,M,Dwrite(buf,"(A)") "2012//05//07"read(buf,"(i4)") Yread(buf,"(i4)") Mread(buf,"(i4)") D
character(128) bufinteger Y,M,Dwrite(buf,"(A)") "2012//05//07"read(buf(1:4),"(i4)") Yread(buf(5:6),"(i4)") Mread(buf(7:8),"(i4)") D
character(128) bufinteger Y,M,Dwrite(buf,"(A)") "2012//05//07"read(buf(1:4),"(i4)") Yread(buf(1:2),"(i4)") Mread(buf(1:2),"(i4)") D
write(buf,"(A)") "2012//05//07"forall (i=1:len(buf),buf(i:i)=='/')  buf(i:i)=' 'end forallread(buf,*) Y, M, D
write(buf,"(A)") "2012//05//07"where (buf=='/')  buf=' 'end forallread(buf,*) Y, M, D	
(Верный ответ)
Похожие вопросы
Какой из приведенных фрагментов программы выполняет копирование файла ids.exe в файл ids2.exe ?
Какой из фрагментов программы открывает файл в режиме только для чтения и доступный только для чтения другим программам ?
Какой из фрагментов программ выполняет перенос данных из файла vector.txt ^^^1^^^4^^^5^^^8^^^9^^^0^^^7 в файла spisok.dat в виде 0001000400050008000900000007
Какой из фрагментов программ выполняет перенос данных из файла vector.txt ^^^1^^^4^^^5^^^8^^^9^^^0^^^7 в файла spisok.dat в виде 0001000400050008000900000007
Процедура, которая переводит координаты порта просмотра в оконную систему координат в проекте Standard Graphics
Какие из фрагментов программ содержат рекурсивные вызовы
Какие из фрагментов программ не содержат рекурсивные вызовы
Процедура, которая переводит физические координаты в координаты порта просмотра в проекте Standard Graphics
Какой из операторов создает временный файл, удаляемый после работы программы ?
Фрагмент программы преобразует файл 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')