| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1258
| Var X,Y: Real; I,W,D,X0,Y0,X1,Y1: LongInt; A: Char; Begin FillChar(A,SizeOf(A),0); Readln(W,D); Readln(X0,Y0); Readln(X1,Y1); X:=0; Y:=0; While true do begin Read(A); If A='L' then begin X:=X+X0; X0:=0; End; If A='R' then begin X:=X+W-X0; X0:=W; End; If A='F' then begin Y:=Y+Y0; Y0:=0; End; If A='B' then begin Y:=Y+D-Y0; Y0:=D; End; If not (A in ['L','R','F','B']) then break; End; X:=X+Abs(X0-X1); Y:=Y+Abs(Y0-Y1); Writeln(Sqrt(X*X+Y*Y):0:4); End. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 888 |