База по информатике
.docОпределить правильный вариант блока программы, вычисляющий произведение тех элементов массива А(12),
значение которых больших 2.=ОТВЕТ 3
1) P = 1 For k = 1 To 12 If A(k) > A(2) Then P = P* A(k) End If Next k |
2) P = 0 For k = 1 To 12 If A(k) > 2 Then P = P* A(k) End If Next k |
3) P = 1 For k = 1 To 12 If A(k) > 2 Then P = P* A(k) End if Next k
|
4) P = 0 If A(k) > A(2) Then P = P* A(k) End If
|
5) For k = 1 To 12 If A(k) > 2 Then P = P* 2 End If Next k |
|
Определить правильный вариант блока программы, вычисляющий сумму положительных элементов массива А(20) .=ОТВЕТ 2
1) S = 0 For k = 1 To 20 If A(k) < 0 Then S = S+ A(k) End If Next k
|
2) S = 0 For k = 1 To 20 If A(k) > 0 Then S = S+ A(k) End If Next k |
3) S = 0 For k = 1 To 20 If A(k) > 0 Then S= S+ A(k) Next k End If |
4) S = 0 If A(k) > 0 Then S = S+ A(k) End If
|
5) For k = 1 To 20 If A(k) < 0 Then S = S* A(k) End If Next k |
|
Определить правильный вариант блока программы, определяющий максимальный элемент массива А(20) ,
и выдающий его значение в поле ввода на форме.=ОТВЕТ 3
1) max = 0 For k = 1 To 20 If A(k) < max Then max = A(k) End If Next k mm1.Text = Str(max) |
2) For k = 1 To 20 If A(k) > max Then max = A(k) End If Next k mm1.Text = Str(max) |
3) max = A(1) For k = 1 To 20 If A(k) > max Then max = A(k) End If Next k mm1.Text = Str(max)
|
4) max = A(1) For k = 1 To 20 If A(k) > max Then max = A(k) End If Print “ Max =” & max |
5) max = A(1) For k = 1 To 20 If A(k) > max Then A(k) = max End If Next k MsgBox “ Max =” & max
|
|
Что является результатом приведенного блока программы:
For k = 1 To 20
Print “ A( ” & k & “ ) = ” & A(k)
Next k = вывод элементов массива на форму
Что является результатом приведенного блока программы:
mm = 1
For k = 1 To 20
If A(k) < 0 Then
mm = mm * A(k)
End If
Next k = произведение отрицательных элементов массива
Что является результатом приведенного блока программы:
mm = 1
For k = 1 To 20
If A(k) > 0 Then
mm = mm * A(k)
End If
Next k =произведение положительных элементов массива
Что является результатом приведенного блока программы:
mm = 0
For k = 1 To 20
If A(k) > 0 Then
mm = mm + A(k)
End If
Next k =сумма положительных элементов массива
Что является результатом приведенного блока программы:
mm = 0
For k = 1 To 20
If A(k) < 0 Then
mm = mm + A(k)
End If
Next k = сумма отрицательных элементов массива
Что является результатом приведенного блока программы:
m = 1
For k = 1 To 20
m = m * A(k)
Next k = произведение всех элементов массива
Что является результатом приведенного блока программы:
m = 0
For k = 1 To 20
m = m + A(k)
Next k
Sr = m / 20 средне=е значение всех элементов массива
Что является результатом приведенного блока программы:
m = 0
For k = 1 To 20
m = m + A(k)
Next k = сумма всех элементов массива
Что является результатом приведенного блока программы:
mm = A(1)
For k = 1 To 20
If A(k) < mm Then
mm = A(k)
End If
Next k = значение минимального элемента массива
Что является результатом приведенного блока программы:
max = A(1)
For k = 1 To 20
If A(k) > max Then
max = A(k)
End If
Next k = значение максимального элемента массива
Какого типа могут быть переменные, являющиеся индексами элемента многомерного массива?-Byte;
Определить правильный формат описания всех переменных при объявлении многомерного массива.-Dim B(1 to 6 , 1 to 5) As Single, i As Byte, j As Byte
Для чего используется в программе команда Option Base 1?- для определения начального значения индексов массива
Что определяют индексы элемента многомерного массива?-местоположение элемента
Сумма, каких значений элементов массива вычислена в приведенном блоке программы?
For i = 1 To 4
S = 0
For j = 1 To 6
S = S + C(i,j)
Next j : Print S
Next i =сумма элементов строк
Определить, какое значение вычислено в приведенном блоке программы?
m = C(1,1)
For j = 1 To 6
If C(j,j) < m Then
m = C(j,j)
end if
Next j : Print m -минимальное значение элементов главной диагонали
В чем различие в объявлениях многомерных массивов A и B: Dim A (1 To 5, 1 To 6) As Integer Dim B ( 5, 6) As Integer а) в типе элементов массива; б) в количестве элементов в массиве; в) в начальных значениях индексов массива = б, в
акое начальное значение имеют индексы многомерного массива A, объявленного как : Dim A (1 To 5, 1 To 6) As Integer =1
Какое начальное значение имеют индексы многомерного массива A, объявленного как: Dim A (5, 6) As Integer - 0
Какое начальное значение имеют индексы многомерного массива A, объявленного как: Option Base 1 Dim A (5, 6) As Integer=1
Для задания начального значения индексов, равного 1, при объявлении многомерного массива B(5,6) используется :-Option Base 1
Какого типа могут быть переменные, являющиеся индексами элемента многомерного массива?=Integer;
Какое начальное значение имеют индексы многомерного массива A, объявленного как: Option Base 1 Dim A (8, 8) As Integer= 1
Какое начальное значение имеют индексы многомерного массива A, объявленного как: Dim A (8, 9) As Integer= 0
Определить, какое значение вычислено в приведенном блоке программы?
m = C(1,1)
For i =1 To 4
For j = 1 To 6
If C(i,j)> m Then
m = C(i,j)
end if
Next j
Next i : Print m =максимальное значение всего массива
Чем отличается многомерные массивы, объявленные следующим образом: Dim C(1 to 4, 1 to 5) As Integer Dim A(1 to 5, 1 to 4) As Integer===количеством строк и столбцов
Чем отличается многомерные массивы, объявленные следующим образом:Dim C( 4, 3) As Integer Dim A(1 to 5, 1 to 4) As Integer===начальным значением индексов элемента
Чем отличается многомерные массивы, объявленные следующим образом:Dim C(1 to 5, 1 to 4) As Single Dim A(1 to 5, 1 to 4) As Integer===типом элементов
Чем отличается многомерные массивы, объявленные следующим образом: Dim C(1 to 6, 1 to 3) As Integer Dim A(1 to 5, 1 to 4) As Integer==количеством элементов
Чем отличается многомерные массивы, объявленные следующим образом: Private C(1 to 4, 1 to 5) As Integer Dim A(1 to 4, 1 to 5) As Integer==областью видимости
Чем отличается многомерные массивы, объявленные следующим образом: Dim C(1 to 3, 1 to 4) As Integer Dim A(1 to 4, 1 to 3) As Integer====количеством строк и столбцов
Чем отличается многомерные массивы, объявленные следующим образом: Dim C(1 to 6, 1 to 4) As Single Dim A(1 to 6, 1 to 4) As Long===типом элементов
Чем отличается многомерные массивы, объявленные следующим образом: Private C(1 to 3, 1 to 5) As Integer Public A(1 to 3, 1 to 5) As Integer======областью видимости
Чем отличается многомерные массивы, объявленные следующим образом:Static C(1 to 4, 1 to 4) As Integer Dim A(1 to 4, 1 to 4) As Integer======областью видимости
Чем отличается многомерные массивы, объявленные следующим образом: Option Base 1 Dim C( 4, 5) As Integer Dim A(1 to 4, 1 to 5) As Integer=====именем массива
Определить правильный вариант блока программы, объявления, формирования и вывода на форму многомерного массива В(3,4) случайным образом.=ОТВЕТ 1
1) Dim i As byte, j As byte Dim B(1 to 3, 1 to 4) As byte For i = 1 To 3 For j = 1 To 4 B(i,j) =Int(Rnd*50 ) Print B(i,j), Next j Next i |
2) Dim B( 3, 4) As byte Dim i As byte, j As byte For i = 1 To 3 For j = 1 To 4 B(i,j) =Int(Rnd*50 ) Print B(i,j) Next j Next i |
3) Dim B(1 to 3,1 to 4) As byte Dim i As byte, j As byte For i = 1 To 3 For j = 1 To 4 B(i,j)=Val(InputBox(“B(i,j)”)) Print B(i,j), Next j Next i |
4) Dim i As byte, j As byte Dim B(1 to 3, 1 to 4) As byte For i = 1 To 3 For j = 1 To 4 B(i,j) =Int(Rnd*50 ) Print B(i,j), Next j |
5) Dim i As byte, j As byte Dim B(1 to 3, 1 to 4) As byte For i = 1 To 3 For j = 1 To 4 B(i,j) = Cos(50/i ) Next i bb1.Text = B(i,j)
|
|
Определить правильный вариант блока программы, объявления и формирования многомерного массива В(3,4) с помощью диалогового окна.=ОТВЕТ 3
1) Dim i As byte, j As byte Dim B(1 to 3, 1 to 4) As byte For i = 1 To 3 For j = 1 To 4 B(i,j) =Int(Rnd*50 ) Next j Next i
|
2) Dim B( 3, 4) As byte Dim i As byte, j As byte For i = 1 To 3 For j = 1 To 4 B(i,j) =Int(Rnd*50 ) Next j Next i |
3) Dim i As byte, j As byte Dim B(1 to 3, 1 to 4) As byte For i = 1 To 3 For j = 1 To 4 B(i,j)=Val(InputBox(“B(i,j)”)) Next j Next i |
4) Dim i As byte, j As byte Dim B(1 to 3, 1 to 4) As byte For i = 1 To 3 For j = 1 To 4 B(i,j) = Str(InputBox(“B(i,j)”)) Next j Next i
|
5) Dim i As byte, j As byte Dim B(1 to 3, 1 to 4) As byte For i = 1 To 3 For j = 1 To 4 B(i,j) = Cos(50/i ) Next j Next i |
|
Определить правильный вариант блока программы, объявления и формирования элементов многомерного массива В(3,4) по формуле.=ОТВЕТ 5
1) Dim i As byte, j As byte Dim B(1 to 3, 1 to 4) As byte For i = 1 To 3 For j = 1 To 4 B(i,j) =Int(Rnd*50 ) Next j Next i
|
2) Dim B( 3, 4) As byte Dim i As byte, j As byte For i = 1 To 3 For j = 1 To 4 B(i,j) = Cos(50*j / i ) Next i Next j |
3) Dim i As byte, j As byte Dim B(1 to 3, 1 to 4) As byte For i = 1 To 3 For j = 1 To 4 B(i,j)=Val(InputBox(“B(i,j)”)) Next j Next i |
4) Dim i As byte, j As byte Dim B(1 to 3, 1 to 4) As byte For i = 1 To 3 For j = 1 To 4 B(i,j) = (InputBox(“B(i,j)”)) Next j Next i |
5) Dim i As byte, j As byte Dim B(1 to 3, 1 to 4) As Single For i = 1 To 3 For j = 1 To 4 B(i,j) = Cos(50*j / i ) Next j Next i
|
|
Определить правильный вариант блока программы, нахождения по столбцам массива В(3,4) минимального элемента и вывода значения в поле ввода.=ОТВЕТ 4
1) For i = 1 To 3 min = B(i,1) For j = 1 To 4 If B(i,j) < min Then min = B(i,j) End If Next j n = n & Str(min) & “ “ Next I mm1.Text = n |
2) min = B(1,1) For j = 1 To 4 For i = 1 To 3 If B(i,j) < min Then min = B(i,j) End If Next I Next j n = n & Str(min) & “ “ |
3) For j = 1 To 4 min = B(1,1) For i = 1 To 3 If B(i,j) < min Then min = B(i,j) End If Next i MsgBox “min = “& min Next j |
4) For j = 1 To 4 min = B(1,j) For i = 1 To 3 If B(i,j) < min Then min = B(i,j) End If Next i n = n & Str(min) & “ “ Next j mm1.Text = n |
5) For j = 1 To 4 min = B(1,j) For i = 1 To 3 If B(i,j) > min Then min = B(i,j) End If Next i Print “min = “ & min : Next j |
|
Определить правильный вариант блока программы, нахождения по строкам массива В(3,4) максимального
элемента и вывода его значения на форму.=ОТВЕТ 1
1) For i = 1 To 3 max = B(i,1) For j = 1 To 4 If B(i,j) > max Then max = B(i,j) End If Next j Print “в” & i & “max = “& max Next i |
2) max = B(1,1) For j =1 To 4 For i = 1 To 3 If B(i,j) > max Then max = B(i,j) End If Next I Next j n = n & Str(max) & “ “ |
3) For i =1 To 3 max=B(1,1) For j = 1 To 4 If B(i,j) > max Then max = B(i,j) End If Next j MsgBox “max = “& max Next i
|
4) For j = 1 To 4 max = B(1,j) For i = 1 To 3 If B(i,j) > max Then max = B(i,j) End If Next I n = n & Str(max) & “ “ Next j |
5) For i = 1 To 3 For j = 1 To 4 If B(i,j) > max Then B(i,j) = max End If Next i Print “max = “ & max Next j |
|
Определить правильный вариант блока программы, нахождения в каждом столбце массива В(3,4)
суммы элемента и вывода его значения с помощью диалогового окна.=ОТВЕТ 3
1) For i = 1 To 3 s = 0 For j = 1 To 4 s = s + B(i,j) Next j n = n & Str(s) & “ “ Next i ss1.Text = n |
2) s = 0 For j = 1 To 4 For i = 1 To 3 s = s + B(i,j) Next I Next j n = n & Str(s) & “ “ |
3) For j = 1 To 4 s = 0 For i = 1 To 3 s = s + B(i,j) Next I MsgBox “сумма = “& s Next j |
4) For j = 1 To 4 s = B(1,1) For i = 1 To 3 s = s + B(i,j) Next j MsgBox “сумма = “ & s Next i |
5) For j = 1 To 4 For i = 1 To 3 s = s + B(i,j) Next i Next j MsgBox “сумма = “ & s |
|
Определить правильный вариант блока программы, нахождения в каждой строке массива В(3,4)
произведения элемента и вывода их значения на форму.=ОТВЕТ 5
1) For i = 1 To 3 p= B(i,1) For j = 1 To 4 p = p * B(i,j) Next j n = n & Str(p) & “ “ Next i pp1.Text = n |
2) p = 0 For j = 1 To 4 For i = 1 To 3 p = p * B(i,j) Next i Next j n = n & Str(p) & “ “ |
3) For j = 1 To 4 p = 1 For i = 1 To 3 p = p * B(i,j) Next i MsgBox “ p = “& p Next j |
4) p = 1 For i = 1 To 3 For j = 1 To 4 p = p * B(i,j) Next i Next j Print “ p = “ & p |
5) For i = 1 To 3 p = 1 For j = 1 To 4 p = p * B(i,j) Next j Print “ p = “ & p Next i |
|
Определить правильный вариант блока программы, нахождения суммы элементов главной диагонали
массива В(4,4) и вывода его значения в поле ввода формы.=ОТВЕТ 1
1) s = 0 For i = 1 To 4 s = s + B( i, i ) Next i ss1.Text = Str(s) |
2) s= 1 For i = 1 To 4 s = s + B( i, j ) Next i ss1.Text = Str(s)
|
3) For i = 1 To 4 s = 0 For j = 1 To 4 s = s + B( i, j ) Next i MsgBox “s = “& s |
4) For i = 1 To 4 s = 0 s = s + B( i, i ) Next i MsgBox “s = “& s
|
5) s = 0 For i = 1 To 4 s = s + B( 1, 1 ) Next i ss1.Text = Val(s) |
|
Определить правильный вариант блока программы, нахождения произведения элементов побочной диагонали
массива В(4,4) и вывода его значения с помощью диалогового окна. =ОВТЕТ 2
1) For i = 1 To 4 p= 1 For j = 1 To 4 p = p * B( i, j ) Next i Next j MsgBox “p = “& p |
2) p = 1 : j = 4 For i = 1 To 4 p = p * B( i, j ) j = j - 1 Next i MsgBox “p = “& p |
3) p = 1 For i = 1 To 4 p = p * B( i, j ) j = j - 1 Next i pp1.Text = Str(p) |
4) p = 1 : j = 4 For i = 1 To 4 p = p * B( i, j ) Next i MsgBox “p = “& p
|
5) p = 1 : j = 4 For i = 1 To 4 p = p * B( i, i ) Next i pp1.Text = Str(p) |
|
Определить правильный вариант блока программы, нахождения суммы всех элементов массива В(3,4) и вывода его значения на форму.
=ОТВЕТ 5
1) For i = 1 To 3 s = 0 For j = 1 To 4 s = s + B( i, j ) Next j Print “s = “ & s Next i |
2) s = 0 For j = 1 To 4 For i = 1 To 3 s = s + B( i, j ) Next i Next j ss1.Text = Str(s) |
3) For j = 1 To 4 s = 1 For i = 1 To 3 s = s + B( i, j ) Next i MsgBox “s = “& s Next j |
4) s = 1 For i = 1 To 3 For j = 1 To 4 s = s + B( i, j ) Next j Next i MsgBox “s = “& s |
5) s = 0 For i = 1 To 3 For j = 1 To 4 s = s + B( i, j ) Next j Next i Print “s = “ & s
|
|
Определить правильный вариант блока программы, нахождения суммы элементов главной диагонали
массива В(4,4) и вывода его значения в поле ввода формы.=ОТВЕТ 5
1) s = 0 For i = 1 To 4 s = s + B( 1, 1 ) Next i ss1.Text = Val(s) |
2) s= 1 For i = 1 To 4 s = s + B( i, j ) Next i ss1.Text = Str(s)
|
3) For i = 1 To 4 s = 0 For j = 1 To 4 s = s + B( i, j ) Next i MsgBox “s = “& s |
4) For i = 1 To 4 s = 0 s = s + B( i, i ) Next i MsgBox “s = “& s |
5) s = 0 For i = 1 To 4 s = s + B( i, i ) Next i ss1.Text = Str(s) |
|
Определить правильный вариант блока программы, нахождения по столбцам массива В(3,4) минимального
элемента и вывода значения в поле ввода. =ОТВЕТ 3
1) For i = 1 To 3 min = B(i,1) For j = 1 To 4 If B(i,j) < min Then min = B(i,j) End If Next j n = n & Str(min) & “ “ Next I mm1.Text = n |
2) min = B(1,1) For j = 1 To 4 For i = 1 To 3 If B(i,j) < min Then min = B(i,j) End If Next i Next j n = n & Str(min) & “ “ |
3) For j = 1 To 4 min = B(1,j) For i = 1 To 3 If B(i,j) < min Then min = B(i,j) End If Next i n = n & Str(min) & “ “ Next j mm1.Text = n |
4) For j = 1 To 4 min = B(1,1) For i = 1 To 3 If B(i,j) < min Then min = B(i,j) End If Next i MsgBox “min = “& min Next j |
5) For j = 1 To 4 min = B(1,j) For i = 1 To 3 If B(i,j) > min Then min = B(i,j) End If Next i Print “min = “ & min Next j |
|
Определить правильный вариант блока программы, нахождения в каждом столбце массива В(3,4) суммы
элемента и вывода ее значения с помощью диалогового окна.=ОТВЕТ 2
1) For i = 1 To 3 s = 0 For j = 1 To 4 s = s + B(i,j) Next j n = n & Str(s) & “ “ Next i ss1.Text = n |
2) For j = 1 To 4 s = 0 For i = 1 To 3 s = s + B(i,j) Next i MsgBox “сумма = “& s Next j |
3) s = 0 For j = 1 To 4 For i = 1 To 3 s = s + B(i,j) Next I Next j n = n & Str(s) & “ “ |
4) For j = 1 To 4 s = B(1,j) For i = 1 To 3 s = s + B(i,j) Next i Print “сумма = “ & s Next j |
5) For j = 1 To 4 For i = 1 To 3 s = s + B(i,j) Next i Next j Print “сумма = “ & s |
|
Определить правильный вариант блока программы, нахождения произведения всех элементов массива В(3,4) и вывода его значения на форму.=ОТВЕТ 4
1) For i = 1 To 3 p= B(i,1) For j = 1 To 4 p = p * B(i,j) Next j n = n & Str(p) & “ “ Next i pp1.Text = n
|
2) p = 0 For j = 1 To 4 For i = 1 To 3 p = p * B(i,j) Next i Next j n = n & Str(p) & “ “ |
3) For j = 1 To 4 p = 1 For i = 1 To 3 p = p * B(i,j) Next i MsgBox “ p = “& p Next j |
4) p = 1 For i = 1 To 3 For j = 1 To 4 p = p * B(i,j) Next j Next i Print “ p = “ & p
|
5) For i = 1 To 3 p = 1 For j = 1 To 4 p = p * B(i,j) Next j Print “ p = “ & p Next i |
|
Определить правильный вариант блока программы, нахождения произведения элементов побочной
диагонали массива В(4,4) и вывода его значения с помощью диалогового окна.=ОТВЕТ 1
1) p = 1 : j = 4 For i = 1 To 4 p = p * B( i, j ) j = j - 1 Next i MsgBox “p = “& p
|
2) For i = 1 To 4 p= 1 For j = 1 To 4 p = p * B( i, j ) Next i Next j MsgBox “p = “& p |
3) p = 1 For i = 1 To 4 p = p * B( i, j ) j = j - 1 Next i pp1.Text = Str(p) |
4) p = 1 : j = 4 For i = 1 To 4 p = p * B( i, j ) Next i MsgBox “p = “& p |
5) p = 1 : j = 4 For i = 1 To 4 p = p * B( i, i ) Next i pp1.Text = Str(p) |
|
Выбрать, что будет являться результатом работы данного блока программы по обработке матрицы B(3, 4) :
p = 1
For i = 1 To 3
For j = 1 To 4
p = p * B(i,j)
Next j
Next i
Print “ p = “ & p =нахождение произведения значений элементов по всей матрице
Выбрать, что будет являться результатом работы данного блока программы по обработке матрицы B(3, 4) :
For j = 1 To 4
p = 1
For i = 1 To 3
p = p * B(i,j)
Next i
Print “в” & j & “ p = “ & p
Next j =нахождение произведения элементов по каждому столбцу
Выбрать, что будет являться результатом работы данного блока программы по обработке матрицы B(3, 4) :
For i = 1 To 3
p = 1
For j = 1 To 4
p = p * B(i,j)
Next j
Print “в” & i & “ p = “ & p
Next i = нахождение произведения элементов в каждой строке
Выбрать, что будет являться результатом работы данного блока программы по обработке матрицы B(3, 4) :
s = 0
For i = 1 To 3
For j = 1 To 4
s = s + B(i,j)
Next j
Next i
Print “ s = “ & s = нахождение суммы значений элементов по всей матрице
Выбрать, что будет являться результатом работы данного блока программы по обработке матрицы B(3, 4) :
For j = 1 To 4
s = 0
For i = 1 To 3
s = s + B(i,j)
Next i
Print “в” & j & “ s = “ & s
Next j = нахождение суммы значений элементов по каждому столбцу
Выбрать, что будет являться результатом работы данного блока программы по обработке матрицы B(3, 4) :
For i = 1 To 3
s = 0
For j = 1 To 4
s = s + B(i,j)
Next j
Print “в” & i & “ s = “ & s
Next i = нахождение суммы значений элементов по каждой строке
Выбрать, что будет являться результатом работы данного блока программы по обработке матрицы B(3, 4) :
For i = 1 To 3
m = B(i,1)
For j = 1 To 4
If B(i,j) < m Then
m = B(i,j)
End If
Next j
Print “в” & i & “m = “ & m
Next i = нахождение минимального значения элемента по каждой строке
Выбрать, что будет являться результатом работы данного блока программы по обработке матрицы B(3, 4) :
m = B(1,1)
For i = 1 To 3
For j = 1 To 4
If B(i,j) > m Then
m = B(i,j)
End If
Next j
Next i
Print “m = “ & m= нахождение максимального значения элемента по всей матрице
Выбрать, что будет являться результатом работы данного блока программы по обработке матрицы B(3, 4) :
For j = 1 To 4
m = B(1,j)
For i = 1 To 3
If B(i,j) > m Then
m = B(i,j)
End If
Next i
Print “в” & j & “m = “& m
Next j =нахождение максимального значения элемента по каждому столбцу
Выбрать, что будет являться результатом работы данного блока программы по обработке матрицы B(3, 4) :
For i = 1 To 3
m = B(i,1)
For j = 1 To 4
If B(i,j) > m Then
m = B(i,j)
End If
Next j
Print “в” & i & “m = “& m
Next i =нахождение максимального значения элемента по каждой строке
Что такое модуль:=часть программного кода
Входной параметр процедуры – это:=переменная, значение которой вычисляется в действиях пользовательской процедуры