Advertisement
Guest User

Untitled

a guest
Mar 29th, 2020
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.56 KB | None | 0 0
  1. let pi: double = System.Math.Acos(-1.0)
  2. let pieceWidth(a:int64, b:int64)=
  3. if (a.ToString()|>int)%2=0 then
  4. sprintf "%.3f" ((2.0*pi*float(a)/2.0)/float(b))
  5. else
  6. sprintf "%.3f" ((2.0*pi*float(a)/2.0)/(float(b)*2.0))
  7. let amountOfCuts(a: int64)=
  8. if a%int64(2)<>int64(0) then a else a/int64(2)
  9. let main() =
  10. seq { for i in 1 .. stdin.ReadLine()|> int do yield stdin.ReadLine() }
  11. |> Seq.iter (fun x -> printfn "%s %s" (pieceWidth(x.Split(" ").[0]|>int64, x.Split(" ").[1]|>int64)) (amountOfCuts(x.Split(" ").[1]|>int64).ToString()))
  12. main()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement