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

我的程序为什么pass不了的?太奇怪了

Posted by richardhuang at 2004-05-08 10:20:59 on Problem 1254
program fadsf;
var
  num,i,j,k:integer;
  x1,y1,t1,x2,y2,t2,x,y:real;
  f,fo:text;
begin
  readln(num);
  for i:=1 to num do
  begin
    readln(x1,y1,t1);
    readln(x2,y2,t2);
    t1:=t1/360*2*3.14159265;
    t2:=t2/360*2*3.14159265;
    y:=(cos(t2)*(sin(t1)*y1-cos(t1)*x1)-cos(t1)*(sin(t2)*y2-cos(t2)*x2))/(sin(t1-t2));
    x:=(sin(t2)*(sin(t1)*y1-cos(t1)*x1)-sin(t1)*(sin(t2)*y2-cos(t2)*x2))/(sin(t1-t2));
    x:=round(x*10000)/10000;
    y:=round(y*10000)/10000;
    writeln(x:0:4,' ',y:0:4);
  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