Tinh Dien Tich

tÍnh diỆn tÍch tên file chương trình: area.pas cho một lưới ô vuông kích thước mxn. mỗi ô chứa một số 0 hoặc 1. các số 1 trên lưới tạo thành một đường kín (tức là dãy các ô mà hai ô liên tiếp có chung cạnh hoặc đỉnh và ô cuối cùng của dãy có chung cạnh hoặc đỉnh với ô đầu tiên) bọc được một vùng của lưới mà ta sẽ gọi là một hình. diện tích của hình là số ô chứa số 0 nằm trong đó. yêu cầu: viết chương trình tính diện tích của hình trong một lưới ô vuông cho trước. giả thiết là diện tích của một hình khác 0. dữ liệu: vào từ file văn bản area.inp: dòng đầu tiên chứa hai số nguyên dương m, n m dòng tiếp theo mô tả bảng cho trước, mỗi dòng chứa dãy gồm n số 0 hoặc 1 được ghi liền nhau kết quả: ghi ra trên một dòng của file văn bản area.out diện tích của hình trên lưới đã cho. giới hạn: • 5 ≤ m, n ≤ 100 • giới hạn bộ nhớ: dung lượng bộ nhớ cho phép của turbo pascal 7.0 • giới hạn thời gian: 0.5s / test ví dụ: area.inp

area.out

area.inp

area.out

6 8 01000000 10100000 10010000 10001000 01010000 00100000

7

5 5 00000 01111 10010 01010 00100

3

nộp source theo dạng file nén .rar hoặc .zip, trong file nén chứa thư mục ghi [stt]-[họ tên]