Создать класс волк с полями: имя, возраст, вес, энергия, голод

@qwerty23 · Регистрация: 12.09.2015

Создать класс волк с полями,имя,возраст,вес,энергия,голод.
Волк может охотится, что уменьшает его вес и энергию.
Если он поймал добычу его вес и энергия повышается.
Волк может спать, что повышает его энергию и голод.
Если голод больше какой-либо отметки–волк умирает(присвоить переменной nil).

@Fikafusik · 05.10.2015, 00:18

В PABC.NET работает сборщик мусора, как бэ.

Pascal

Type
  Wolf = Class
  Private
    n: String;
    a, w, e, h: Int64;
  Const
    hMax = 10;
  Public
    Constructor (Name: String; Age, Weight, Energy, Hunger: Int64);
    Begin
      n := Name;
      a := Age;
      w := Weight;
      e := Energy;
      h := Hunger;
    End;
    Procedure Hunt;
    Begin
      If Random(0, 1) = 1 then 
        Begin
          Inc(w);
          Inc(e);
        End
          Else
        Begin
          Dec(w);
          Dec(e);
        End;
    End;
    Procedure Sleep;
    Begin
      Inc(e);
      Inc(h);
      If h = hMax then 
        Begin
          n := nil;
          a := 0;
          w := 0;
          e := 0;
          h := 0;
        End;
    End;
  End;
 
Begin
End.

@qwerty23 0 / 0 / 0 Регистрация: 12.09.2015 Сообщений: 5
		1
	Создать класс волк с полями: имя, возраст, вес, энергия, голод 04.10.2015, 12:34. Просмотров 1277. Ответов 1 Метки нет (Все метки) Создать класс волк с полями,имя,возраст,вес,энергия,голод. Волк может охотится, что уменьшает его вес и энергию. Если он поймал добычу его вес и энергия повышается. Волк может спать, что повышает его энергию и голод. Если голод больше какой-либо отметки–волк умирает(присвоить переменной nil). 0

Опции темы

Создать класс волк с полями: имя, возраст, вес, энергия, голод

Решение