Расположение частот | Результат сравнения | Изменение диапазона |
`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.