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

[Solnze2]

1)Определить два объекта TPike и TKаrр, которые наследуют объект Tfish (см. задачу 2). Оба они отличаются от TFish тем, что по-разному изображают себя на экране: TPike — в виде зеленой стрелки, а ТКаrр — в виде красного треугольника. Воспользуйтесь виртуальными методами. Для этого вернитесь к определению TFish и откорректируйте его, сделав Draw пустым и виртуальным.

2)Определить объект TFish — аквариумная рыбка. Рыбка имеет координаты, скорость, размер, цвет, направление движения. Методами объекта являются:
• Init — устанавливает значения полей объекта и рисует рыбу на экране методом Draw.
• Draw — рисует рыбу в виде уголка с острием в точке Coord и направленного острием по ходу движения рыбы.
• Look — проверяет несколько точек на линии движения рыбы. Если хоть одна из них отличается по цвету от воды, возвращаются ее цвет и расстояние до рыбы.
• Run — перемещает рыбу в текущем направлении на расстояние, зависящее от текущей скорости рыбы. Иногда случайным образом меняет направление движения рыбы. Если рыба видит препятствие, направление движения меняется, пока препятствие не исчезнет из поля зрения рыбы.