fork download
copy 
  1. Imports System.Math
  2. Module Module1
  3. Sub Main()
  4. Dim x, y As Double
  5. Console.WriteLine("Введите угол в радианах: ")
  6. x = Val(Console.ReadLine())
  7. y = Sin(x)
  8. Console.WriteLine("Синус = "&Format(y,"0.0000"))
  9. Console.ReadKey()
  10. End Sub
  11. End Module
Success #stdin #stdout 0.08s 24608KB
comments (?)
stdin
copy 
1
2
10
42
11
stdout
copy 
Введите угол в радианах: 
Синус = 0.8415
https://ideone.com/h91DEf
language:
VB.NET (mono-3.10)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!