Pascal的sin^-1函数实现

function unsin(t:real):real;
 var
  l,r,ans,mid:longint;
  function dsin(z:real):real;
  begin
   exit(sin(z*pi/));
  end;
 begin
  l:=;
  r:=;
  ans:=;
  while l<=r do
   begin
    mid:=(l+r) div ;
    if dsin(mid/1e7)>t then
     r:=mid-
    else
     begin
      l:=mid+;
      ans:=mid;
     end;
   end;
  exit(ans/1e7);
 end;

主要是二分的思想，1e7控制精度

（其实根本原因是arcsin不会用，无奈下写了二分）