Ім'я файлу: білет 1.docx
Розширення: docx
Розмір: 13кб.
Дата: 29.04.2023
скачати
Пов'язані файли:
Реферат2.docx
Рибак_реферат_тж.docx
пласт_теплообмінник.doc
Тема 1.docx
Практикум 4тема.docx
Розширення: docx
Розмір: 13кб.
Дата: 29.04.2023
скачати
Пов'язані файли:
Реферат2.docx
Рибак_реферат_тж.docx
пласт_теплообмінник.doc
Тема 1.docx
Практикум 4тема.docx
1.Б)А1:15 ;
2. t = 32*80*24/1024/0.2/60=5
Д)5
3. Sub m()
x = InputBox("x = ")
v = 2 ^ x * Cos(x)
If v > 0 And x > 2 Then
t = Sqr(x * v)
ElseIf v < 1 And x < 4 Then
t = (x + v) ^ (1 / 3)
Else
t = 10
End If
MsgBox "t = " & t
End Sub
4. вважаємо що елементи масиву а(20) задані
Sub m()
Dim a(20) As Integer
k = 0
For i = 1 To 20
If a(i) > 1 And a(i) < 2 Then
k = k + 1
Cells.Value(k, 1) = a(i)
End If
MsgBox "кількість підходящих елементів " & k
End Sub
5. g = 0 or 0 or 0 = 0
A)0
6.A = 1 and 1 = 1
B = 0 or 1 = 1
C = not( 1and 1) = 0
B)1 1 0
7. = AVERAGE(10; 2;-4;20)= (10 + 2 – 4 + 20) / 4 = 7
Г)7
8.s = 2
S = 4
S = 6
Відповідь S = 6
9. =if(нарахування за погодинну оплату < 70 ; 0,15; 0)