解题报告完美版.docVIP

题一： 计算器的改良(18分) 【问题描述】 NCL是一家专门从事计算器改良与升级的实验室，最近该实验室收到了某公司所委托的一个任务：需要在该公司某型号的计算器上加上解一元一次方程的功能。实验室将这个任务交给了一个刚进入的新手ZL先生。为了很好地完成这个任务，ZL先生首先研究了一些一元一次方程的实例： 4 + 3x = 8 6a – 5 + 1 = 2 - 2a -5 + 12Y = 0 ZL先生被主管告之，在计算器上键入的一个一元一次方程中，只包含整数、小写字母及十、一、＝这三个数学符号（当然，符号“一”既可作减号，也可作负号）。方程中并没有括号，也没有除号，方程中的字母表示未知数。 【问题求解】 编写程序，解输入的一元一次方程，将解方程的结果（精确至小数点后三位）输出至屏幕。 你可假设对键入的方程的正确性的判断是由另一个程序员在做，或者说可认为键入的一元一次方程均为合法的，且有唯一实数解。 【样例】 输入： 6a-5+1=2-2a 输出： a=0.750 【问题分析】 本题旨在考察选手处理字符串的能力。 由于在计算器上键入的一个一元一次方程只包含整数、小写字母及+、-、=这三个数学符号，因此，我们可以将+、-号视为常数项或一次项系数的正负号，将连续的数字字符转换为一个整数，然后合并同类项，解出未知数即可。 【数据结构】 由于等号两侧的系数要分别计算，故程序用lcx和lc0记录等号左边的一次项系数值和常数项值，用rcx、rc0记录等号右边的一次项系数值和常数项值。输入的一元一次方程存储在字符串变量equation中，再将字符串equation以等号为界一分为二，分别用字符串变量left和right存储。对left和right的扫描用过程turn实现，形参用于接受left或right的值，变参cx、c0将扫描求得的一次项系数值和常数项值传回主程序。 【算法分析】 本题的关键在于扫描字符串，将其中的一次项系数值和常数项值分离出来。 首先，一次项和常数项一般以正负号或数字开始，一次项以字母结束，常数项则以数字结束，且两者结束之后的下一个字符必为正负号，除非该项为最后一项，此时字符串结束。因此，扫描字符串时，以一项为一个单位，从一项的开始字符可以确定该项系数的符号。若当前项以正负号开始，则这个正负号就是该系数的符号；若当前项以数字开始，则表示正号，此时实际上是将正号省略掉了。类似地，从一项的结束字符可以确定该项系数是否为一次项。若当前项以字母结束，则当前项为一次项，否则为常数项。另外，当前项为一次项时，系数为1可以省略。此时，按正常扫描所得到的系数为0，程序中对这一情况做了特殊处理，具体见程序清单。 【参考程序】 program c00_1; var i, lcs, lc0, rcx, rc0: longint; equation, left, right: string; procedure turn(ex:string; var cx, c0: longint); var i, c: longint; flag: Boolean; item: string; begin i := 1; cx := 0; c0 := 0; while i = length(ex) do {循环一次为扫描其中的一项} begin flag := true; {flag表示当前的符号，true表示正号} c := 0; repeat if ex[i]=’-’then flag := false; {当前项的开始字符为负号} if (ex[i]=’0’) and (ex[i]=’9’) then {处理数字字符} c := c*10+ord(ex[i]) – 48; {当前数字加到系数之尾} i := i + 1; until (ilength(ex)) or (ex[i]=’+’) or (ex[i]=’-’); {当前项结束，此时扫描结束或遇到正负号，第i-1个字符为当前项结束字符} if (c=0) and (not(ex[i-1] in [‘0’..’9’])) and (ex[i-2]’0’) then c := 1; {结束字符不是数字字符（而是字母），且其前一字符不为0，但扫描到的系数为0，此时即为一次项系数为1被省略的情况} if (ex[i-1]=’0’) and (ex[i-1]=’9’) {合并同类项系数，条件表示常数项} then if flag then c0 := c0+c else c0 := c0 - c else if flag then cx := cx +