Online JudgeProblem SetAuthorsOnline ContestsUser
Web Board
Home Page
F.A.Qs
Statistical Charts
Problems
Submit Problem
Online Status
Prob.ID:
Register
Update your info
Authors ranklist
Current Contest
Past Contests
Scheduled Contests
Award Contest
User ID:
Password:
  Register

悲愤,没有换行,PE了~~贡献pascal题解

Posted by 740340735 at 2011-08-04 15:09:11 on Problem 1799
const pi=3.1415926535897932384626;
var t,n,i:longint;
    r:real;
begin
  readln(t);
  for i:=1 to t do begin
    readln(r,n);
    writeln('Scenario #',i,':');
    if n<=2 then writeln(r/n:0:3)
    else writeln(r/(sin((pi-2*pi/n)/2)/sin(2*pi/n)+0.5)/2:0:3);
    writeln;
  end;
end.

Followed by:

Post your reply here:
User ID:
Password:
Title:

Content:

Home Page   Go Back  To top


All Rights Reserved 2003-2013 Ying Fuchen,Xu Pengcheng,Xie Di
Any problem, Please Contact Administrator