Структурная схема признаков virus

Наиболее эф-ные программы
AIDS, ТЕSТ, DR.WEB
Искажение каталогов
программы
Увеличение длины
Эпизодическое появление на
экраных сообщений монитора
различий
Увеличение числана внешнем
носителе файлов на на
Направление антивирусной
защиты
Зависание работы ПК
Стирание файлов
Нейтрализация вирусов
Блокирование возможности
вирусов к воспроизведению
Обнаружение вирусов
КОМПЬЮТЕРНЫЕ ВИРУСЫ И СПОСОБЫ ИХ НЕЙТРАЛИЗАЦИИ
СТРУКТУРНАЯ СХЕМА
Признаки компьютерных вирусов и способы их нейтрализации.
Характерные признаки наличия вируса в ПК
Правовые методы защиты
информации в компьютерных системах
Правовые методы защиты
Уголовный кодекс
Российской
Федерации
Ст 273
ч 1,2
Об органах
Федеральной
службы
безопасности в
Рос.Федерации
Ст272 ч, 1,2
Об оперативноразыскной
деятельности
СТ2,23 n1
23 n 2, 24
Закон
Российской
Федерации
Об информации. Инмация и защита инфции.
Конституция
Российской
Федерации
Ст138
Ст274 ч1,2
Ст201
1)Нарисовать блок-схему
2)Нарисовать 2 таблицы :
Конституция
Документ
Статья
Уголовный кодекс
Наименование
Документ
Статья
Наименование
3) Оформить таблицы
П21, П22.
Задание по таблицам:
1. Из консультанта + выбрать размеры ставок подоходного налога с помощью Рубрикатора
( Поле Тематика)
2. Сохранить файл в форме RTF.
3. Сделать обрамление таблиц.
4. Сохранить .
5. Разбить таблицу на 2.
6. Вставить заголовки к таблицам
7. В программе проводник создать папку Консультант
8. Сохранить файл в папке Консультант с именем Ставка налога
График функции у=sin x.
Задача. Построить график функции y=sin x.
Язык Паскаль
{Построение графика функции y=sin (x)}
uses graph, crt;
Const
PrW=70; {процент использования ширины экрана}
PrH=70; {процент использования высоты экрана}
StX=5; {шаг угла x}
PATH=’’; {ФАЙЛЫ * . BGI находятся в рабочем каталоге}
Var
W, H, gd, gm, x, Xc, Yc, XcMax: integer;
Mx, My: real; {масштабы по осям Х и Y}
y: real;
{Переход от центральных координат к экранным}
procedure WH (var W, H: integer); {ширина и высота экрана}
begin
{Функции GetMaxX и GetMay возвращают максимальные значения соответствующих
экранных координат}
W:=(GetMaxX+1) ; {ширина}
H:=(GetMaxY+1) ; {высота}
end;
Function Xscr (X: Integer): Integer;
Begin Xscr:=X + W div 2 end;
Function Yscr (Y: Integer): Integer;
Begin Yscr:=H div 2 – Y end;
BEGIN
gd: =DETECT;
initgraph (gd, gm, path);
WH (W, H); {определяем ширину и высоту экрана}
{Интервал изменения угла х от –180 до 180 градусов}
Mx: =PrW/100*W/360;
{Интервал изменения sin от-1 до 1}
My: =PrH/100*H/2;
XcMax: =round (Mx*180); {Максимальная центральная координата по Х}
YcMax: =round (My); {Максимальная центральная координата по Y}
SetColor (Yellow); {Цвет – желтый}
Line (Xscr (-XcMax), Yscr (0), Xscr (XcMax), Yscr (0)); {ось X}
Line (Xscr (0), Yscr (-YcMax), Xscr (0), Yscr (YcMax)); {ось X}
X: = -180; {начальное значение х. Sin(-180) =0}
{Ставим курсор в начальную точку на графике}
MoveTo (Xscr (-XcMax), Yscr (0));
Repeat {цикл графика}
x: =x + StX; {новое значение угла x}
y: =sin (x*Pi/180); {значение функции}
Xc: =round (Mx*x); {центральная координата по X}
Yc: =round (My*y); {центральная координата по Y}
{Проводим отрезок от старой до новой точки на графике}
LineTo (Xscr (Xc), Yscr (Yc));
until x=180; {цикл графика}
repeat until keypressed;{Выход – нажатием любой клавиши}
CloseGraph; {Переход в текстовой режим}
END.
Язык Паскаль.
{Программа построения перспективы улицы}
uses Graph;
{SI grtool. Pas}
{SI transfor. Pas}
{SI picture. Pas}
const
Angle=30; {Угол наклона в градусах}
LO=100; {Начальная длина сдвига}
kO=0.93; {Начальный коэффициент «растяжения»}
var
dx, dy: integer; L, k: real;
BEGIN
Gd:=DETECT;
InitGraph (Gs, Gm, Path); {Переход в графический режим}
WH (W, H); {находим ширину и высоту экрана}
aP: =aPhouse; L: =LO; k: =kO;
Displ (Nhouse, aP, -70, -70); {Сдвиг дома влево и вниз}
DrawPicture (Nhouse, aP, HouseMatrix, White); {Первый дом}
readln;
repeat
{Цикл улицы}
dx: =round (L*cos (Angle/180*Pi));
dy: =round (L*sin (Angle/180*Pi));
Displ (Nhouse, aP, dx, dy); {Сдвиг дома}
PO: =aP [1]; {Первая вершина – центра сжатия}
Strain (Nhouse, aP, PO, k); {Сжатие дома}
if Inside (Nhouse, aP) then begin {Очередной дом}
DrawPicture (Nhouse, aP, HouseMatrix, White);
{Пересчет длины сдвига и коэффициента сжатия}
L; =L*0.83; k: =k*ko;
readln;
end; {Очередной дом}
until Not Inside (Nhouse, aP); {Цикл улицы}
closegraph; {Переход в текстовой режим}
END.
Язык Паскаль
{изображение последовательности правильных многоугольников}
Uses Greph, Crt;
Tupe
tPoint=record {Тип точки}
x,y: integer; {экранные координаты точки}
end;
Const
PATH=’’; {файлы *. BGI находятся в рабочем каталоге}
PrD=70; {диаметр описанной окружности в от высоты экрана}
N=6; {число сторон многоугольника}
Nmax=50; {максимальное число сторон многоугольника}
g:real=4; {отношение, в котором делятся стороны}
Ns=20; {число изображаемых многоугольников}
Var
Gd, Gm, W, H, R, i, j: Integer;
Angie: real;
aPold, aPnew: array [0.. Nmax] of tPoint;
{Переход от центральных координат к экранам}
procedure WH (var W, H: integer); {ширина и высота экрана}
begin
{Функции GetMaxX и GetMaxY возвращают максимальные значения
соответствующих экранных координат}
W:= (GetMaxX+1); {ширина}
H:= (GetMaxY+1); {высота}
end;
Function Xscr (X: Integer): Integer;
Begin Xscr:=X + W div 2 end;
Function Yscr (Y: Integer): Integer;
Begin Yscr: =H div 2 – Y end;
procedure DrawPolygon; {Изображение многоугольника}
var
i: byte;
xb, yb, xe, ye: integer;
begin
SetColor (Yellow); {цвет – желтый}
for i; =0 to N-1 do begin
{находим экранные координаты концов очередной стороны и рисуем ее}
xb: =Xscr (aPold [i].x);
yb: =Yscr (aPold [i].y);
xe: =Xscr (aPold [i+1].x); ye: =Yscr(aPold [i=1].y);
Line (xb, yb, xe, ye);
end;
end;
BEGIN
Gd: =DETECT;
InitGraph (Gd, Gm, Path); {Переход в графический режим}
WH (W,H); {находим ширину и высоту экрана}
R: =round (PrD*0. ½*H); {радиус описанной окружности}
Angle: =2*Pi/N; {центральный угол стороны}
for i: =0 to N do begin {вершины исходного многоугольника}
aPold [i]. x: =round (R*cos (Angle*i));
aPold [i]. y: =rjund (R*sin (Angle*i));
end;
DrawPolygon; {рисуем исходный многоугольник}
for j: =1 to Ns do begin {цикл многоугольников}
for i: =0 to N-1do begin {вершины очередного многоугольника}
aPnew [i]. x: =round ((aPold [i]. x=q*aPold [i=1].x) / (1+q));
aPnew [i]. y: =round ((aPold [i]. y=q*aPold [i=1].y) / (1+q));
end; {вершины очередного многоугольника}
aPnew [N]: =aPnew [0]; {первая и последняя вершины совпадают}
{переносим вершины из массива aPnew в aPold}
for i: =0 to N do aPold [i]: =apnew [i];
DrawPolygon; {рисуем очередной многоугольник}
end; {цикл многоугольников}
repeat until KeyPressed; {Прерывание – нажатием любой клавишей}
CloseGraph; {Переход в текстовой режим }
END.