【其他】【RQNOJ】数字识别

题目描述

手写数字识别(Handwritten Numeral Recognition)是光学字符识别技术(Optical Character Recognition，简称OCR)的一个分支，它研究的对象是，如何利用电子计算机自动辨认人手写在纸张上的阿拉伯数字。 
在整个OCR领域中，最为困难的就是脱机手写字符的识别，到目前为止，尽管人们在脱机手写英文、汉字
识别的研究中已取得很多可喜成就，但距实用还有一定距离。而在手写数字识别这个方向上，经过多年
研究，研究工作者已经开始把它向各种实际应用推广。 
现在你的任务就是编写一个简单的数字识别程序。
为了降低难度，我们约定笔迹都是直线，且互相垂直；为了便于处理，所有点都用01矩阵表示。1表示有
笔迹，0表示空白。
各数字的样式遵从普通计算器屏幕的模式。输入中大小、笔画长度、宽度不一定相同，但笔画方向必定相同。
保证输入的矩阵所代表数字0-9，符合规范。

输入格式

输入第一行为矩阵的长宽n,m。(0<n<=10,0<m<=10)
以下n行每行m个无空格的字符0或1，表示该点有无笔迹。

输出格式

输出只有一个数字，即所识别出的数字(是0,1,2...9中的一个)。

样例输入

样例1 7 5 01111 00011 11111 10000 10000 10000 11000 样例2 1 1 1

样例输出

样例1 2 样例2 1

三维状态图像

---

因为只有一个数字，所以相对要容易些。

判断拐角。对于四种拐角情况分别为1，2，3，4。然后将其相加，得到的数字是唯一的。

感谢vinence的代码。

const num:array[0..9] of longint=(1234,0,2143,2424,342,1324,131234,2,12314234,123424); var n,m,i,j:integer; map:array[0..11,0..11] of boolean; f:longint; x:char; onek:boolean; begin readln(n,m); fillchar(map,sizeof(map),false); onek:=false; for i:=1 to n do begin for j:=1 to m do begin read(x); if x='1' then map[i,j]:=true; end; readln; end; f:=0; for i:=1 to n do for j:=1 to m do if map[i,j] then begin if (map[i-1,j]) and (map[i,j+1]) and not(map[i-1,j+1]) then f:=f*10+3; if (map[i-1,j]) and (map[i,j-1]) and not(map[i-1,j-1]) then f:=f*10+4; if (map[i+1,j]) and (map[i,j+1]) and not(map[i+1,j+1]) then f:=f*10+1; if (map[i+1,j]) and (map[i,j-1]) and not(map[i+1,j-1]) then f:=f*10+2; end; for i:=0 to 9 do if f=num[i] then writeln(i); end.