拯救OIBH总部

题意

OIBH被突来的洪水淹没了>.<还好OIBH总部有在某些重要的地方起一些围墙,用*号表示,而一个封闭的*号区域洪水是进不去的……现在给出OIBH的围墙建设图,问OIBH总部没被淹到的重要区域(由"0"表示)有多少。


分析

做法,周围一圈撒“种子”,然后将能蔓延的全部遍历掉就行了


var
zfc:ansistring;
i,j,x,y,tj:longint;
a:array[-1..501,-1..501]of char;


procedure s(i,j:longint);
var
w:longint;
begin
    if a[i,j]='0' then a[i,j]:='1' else exit;
    s(i+1,j);
    s(i-1,j);
    s(i,j+1);
    s(i,j-1);
end;




begin
    while not eof(input) do
    begin
        read(zfc);
        readln;
        inc(i);
        for j:=1 to length(zfc) do
        a[i,j]:=zfc[j];
        y:=length(zfc);
    end;
    x:=i;
    for i:=1 to x do
    begin
        if a[i,1]='0' then s(i,1);
        if a[i,y]='0' then s(i,y);
    end;
    for i:=1 to y do
    begin
        if a[1,i]='0' then s(1,i);
        if a[x,i]='0' then s(x,i);
    end;
    for i:=1 to x do
    for j:=1 to y do
    if a[i,j]='0' then inc(tj);
    writeln(tj);
end.

转载于:https://www.cnblogs.com/YYC-0304/p/9500153.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值