Объектно-ориентированное программирование

@Effyr · Регистрация: 26.05.2015

Author24 — интернет-сервис помощи студентам

Мне необходимо написать функцию(V.Studio) (или что-то вроде того), чтобы если жук одного цвета ест еду такого же, получалось, что все хорошо, а если другого цвета, то он умирал. И вот я запуталась и дошла до такого вида кода:

Fortran

module UseModule
implicit none
 
  type, public:: colors
        integer color
    end type colors
    
     type,extends (colors):: eda
        integer factor
        contains
            procedure,public:: Fract_weight
      end type eda
      
    type, public: zhuk
        integer weight,coloring
        contains
            procedure,public:: Hungry_weight 
    end type zhuk
    
    contains
    
 real function Fract_weight(bar) 
   class(Eat),intent(inout)::bar
   Fract_weight=bar.factor
 end function
 
  real function Hungry_weight(bar)
        class(Beetle),intent(inout)::bar
        Hungry_weight=bar.weight*(bar.coloring) 
  end function
  
  end module UseModule

Путаюсь абсолютно во всем. Вот когда нужно запрограммировать обширный класс человек и какой-то подкласс - все хорошо, но когда два типа никак особо не зависят..

@Krasme · 27.05.2015, 06:20

тема - близнец

@Krasme 6830 / 4890 / 2065 Регистрация: 02.02.2014 Сообщений: 13,048
	27.05.2015, 06:20	2
	тема - близнец 1