Счетчик элементов массива (для модели толпы)

[mrandrew1990]

Здравствуйте, господа программисты! Нужна ваша помощь... Очень интересует один вопрос. Имеется массив, он отображается на форме и представляет собой сетку, каждый объект которой является "квадратом", закрашиваемым в тот или иной цвет... Т.е. программа представляет собой что-то аналогичное модели паникующей толпы, хотя далекой от нее, в плане реалистичности, но все же... Имеется массив 50*50 - сетка, в верху один выход (красный квадрат), а также квадратики зеленого цвета (как бы люди), которые расположены случайным образом и двигаются к выходу... Так вот, хочу сделать такую вещь, когда человек (зеленый квадратик) задерживается в одной позиции (допустим, если прошло 3 шага и более), то он как бы погибает - закрашивается в другой цвет (допустим, в синий) и остается этот квадрат на том самом месте (будучи уже синим) и не двигается.... И это как бы ко всем применимо чтобы было, чтобы в конце завершения шагов, можно было увидеть сколько клеток синих осталось, т.е. сколько людей погибло... Ну думаю суть идеи понятна... Просто, что-то никак не могу догнать, как это реализовать, счетчик как замудрить ... Помогите пожалуйста... Ниже исходник прилагается.

[evg_m]

F: array [1..s, 1..s] of integer;

заменить на

F: array [1..s,1..s] of Tman;

и объявитть класс

Tman=class
 fstate: integer;
 .....
end;

или запись

TMan =record
 fstate: integer;
 .....
end;

с нужным тебе набором полей (свойств).

а также квадратики зеленого цвета (как бы люди), которые расположены случайным образом и двигаются к выходу...

то он как бы погибает - закрашивается в другой цвет (допустим, в синий) и остается этот квадрат на том самом месте (будучи уже синим) и не двигается....

набор свойств должен обеспечивать определение текущего состояния, и давать возможность расчета нового состояния.

задерживается в одной позиции (допустим, если прошло 3 шага и более)

[mrandrew1990]

Сообщение от evg_m

заменить на

F: array [1..s,1..s] of Tman;

и объявитть класс

Tman=class
 fstate: integer;
 .....
end;

или запись

TMan =record
 fstate: integer;
 .....
end;

с нужным тебе набором полей (свойств).


набор свойств должен обеспечивать определение текущего состояния, и давать возможность расчета нового состояния.

Привет! Что-то не совсем понимаю... можешь сделать наброски какие??? просто я дуб в этом(((

[Slym]

На тестируй

[mrandrew1990]

Сообщение от Slym

На тестируй

Спасибо большое... очень-очень благодарен...

[Slym]

так отрисовка интересней

Procedure TMod1Form.PaintScreen;
var i,j: integer;
Begin
  with Image.Canvas do
  begin
    Brush.Color:=clBlack;
    Pen.Color:=clBlack;
    Rectangle(0, 0, Image. Width, Image.Height);
    {çàïîëíåíèå îñòàâøåãîñÿ ïðîñòðàíñòâà ÷åðíûì öâåòîì}
    for i:=low(F) to High(F) do
      for j:=low(F[low(F)]) to High(F[low(F)]) do
      begin
        Brush.Color:=StateColor[F[i,j].State];
        Pen.Color:=StateColor[F[i,j].State];
        if F[i,j].State=1 then
          Brush.Color:=Brush.Color or Trunc($FF/InitialLife*(InitialLife-F[i,j].Life));
        Rectangle((i-1) * 10+2, (j-1) * 10+2, I * 10 + 1, J * 10+1);
      end;
  end;
End;

[mrandrew1990]

Сообщение от Slym

так отрисовка интересней

Procedure TMod1Form.PaintScreen;
var i,j: integer;
Begin
  with Image.Canvas do
  begin
    Brush.Color:=clBlack;
    Pen.Color:=clBlack;
    Rectangle(0, 0, Image. Width, Image.Height);
    {çàïîëíåíèå îñòàâøåãîñÿ ïðîñòðàíñòâà ÷åðíûì öâåòîì}
    for i:=low(F) to High(F) do
      for j:=low(F[low(F)]) to High(F[low(F)]) do
      begin
        Brush.Color:=StateColor[F[i,j].State];
        Pen.Color:=StateColor[F[i,j].State];
        if F[i,j].State=1 then
          Brush.Color:=Brush.Color or Trunc($FF/InitialLife*(InitialLife-F[i,j].Life));
        Rectangle((i-1) * 10+2, (j-1) * 10+2, I * 10 + 1, J * 10+1);
      end;
  end;
End;

Да, действительно классно - красиво очень... Спасибо!!!