2017.6.4 入门组 NO.4——猜数

---

这题就是求一个区间[l..r]，那开始将l=-10000 r=10000
每次输入一次判断,如果为”N”,那么就将符号反转,如 >→<= <→>= >=→< <=→>
那么符号处理好后，
①如果为”>”或”>=”,那么如果当x大于l且小于或等于r，则l=x
如果当x大于r，则输出”Impossible”
②如果为”<”或”<=”,那么如果当x大于或等于l且小于r，则r=x
如果当x小于l，则输出”Impossible”
(Tips:每当枚举”>”或”<”,x+1)
有此公式，妈妈再也不用担心我不能AC了

---

代码如下：

var s:string;    l,r,n,i:longint;procedure doit;var  l2,l1,fw:longint;     fh,s1:string;begin  l2:=pos(' ',s); fh:=copy(s,1,l2-1); s[l2]:=',';  l1:=pos(' ',s);  s1:=copy(s,l2+1,l1-l2-1);  val(s1,fw);  s[l1]:=',';  if s[l1+1]='N' then    if fh='>' then fh:='<='    else if fh='<' then fh:='>='         else if fh='>=' then fh:='<'              else if fh='<=' then fh:='>';  if (fh='>')or(fh='>=') then      begin        if fh='>' then fw:=fw+1;        if (fw>l)and(fw<=r) then l:=fw        else if fw>r then begin writeln('Impossible'); close(input); close(output); halt; end;      end;  if (fh='<')or(fh='<=') then      begin        if fh='<' then fw:=fw-1;        if (fw<r)and(fw>=l) then r:=fw        else if (fw<l) then begin writeln('Impossible'); close(input); close(output); halt; end;      end;end;begin  readln(n);  l:=-10000; r:=10000;  for i:=1 to n do    begin      readln(s);      doit;    end;  writeln(l);end.