洛谷 P1022 计算器的改良

---

题目

题目背景

NCL是一家专门从事计算器改良与升级的实验室，最近该实验室收到了某公司所委托的一个任务：需要在该公司某型号的计算器上加上解一元一次方程的功能。实验室将这个任务交给了一个刚进入的新手ZL先生。

题目描述

为了很好的完成这个任务，ZL先生首先研究了一些一元一次方程的实例：

4＋3x＝8

6a－5＋1＝2－2a

－5＋12y＝0

ZL先生被主管告之，在计算器上键入的一个一元一次方程中，只包含整数、小写字母及+、-、=这三个数学符号（当然，符号“-”既可作减号，也可作负号）。方程中并没有括号，也没有除号，方程中的字母表示未知数。

你可假设对键入的方程的正确性的判断是由另一个程序员在做，或者说可认为键入的一元一次方程均为合法的，且有唯一实数解。

输入输出格式

输入格式：
一个一元一次方程。

输出格式：
解方程的结果(精确至小数点后三位)。

输入输出样例

输入样例#1：

6a-5+1=2-2a

输出样例#1：

a＝0.750

---

题解

用f表示在等号左边还是右边，s标记前面的符号为正还是负，遇到不是数字和符号的字符即为未知数

---

代码（Pascal）

var x,y,n,s,f:longint;    ch,t:char; begin   f:=1;s:=1;   while not eoln do    begin      read(ch);      if (ch='+') then begin                         y:=y-f*s*n;                         s:=1;                         n:=0;                        end else      if (ch='-') then begin                         y:=y-f*s*n;                         n:=0;s:=-1;                        end else      if (ch='=') then begin                         y:=y-f*s*n;                         n:=0;s:=1;                         f:=-1;                        end else      if (ch<'0')or(ch>'9') then begin                                    t:=ch;                                    x:=x+f*s*n;                                    n:=0;                                   end      else n:=n*10+ord(ch)-48;     end;   y:=y-f*s*n;   write(t,'=',y/x:0:3);  end.