Public Function UserFunction(items As Variant) As Integer
Dim result As Integer
For Each Item In items
If Item < 0 Then
result = result + (Item * Item)
End If
Next Item
UserFunction = result
End Function
Этот код вставляется как новый модуль, Alt+F11, Insert -> Module. После нужно сохранить книгу с поддержкой макросов, это обязательно.
Пример использования ниже:
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString.ToWords.Reverse; s.Println
end.
Это элементарно.
Разветвляющийся
<span>массив 5, 28, 8, 14, 9, 23, 6, 18, 51, 99
первый цикл
</span><span>i := 0; j := 9;
while A[i] < 10 do
i := i + 1;
считает i смотрим 5<10 да значит i:=0+1, 28 не меньше 10, 8<10 значит i:=1+1, 14 </span>не меньше 10, 9 <10 значит i:=2+1, 23 не меньше 10, 6 <10 значит i:=3+1, далее ничего не удовлетворяет условию значит i:=4
второй цикл
5, 28, 8, 14, 9, 23, 6, 18, 51, 99<span>
while A[j] > 10 do
j := j - 1;
t := A[i] - A[j];
смотрим 99 > 10 да значит j:=9-1, t=A[4] - A[8]=-42 и так далее ответ получается -176</span>
Дистрибутив – это файл или файлы, предназначенные для установки какой-либо программы.