Линейный алгоритм

Базовая структура следование.
Образуется из последовательности действий, следующих одно за другим:

Методы класса System.Math

Методы класса System.Math

arcsin x = Atn(x / Sqr(1 – x^2)), если Abs(x) <> 1
arcsin x = Sqn(x) * pi / 2 , если Abs(x) = 1
arcos x = Atn(Sqr(1 – x^2) / x), если x <> 0
arcos x = pi / 2, если x = 0
arcctg x = Atn(1 / x), если x <> 0
arcctg x = pi / 2, если x = 0
Операторы пересчета

Правила записи АВ:
(a^x + exp(x))/(log(x)+sin(x))
| abs(12.6 – sqrt(1+3*tan(х)^2))
cos 2 x +ex+y
cos (x ) ^ 2+ exp(x+y)
cos ( x ) ^ ( 1 / 3)
y= Math.Sqrt(Math.Abs(Math.Sqrt(Math.Abs(x – 7 * Math.Cos(a))) / Math.Log(x – 3)))

Задача 1

Dim x As Double, y As Double
Dim a As Integer, b As Integer
Dim Z As Double, K As Double, F As Double
Console.WriteLine("Введите a")
a = Console.ReadLine()
Console.WriteLine("Введите b")
b= Console.ReadLine()
Console.WriteLine("Введите x")
x = Console.ReadLine ()
Console.WriteLine("Введите y")
y = Console.ReadLine ()
Z = x ^ 5 - x * x * y + x / y ^ 2 + y ^ 3
K = 1 - x / a + y / b * Math.Tan(x + a)
F = Math.Cos(x - a) ^ 2 + Z / K
Console.WriteLine ("F=" & F)

Sub Main()
Console.WriteLine("Введите первое число")
Dim x As Integer = Console.ReadLine()
Console.WriteLine("Введите второе число")
Dim y As Integer = Console.ReadLine()
Dim z As Double = Math.Sin(x) * Math.Cos(y)
Console.WriteLine("Значение выражения с исходными значениями {0:f3} и {1} равно {2}", x, y, z)
Console.ReadLine()
End Sub
ПРИМЕР 2

Пример 2 (поменять значениями две переменные)
Console.WriteLine("Введите первое число")
Dim x As Double = Console.ReadLine()
Console.WriteLine("Введите второе число")
Dim y As Double = Console.ReadLine()
Console.WriteLine(" x = {0}" & vbLf & " y = {1:f3}", x, y)
Dim z As Double = x
x = y
y = z
Console.Write(" x = {0}" & vbLf & " y = {1}", x, y)
Console.ReadLine()