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. После нужно сохранить книгу с поддержкой макросов, это обязательно.
Пример использования ниже:
Var
n,i,k: integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do
begin
read (a[i]);
if a[i]=1 then n:=n+1;
end;
writeln ('edinice=',n,' elements');
end.
<u>Простой алгоритм из 9 шагов:
</u>1) Берем сковороду
2) Ставим на нагретую плиту
3) Берем 3 яйца
4) Берем тарелку
5) Разбиваем яйца в тарелку
6) Взбиваем яйца
7) Выливаем на сковороду
8) Ждем 5 минут
9) Выключаем плиту<u>
</u>
10101010(2) =170(10)
Решение:
Приведем 10101010 из системы счисления 2 в десятичную систему счисления
101010102=1·2(7) +0·2(6) +1·2(5) +0·2(4) +1·2(3) +0·2(2) +1·2(1) +0·2(0) =170(10)
252(8) =170(10)
Приведем 252 из системы счисления 8 в десятичную систему счисления
252(8)=2·8(2) +5·8(1) +2·8(0) =170(10)
7(16) =7(10)
Приведем 7 из системы счисления 16 в десятичную систему счисления
7(16)=7·16(0) =7(10)
170(10) - 170(10) + 7(10) = 7(10)
<u>Pascal:</u>
var x,y:real;
begin
write ('X = ');
readln(x);
write ('Y = ');
readln(y);
writeln ('Summa: ',x+y);
writeln ('Srednee: ',(x+y)/2);
readln;
end.
<u>C++:</u>
#include <iostream>
using namespace std;
int main()
{
float x,y;
cout <<"X = ";
cin >>x;
cout <<"Y = ";
cin >>y;
cout <<"Summa: " <<x+y <<endl
<<"Srednee: " <<(x+y)/2 <<endl;
return 0;
}