Объявлены следующие типы и переменные. type cell real next real prev logical stat end type cell type object integer code real dist real radius end type object type grid type (object) object type (cell) cell integer xa,xb,ya,yb end type grid class (*), pointer :: polym class (cell), pointer :: ptc type (grid), target :: ptg
Какие справедливы прикрепления ссылок ?
(Ответ считается верным, если отмечены все правильные варианты ответов.)
Варианты ответа
ptc => ptg.object
polym => ptg.cell(Верный ответ)
ptc => ptg.cell.next
polym => ptg.cell.next(Верный ответ)
ptc => ptg.cell(Верный ответ)