CTSC2004 2_3 公式编辑器.docVIP

公式编辑器 湖南省长沙市长郡中学 胡伟栋 问题简述： 给出键盘的一些操作，要求编一个程序模拟公式编辑器处理这些操作。公式编辑器支持以下操作： 输入字符、插入分式、插入矩阵、插入一行或一列到矩阵中、光标上下左右移动、光标移到编辑框首、光标移到编辑框尾。 分析： 此题是一道很复杂的模拟题。此题难点在于其对象的类型比较多：有字符、矩阵和分式，同时操作比较多：有光标的上下左右移动、Home、End，矩阵的增加行、列等。且输出也比较麻烦。 解决此题主要是保持头脑清醒（这一点对做任何模拟题都非常重要）和选择好的数据结构。这里，整个表达式很像一棵树的样子：如果一个表达式不是整个表达式，则它必有一个直接的包含它的表达式，这就是它的父表达式；每个表达式都可能有0个或多个子表达式且子表达式之间没有直接关系。可以用树结构来处理整个表达式。 此题是一个模拟题，不要用到多少算法，只要按照原题所说的一步一步做即可。具体做法可见参考程序。 program Maths; {$Mode Delphi} // 引用Delphi模式 const inf = maths.in; // 输入文件 ouf = maths.out; // 输出文件 maxChars = 100000; // 输出的非空字符最大数 type eleStyle = (eleChar, eleExp, eleMatrix, eleFraction); // 表达式的类型 placeType = (pl_None, pl_Home, pl_End); // 不移动/移到编缉框开始位置/移到编缉框结束位置 const hs : array[eleChar..eleFraction] of integer = (0, 1, 1, 2); // 不同表达式的初始行数 ws : array[eleChar..eleFraction] of integer = (0, 0, 1, 1); // 不同表达式的初始列数 moveSetPlace : array[-1..1] of placeType = (pl_End, pl_None, pl_Home); // 向左(-1)/右(1)移动到子编辑框的位置 ifEnd : array[-1..1] of integer = (1, 0, 0); // 向左(-1)/右(1)移动是否会到子编辑框的结束位置 canMin : array[eleChar..eleFraction] of integer = (0, 0, 1, 1); // 编辑框的光标能向左移的最小位置 type canvasType = object // 所有非空字符输出队列 l : integer; // 字符数 pos : array[-1..maxChars, 1..2] of integer; // 输出位置 chars : array[0..maxChars] of char; // 输出字符，#0表示分数线 procedure PrintChar(y, x : integer; ch : char); // 在第y行第x列输出一个字符ch procedure sort(_From, _To : integer); // 将字符按行列位置排序 procedure Save(fileName : string); // 输出到文件 end; eleType = class // 表达式的基类 fParent : eleType; // 父达式 fStyle : eleStyle; // 表达式类型 h, w : integer; // h为行数，w为列数 pos : array[1..2] of integer; // 若当前编辑焦点在这个表达式的子表达式中，则指向对应子表达式的位置 Width, Height, UpHeight, DownHeight : integer; // 输出宽度，高度，对齐行上方的高度，对齐行下方的高度 constructor create(parent : eleType; style : eleStyle); // 构造类并初始化 function getS(y, x : integer) : eleType; // 取得y行x列的子表达式 procedure setS(y, x : integer; Value : eleType); // 设置y行x列的子表达式 procedure setFocus(plac