基础算法（二）——队列

 队列（queue）在计算机科学中，是一种先进先出的线性表。 它只允许在表的前端进行删除操作，而在表的后端进行插入操作。进行插入操作的端称为队尾，进行删除操作的端称为队头。队列中没有元素时，称为空队列。  

——来自360百科

 

队列的储存：（大体的结构可以用数组或者链表来实现） 一般有两个指针，允许插入的一端焦作队尾（rear），允许删除的一端叫作队头（head），如图1-2所示：

图1-2

 

队列设置的一种参考程序（部分）：

var

  Head,tail:longint;
  Doute:array[1..100000]of longint;
Begin

  head:=x;

  tail:=y;

  read……;

...

End. 

对于队列，一般有如下的操作：

1. 入队

2. 出队

3. 判断队列是否为空

【参考模板】

（1）初始化

Procedure c1;

begin

  head:=0;

  tail:=0;

end;

（2）入队

Procedure c2(x:nultype);

begin

  inc(tail);

  doute[tail]:=x;

end;

（3）出队

Procedure c3;

begin

  inc(head);

end;

在操作的时候，两个指针要随时观察、移动。

【重点】假溢出：读图1-3理解何为假溢出：

先介绍一下循环队列：将普通的队列的首位相连，即可以叫做循环队列，如图1-4

观察图1-5，1-6后理解：如何应对假溢出？

一般的，对付这种情况有如下的方法：

1)采用循环队列；
2)按最大可能的进队操作次数设置顺序队列的最大元素个数；
3)修改出队算法，使每次出队列后都把队列中剩余数据元素向队头方向移动一个位置；
4)修改入队算法，增加判断条件，当假溢出时，把队列中的数据元素向对头移动，然后方完成入队操作。 

【例】细胞（cell.pas/c/cpp ）

【问题描述】一矩形阵列由数字0到9组成,数字1到9代表细胞,细胞的定义为沿细胞数字上下左右还是细胞数字则为同一细胞,求给定矩形阵列的细胞个数。如:阵列

 0234500067

 1034560500

 2045600671

 0000000089

中有4个细胞。

【输入】 输入共m+1行 (1<=m<=100, (1<=n<=100)第一行有两个数据，分别表示总行数和总列数以下的m行，每行有n个0-9之间的数

【输出】细胞个数

【样例】

Input：

4  10
0234500067
1034560500
2045600671
0000000089

Output：

4

【参考程序】

const
dx:array[1..4]of longint=(0,-1,0,1);
dy:array[1..4]of longint=(1,0,-1,0);
var
n,m,i,j,tj:longint;
a:array[-10..100,-10..100]of boolean;
x:char;
state:array[0..4000,0..4000]of longint;

procedure bfs(x,y:longint);
var
head,tail,i:longint;
begin
    inc(tj);
    a[x,y]:=false;
    head:=0;tail:=1;
    state[1,1]:=x;state[1,2]:=y;
    repeat
         inc(head);
         for i:=1 to 4 do
         begin
             x:=state[head,1]+dx[i];
             y:=state[head,2]+dy[i];
             if (x>0)and(x<=m)and(y>0)and(y<=n)and(a[x,y]=true) then
             begin
                 inc(tail);
                 state[tail,1]:=x;
                 state[tail,2]:=y;
                 a[x,y]:=false;
             end;
         end;
    until head>=tail;
end;

begin
    readln(m,n);
    fillchar(a,sizeof(a),true);
    for i:=1 to m do
    begin
        for j:=1 to n do
        begin
            read(x);
            if x='0' then a[i,j]:=false;
        end;
        readln;
    end;
    for i:=1 to m do
    for j:=1 to n do
    if a[i,j]=true then bfs(i,j);
    write(tj);
end.

// （该程序由网上搜集，要用到BFS，找到一个细胞后就进行BFS操作即可）

转载于:https://www.cnblogs.com/LJY2002/p/7343856.html