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

  use graph  type(plot) PLT, PLTA, PLTB  ...  call PLT.Create(10,10,200,200)  PLT=.INVERSE.PLT  write(*,*) PLTA.xcenter  write(*,*) PLT.Radius()  call VerifyPlot(PLTB.coords)  write(*,*) finish(PLTA.start())  PLT=PLTA.UNION.PLTB  ...  

В следующем фрагменте программы, какие имена не являются и могут не являться процедурами, привязанными к типу по имени?

  use grids  type (grid_MKE) GR  type (point) pt  call GR.Init()  call GR.PrintInfo()  write(*,*) GR.coordinates(10,20)  write(*,*) GR.next()  write(*,*) GR.values(2,2)  if (.NOT.GR.err) then  ...  pt = GR.points + pt  ...        

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

  use algebra  type (matrix) MTR, MTR1, MTR2  real det  ...  call MTR.Create(10,10)  call MTR.Random()  call MTR1.Transpose()  det=MTR1.determinant  ...  MTR=MTR1.CONVERT.MTR2  write(*,*) MTR.value(10,2:10,10)  ...        

В приведенном фрагменте программы перечислите имена пользовательских операций.

  use math  type (matrix) MTR, MTR1, MTR2  type (set) S1, S2, S3  ...  call MTR.Create(Mi,Mj)  MTR = MTR1 + MTR2 * (MTR.Inverse())  S2 = S1.CROSS.S3  call MTR1.Transpose()  det = MTR1.determinant  ...  S1 = S2.UNION.S3  write(*,*) S1.value(1:100:2)  ...        

В следующем фрагменте программы, укажите имена перегруженных процедур и операций.

  use flow  type (grid) GRD  type (velocity) VX, VY, VZ  ...  GRID.Init()  call GRD.Add(VX)  call GRD.Add(VY,VZ)  call GRD.Build(X1=0.0,Y1=0.0,X2=2.0,Y2=1.0)  write(1,*) VX + VY, VX - VZ  ...  call GRD.Draw()  ...  call VX.VectorField(GRD)        

Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля A

module mod_A contains   subroutine init     write(*,*) "Initializing A"   end subroutine initend module mod_Amodule mod_B contains   subroutine init     write(*,*) "Initializing B"   end subroutine initend module mod_BPROGRAM prog use mod_A use mod_B implicit none call init() ! вызываем процедуру из модуля Aend        

Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля B

module mod_A contains   subroutine init     write(*,*) "Initializing A"   end subroutine initend module mod_Amodule mod_B contains   subroutine init     write(*,*) "Initializing B"   end subroutine initend module mod_BPROGRAM prog use mod_A use mod_B implicit none call init() ! вызываем процедуру из модуля Bend        

Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля A

module mod_A contains   subroutine init     write(*,*) "Initializing A"   end subroutine initend module mod_Amodule mod_B contains   subroutine init     write(*,*) "Initializing B"   end subroutine initend module mod_BPROGRAM prog use mod_A use mod_B implicit none call init() ! вызываем процедуру из модуля Aend        

Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля A

module mod_A contains   subroutine init     write(*,*) "Initializing A"   end subroutine initend module mod_Amodule mod_B contains   subroutine init     write(*,*) "Initializing B"   end subroutine initend module mod_BPROGRAM prog use mod_A use mod_B implicit none call init() ! вызываем процедуру из модуля Aend    

Данная программа компилируется с ошибкой. Какие варианты изменений в программе можно выполнить, чтобы из головной программы вызвать процедуру init из модуля B

module mod_A contains   subroutine init     write(*,*) "Initializing A"   end subroutine initend module mod_Amodule mod_B contains   subroutine init     write(*,*) "Initializing B"   end subroutine initend module mod_BPROGRAM prog use mod_A use mod_B implicit none call init() ! вызываем процедуру из модуля Bend        

Выберите допустимые объявления модульных переменных для данного варианта программы

module mod_Aimplicit none! здесь следует объявить модульные переменные public init_solver contains   subroutine init_solver(x)     real x     A=A*0.001     B=x+A   end subroutine init_solverend module mod_APROGRAM prog use mod_A, Bnew => B implicit none Bnew=A*2 write(*,*) x+2 call init_solver(0.0)end