洛谷 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.