4 Задание
4.1 Составьте функцию пользователя, вычисляющую стоимость дорожки, проходящей по через луг и пляж (постановка задача приведена в практическом занятии 6). Все данные (восемь значений) передаются в функцию как параметры.
4.2 Создайте процедуру для этих же вычислений. Все данные процедура должна получать из ячеек рабочего листа, а результат поместить в ячейку, адрес которой задается пользователем.
4.3 Создаваемые процедуры должны обеспечить вычисления длины двух отрезков дорожки

и стоимости строительства дорожки:
S = S1 * AB + S2 * BC
при следующих исходных данных
S1=80; S2=120;
xa=0; ya=10;
yb=5;
xc=10; yc=0
Значение xb принять равным одному из тех, для которых на занятии 6 было получено значение стоимости, например 2.

5 Указания к выполнению работы

5.1 Все операции выполняйте в рабочей книге, созданной на занятии 2-6.
5.2 Перед началом работы проверьте и, если нужно, измените на Средний, уровень безопасности при работе с макросами.
5.3 Редактор VBA открывается командами Сервис – Макрос – Редактор Visual Basic .
5.4 Для вставки новой процедуры используется команда Insert – Procedure; тип новой процедуры следует указать Function для первого задания и Sub для второго. Имя функции и процедуре задайте сами, они не должны совпадать.
5.5 Для вычисления длины отрезков можно использовать стандартную функцию VBA Sqr() – вычисления квадратного корня или воспользоваться операцией возведения в степень и тождеством: √х = х1/2.
5.6 Вычислите значения стоимости строительства дорожки с функции и с процедуры. Сравните со значениями, полученными при выполнении занятия 6.
5.7 Сохраните результаты работы.

Объяснение:

формальные средства защиты – это средства, выполняющие защитные функции строго по заранее предусмотренной процедуре без непосредственного участия человека;

неформальные средства защиты – это средства защиты, которые определяются целенаправленной деятельностью человека, либо регламентируют эту деятельность.

К основным формальным средствам защиты, которые используются в информационных технологиях для создания механизмов защиты, относятся следующие:

технические средства реализуются в виде электрических, электромеханических и электронных устройств. Все технические средства делятся на следующие виды:

- аппаратные, представляющие собой устройства, встраиваемые непосредственно в вычислительную технику, или устройства, которые сопрягаются с подобной аппаратурой по стандартному интерфейсу;

- физические, представляющие собой автономные устройства и системы, создающие физические препятствия для злоумышленников (замки, решетки, охранная сигнализация и т. д.);

программные средства представляют собой программное обеспечение, специально предназначенное для выполнения функций защиты информации.

1)

var a:array[1..20] of integer;
max,min,n,i:integer;
begin

randomize;
n:=20;
for i:=1 to n do a[i]:=random(150);
begin
min:=a[1];
for i:=1 to n do if a[1]>a[i] then min:=a[i];
end;
begin
max:=a[1];
for i:=1 to n do if a[1]<a[i] then max:=a[i];
end;
writeln(min);
writeln(max);
end.

2)

const n=5;
var x: array[1..n,1..n] of integer;
i,j,s: integer;
begin
randomize;
writeln('Matrisa:');
for i:=1 to n do
begin
for j:=1 to n do
begin
x[i,j]:=random(200);
write(x[i,j]:5);
end;
writeln
end;
j:=8;
for i:=1 to n do
begin
j:=j-1;
s:=s+x[i,(n+1-i)];
end;
writeln('Summa: ',s);
end.