Вычислить значения функций Задание 2 Расчетные

Вычислить значения функций

Задание 2

Расчетные формулы в Excel В ячейке C 13 =(B 8+D 8)/КОРЕНЬ(B 8^2+D 8^2)*SIN(B 8) В ячейке D 13 =ЕСЛИ(C 13>0; EXP(C 13+2); COS(C 13)^2)

Программа для кнопки Расчет Private Sub Command. Button 1_Click() Dim x As Single, y As Single, z As Single, f As Single x = Worksheets("Иванов. Условный оператор"). Range("b 8") y = Worksheets("Иванов. Условный оператор"). Range("d 8") z = (x + y) / Sqr(x ^ 2 + y ^ 2) * Sin(x) If z > 0 Then f = Exp(z + 2) Else f = Cos(z) ^ 2 Worksheets("Иванов. Условный оператор"). Cells(12, 3) = z Worksheets("Иванов. Условный оператор"). Cells(12, 4) = f End Sub

Программа для кнопки Очистить Worksheets("Иванов. Условный оператор"). Cells(12, 3)=“” Worksheets("Иванов. Условный оператор"). Cells(12, 4) = “”

Задание 3 Вычислите значения функции F Do While …Loop For…Next j = {0, 2; 0, 7; 1; 1, 5}

Задание 3

Расчетные формулы в Excel В ячейке D 12 =ЕСЛИ(B 12<0, 5; LN(B 12+$H$6); $H$7+B 12^2)

Программа для кнопки For … Next Dim n As Single, y As Single, j As Single Dim f As Single Dim i As Integer, k As Integer k = 12 n = Worksheets(“Иванов. Циклы"). Range("h 6") y = Worksheets(" Иванов. Циклы "). Range("h 7") For i = 1 To 4 j = Val(Input. Box( «Введите j")) If j < 0. 5 Then f = Log(j + n) Else f = y + j ^ 2 Worksheets(" Иванов. Циклы "). Cells(k, 2) = j Worksheets(" Иванов. Циклы "). Cells(k, 3) = f k=k+1 Next i

Программа для кнопки Do While … Loop k = 12 n = Worksheets(" Иванов. Циклы "). Range("h 6") y = Worksheets(" Иванов. Циклы "). Range("h 7") j=0 Do While j <= 2 If j < 0. 5 Then f = Log(j + n) Else f = y + j ^ 2 Worksheets(" Иванов. Циклы "). Cells(k, 9) = j Worksheets(" Иванов. Циклы "). Cells(k, 10) = f j = j + 0. 2 k=k+1 Loop