问题 H: 查找细胞

原创 2015年07月10日 09:46:29

题目描述

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

输入

第一行输入n,m;表示n行m列矩阵。

接下来输入该n*m矩阵

输出

细胞个数

样例输入

4 10 0234500067 1034560500 2045600671 0000000089

样例输出

4
program xibao;
const dx:array[1..4] of -1..1=(-1,0,1,0);
dy:array[1..4] of -1..1=(0,1,0,-1);
var int:text;
name,s:string;
pic:array[1..50,1..79] of byte;
bz:array[1..50,1..79] of boolean;
m,n,i,j,num:integer;
h:array[1..4000,1..2] of byte;
procedure doing(p,q:integer);
var i,t,w,x,y:integer;
begin
inc(num);bz[p,q]:=false;
t:=1;w:=1;h[1,1]:=p;h[1,2]:=q;
repeat
for i:=1 to 4 do
begin
x:=h[t,1]+dx[i];
y:=h[t,2]+dy[i];
if (x>0) and (x<=m) and (y>0) and (y<=n) and bz[x,y]
then begin
inc(w);h[w,1]:=x;
h[w,2]:=y;bz[x,y]:=false;end;
end;
inc(t);
until t>w;
end;
begin
fillchar(bz,sizeof(bz),true);num:=0;
//assign(input,'input.txt');reset(input);
readln(m,n);
//assign(output,'output.txt');rewrite(output);
for i:=1 to m do
begin readln(s);
for j:=1 to n do
begin pic[i,j]:=ord(s[j])-ord('0');
if pic[i,j]=0 then bz[i,j]:=false;
end;
end;
for i:=1 to m do
for j:=1 to n do if bz[i,j] then doing(i,j);
writeln(num);
//close(input);
//close(output);
end.

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

搜索练习(一)细胞

细胞(cell.cpp) 【题目描述】 一矩形阵列由数字0到9组成,数字1到9代表细胞,细胞的定义为沿细胞数上下左右还是细胞数字则为同一细胞,求给定矩形阵列的细胞个数。 【样例输入】 4 ...
  • keshuqi
  • keshuqi
  • 2016年07月23日 20:00
  • 775

细胞个数题解(广度优先搜索)

题目描述: 一矩形阵(n*m)列由数字0到9组成,数字1到9代表细胞,细胞的定义为沿细胞数字上下左右还是细胞数字则为同一细胞,求给定矩形阵列的细胞个数。(细胞数字指1到9) 0234500067 ...

细胞个数

【问题描述】 一矩形阵列由数字0到9组成,数字1到9代表细胞,细胞的定义为沿细胞数字上下左右还是细胞数字则为同一细胞,求给定矩形阵列的细胞个数。 【输入格式】 第一行为两整数m,n(m行,n列) 从第...

湖北民族学院oj 1777(DFS) 之 查找细胞

题目描述 一矩形阵列由数字0到9组成,数字1到9代表细胞,细胞的定义为沿细胞数字上下左右还是细胞数字则为同一细胞,求给定矩形阵列的细胞个数。 输入描述 第一行输入n,m;表示n行m列矩阵。 ...
  • ESESZB
  • ESESZB
  • 2017年04月22日 17:58
  • 281

C语言实现之牛的数量(细胞分裂问题)(利用树实现)

起因:     老师上课的时候说了一个题:         牛长到3岁可以生小牛,长到9岁后去世,每年可以生一头小牛,最初牛圈中只有一头牛,经过X年后,牛圈里有几头牛?     当我听完之后第一...
  • wpggles
  • wpggles
  • 2012年10月18日 17:29
  • 1954

FsWrap.h 支持長檔名就沒有問題

  • 2012年11月14日 17:13
  • 4KB
  • 下载

西门子 hipath h1100常见问题解答

  • 2015年12月10日 11:48
  • 159KB
  • 下载

浅谈h5移动端页面的适配问题

一、前言         昨天唠叨了哈没用的,今天说点有用的把。先说一下响应式布局吧,我一直认为响应式布局的分项目,一下布局简单得项目做响应式还是可以可以得。例如博客、后台管理系统等。但是有些会...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:问题 H: 查找细胞
举报原因:
原因补充:

(最多只允许输入30个字)