bài toán kho an toàn.

**1hakunamatata** · 29-03-2011 08:40

một nhà máy sản xuất vũ khí có nhiều kho hàng có lính canh gác. Các kho hàn và lính canh được thẻ hiện trên ma trận m hàng n cột. Kho hàng là 'kho an toàn' nếu xung quanh kho toàn là lính canh. lập trình và đưa ra vị trí kho an toàn.
Dữ liệu vào: tệp ANTOAN.INp;
- dòng đầu tiên ghi 2 số m, n nguyên(m,n<=100);
- m dòng tiếp theo mỗi dòng có n số 0 hoặc 1 thể hiện kho hàng và lính canh (kho hàng:=0; lính canh:=1);
- các số trên cùng 1 dòng cách nhau 1 dấu cách.
kết quả: tệp ANYOAN.OUT;
- Nếu có kho an toàn thì mỗi dòng ghi vị trí 1 kho
- sau khi ghi hết vị trí các kho an toàn thì ghi có bao nhiêu kho an toàn ở dòng cuối cùng.
- mỗi số trên cùng 1 hang ghi cách nhau 1 dấu cách.
- không có kho an toàn thì ghi -1.
VD:
antoan.inp: 4 5 antoan.out: 2 2
1 1 1 0 1 3 4
1 0 1 1 1 2
1 1 1 0 1
0 0 1 1 1

**HGMinh95** · 29-03-2011 18:33

Bạn cứ duyệt tất cả các ô có giá trị 0 (không duyệt những ô ở cạnh) nếu xung quanh các ô đều là 1 thì ghi ra file antoan.out

Code:

assign(f,'antoan.out');
rewrite(f);
for i:=2 to n-1 do
    for j:=2 to n-1 do
        if (not a[i,j]) and a[i+1,j] and a[i-1,j] and a[i-1,j+1] and a[i-1,j-1] and a[i+1,j+1] and a[i+1,j-1] 
        and a[i,j-1] and a[i,j+1] then
            begin
                 k:=k+1;
                 writeln(f,i,' ',j);
            end;
if k=0 then k:=-1;
write(f,k);
close(f)

Trong đoạn code trên mình lưu trữ ma trận bằng biến boolean 1:true 0:false

**1hakunamatata** · 30-03-2011 20:12

bạn có thể viết cho mình toàn bộ đoạn code của bạn dk không. Đọc khó hiểu quá ah.

[=========> Bổ sung bài viết <=========]

bạn có thể chỉ mình cách gán các số liệu từ ma trận sang mảng 2 chiều được không?

**HGMinh95** · 31-03-2011 09:45

Code:

var f:text;
    a:array[1..100,1..100] of boolean;
    i,j,m,n:byte;
    k:integer;
procedure Enter;
  var f:text;
      i,j:byte;
      c:byte;
  begin
       assign(f,'antoan.inp');
       reset(f);
       readln(f,m,n);
       for i:=1 to m do
           for j:=1 to n do
               begin
                    read(f,c);
                    if c=1 then a[i,j]:=true else a[i,j]:=false;
               end;
       close(f);
  end;
begin
     k:=0;
     Enter;
     assign(f,'antoan.out');
     rewrite(f);
     for i:=2 to m-1 do
         for j:=2 to n-1 do
             if (not a[i,j]) and a[i+1,j] and a[i-1,j] and a[i+1,j-1] and
             a[i+1,j+1] and a[i-1,j-1] and a[i-1,j+1] and a[i,j-1] and
             a[i,j+1] then
                 begin
                      writeln(f,i,' ',j);
                      k:=k+1;
                 end;
     if k=0 then k:=-1;
     write(f,k);
     close(f);
     readln
end.

Phần gán dữ liệu từ ma trận sang mảng 2 chiều ở thủ tục Enter