Хищники и жертвы - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Хищники и жертвы (http://forum.oszone.net/showthread.php?t=194317)

Balthazar

18-12-2010 12:32 1568727

Хищники и жертвы

напишите пожалуйста кто-нибудь фрагмент кода программы на Visual Basic про хищника и жертву.нужет тот фрагмент где хищник поедает жертву,догоняя её.

lxa85

18-12-2010 12:43 1568729

:lol: У меня VBA под руками нет, но как-то так:

Код:

function catch(pr,vic) as boolean:

if pr.x=vic.x then catch=true

else catch=false:

end function



procedure eat(pr,vic) :

pr.eat=pr.eat+1:

Vic.killed=true:

end procedure:



if Catch(Predator, Victim) then Eat(Predator, Victim)

помогло? :)

Balthazar

18-12-2010 13:31 1568770

да, немного.спасибо!)

Время: 16:17.