Вычислить суммы s = sinx - sin(2)x + sin(3)x - sin(4)x + sin(5)x.
где число в скобках - степень.
Мое решение:
- Код: Выделить всё
Dim x As Integer, s
x = InputBox("Введите число")
s = Sin(x) - (Sin(x) ^ 2) + (Sin(x) ^ 3 - (Sin(x) ^ 4) + (Sin(x)) ^ 5)
MsgBox s
Задача 2
Табулирование функции:
y = sin(4x - 3) на [2;3] шагом 0,25
Мое решение:
- Код: Выделить всё
Dim i, y
For i = 2 To 3 Step 0.25
y = Sin(4 * i - 3)
List1.AddItem y
Next
Задача 3
Вычислить произведение квадратов тех элементов которые не больше 4:
A(i) = (-3;3;-5;6;-2;3;-8)
Мое решение:
- Код: Выделить всё
Dim a(7) As Integer
Dim b, g, i As Integer
b = "-3;3;-5;6;-2;3;-8"
g = Split(b, ";")
For i = 0 To 6
If g(i) < 4 Then
List1.AddItem g(i) ^ 2
End If
Next i
Задача 4
Вычисление суммы площадей треугольников со сторонами ........ Вичислить площади треугольников.
Мое решение:
- Код: Выделить всё
Dim pir(2), a, b, sun(2)
Dim n(8), i As Integer, k As Integer
a = "4,7,4,3,5,4,7,4,7"
b = Split(a, ",")
'Преобразуем в числа
For i = 0 To 8
n(i) = CInt(b(i))
Next
'находим полумериметр
pir(0) = (n(0) + n(1) + n(2)) / 2
pir(1) = (n(3) + n(4) + n(5)) / 2
pir(2) = (n(6) + n(7) + n(8)) / 2
' собственно сама сумма в sun()
sun(0) = pir(0) * (pir(0) - n(0)) * (pir(0) - n(1)) * (pir(0) - n(2))
sun(1) = pir(1) * (pir(1) - n(3)) * (pir(1) - n(4)) * (pir(1) - n(5))
sun(2) = pir(0) * (pir(2) - n(6)) * (pir(2) - n(7)) * (pir(2) - n(8))
' вывод суммы
// НЕРЕШЕННЫЕ ЗАДАЧИ
Задача 5
нахождение наименьшей суммы эл-ов каждого столбца матрицы
A(i,j) = (-2,0; 3, -5; 4,1)
Задача 6
Нахождение матрицы С = nA+B если AB - матрицы разномерности M*N, где M=n+1, N = n+2. Элементы матриц - целые случайные числа в диапозоне от -2 до n. Число n - номер варианта.
Задача 7
Подсчитать, сколько из n+3 точек (x,y) с целыми случайными координатами из [-n; n] попадают выше линий
y = n+x и y = 1. Число n - номер варианта.
Вообщем посмотрите пожалуйста мое решение, правильно ли оно? и как решить оставшиеся задачи?
