Public static double CosineBetweenVectors(double[] a, double[] b) { if (a.Length != b.Length || a.Length == 0) throw new Exception("не верные параметры");
double ab = 0; double a_length = 0; double b_length = 0; for (var i = 0; i < a.Length; i++) { ab += a[i] * b[i]; a_length = a[i] * a[i]; b_length = b[i] * b[i]; }
if (a_length * b_length == 0) throw new Exception("Нулевые вектора");
return ab / Math.Sqrt(a_length) / Math.Sqrt(b_length); }
Dim a As Integer
Dim b As Integer
Dim i As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")
Dim msg As String
msg = ""
For i = a To b
msg = msg & 3 в степени " & i & " равно " & 3 ^ i & vbCrLf
Next
MsgBox(msg)
2)Найти все делители числа 1204.
Dim i As Integer
Dim msg As String
msg = ""
For i = 1 To 1204
If 1204 Mod i = 0 Then
msg = msg & "Число " & i & " является делителем 1204." & vbCrLf End If
Next
MsgBox(msg)