Расположение частот | Результат сравнения | Изменение диапазона |
P<T | closer | d=d∩[(P+T)/2,\ +∞) |
P>T | further | d=d∩[(P+T)/2,\ +∞) |
P<T | further | d=d∩(-∞,\ (P+T)/2] |
P>T | closer | d=d∩(-∞,\ (P+T)/2] |
uses math; var a,b,p,t:extended; n,i:integer; s:string; begin read(n); readln(p); a:=30; b:=4000; for i:=2 to n do begin readln(t,s); if p=t then else if (p<t) and (s=' closer') or (p>t) and (s=' further') then a:=max(a,(p+t)/2.0) else b:=min(b,(p+t)/2.0); p:=t; end; writeln(a:1:6,' ',b:1:6); end.