[Pascal abc] Заливка матрицы цветом выбранного элемента.

[trofchik]

Выдаёт ошибку в функции Point: x не объявле в типе function(x: integer; y: integer).

type TPoint = record
     x, y: integer;
     end;
     
     TQueue = record
     data: array of integer;
     size: integer;
     end;
     
function Empty(q: TQueue): boolean;
begin
  Empty := (q.size = 0);
end;

function Point(x,y: integer): TPoint;
begin
  Point.x := x;
  Point.y := y;
end;

procedure Put(var q: TQueue; p: TPoint);
begin
  if q.size > high(q.data) 
  then setLength(q.data, length(q.data) + 10);
  q.data[q.size] := p;
  q.size := q.size + 1;
end;

function Get(var q: TQueue): TPoint;
var i: integer;
begin
  get := q.data[0];
  q.size := q.size - 1;
  for i := 0 to q.size - 1 do
    q.data[i] := q.data[i + 1];
end;

const
  xmax = 5; ymax = 5;
  newcolor = 2;
  
var
  q: TQueue;
  x0, y0, x, y, color: integer;
  a: array[1..xmax, 1..ymax] of integer;
  p: TPoint;

begin
  for y := 1 to 5 do
    for x := 1 to 5 do
      a[x, y] := random;
  x0 := 2; y0 := 1;
  color := a[x0, y0];
  Put(q, Point(p));
  while not Empty(q) do begin
    p := Get(q);
    if a[p.y, p.x] = color 
    then begin
      a[p.y, p.x] := newcolor;
      if p.x > 1    then Put(Q, Point(p.x - 1, p.y));
      if p.x < xmax then Put(Q, Point(p.x + 1, p.y));
      if p.y > 1    then Put(Q, Point(p.x, p.y + 1));
      if p.y < ymax then Put(Q, Point(p.x, p.y - 1));
    end;
  end;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

раз:

function Point(x,y: integer): TPoint;
var r : TPoint;
begin
  r.x := x;
  r.y := y;
  Point := r;
end;

два:

     TQueue = record
      data: array of TPoint;
      size: integer;
     end;

три:

      a[x, y] := random(5)+1; // или сколько там надо!

четыре:

  Put(q, Point(x0, y0)); // это я не понял, сами разбирайтесь

пять:

function Get(var q: TQueue): TPoint;
var i: integer;
  temp : TPoint;
begin
  temp := q.data[0];
  q.size := q.size - 1;
  for i := 0 to q.size - 1 do
    q.data[i] := q.data[i + 1];
  Get := temp;  
end;

ну а дальше сами попробуйте...

[trofchik]

Спасибо, будет над чем подумать