Смекни!
smekni.com

Составление алгоритмов, реализованных в алгоритмическом языке Паскаль (стр. 3 из 4)

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

4. Интересы потребителя информации при использовании импортной продукции в информационных системах защищаются таможенными органами Российской Федерации на основе международной системы сертификации.

ГЛАВА 5. ЗАЩИТА ИНФОРМАЦИИ И ПРАВ СУБЪЕКТОВ В ОБЛАСТИ ИНФОРМАЦИОННЫХ ПРОЦЕССОВ И ИНФОРМАТИЗАЦИИ

Статья 23. Защита прав субъектов в сфере информационных процессов и информатизации.

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

2. Защита прав субъектов в указанной сфере осуществляется судом, арбитражным судом, третейским судом с учетом специфики правонарушений и нанесенного ущерба.

3. За правонарушения при работе с документированной информацией органы государственной власти, организации и их должностные лица несут ответственность в соответствии с законодательством Российской Федерации и субъектов Российской Федерации.

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

Третейский суд рассматривает конфликты и споры сторон в порядке, установленном законодательством о третейских судах.

4. Ответственность за нарушения международных норм и правил и в области формирования и использования информационных ресурсов, создания и использования информационных систем, технологий и средств их обеспечения возлагается на органы государственной власти, организации и граждан в соответствии с договорами, заключенными ими с зарубежными фирмами и другими партнерами с учетом международных договоров, ратифицированных Российской Федерацией.

Статья 24. Защита права на доступ к информации.

1. Отказ в доступе к открытой информации или предоставление пользователям заведомо недостоверной информации могут быть обжалованы в судебном порядке.

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

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

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

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

Статья 25. Вступление в силу настоящего Федерального закона.

1. Настоящий Федеральный закон вступает в силу со дня его официального опубликования

2. Предложить Президенту Российской Федерации привести в соответствие с настоящим Федеральным законом изданные им правовые акты.

3. Поручить Правительству Российской Федерации:

· привести в соответствие с настоящим Федеральным законом изданные им правовые акты;

· подготовить и внести в Государственную Думу в трехмесячный срок в установленном порядке предложения о внесении изменений и дополнений в законодательство Российской Федерации в связи с принятием настоящего Федерального закона;

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

Задание 2. Линейные алгоритмы

Задание

Написать программу реализации линейного алгоритма приема исходных данных со стандартного внешнего устройства (клавиатуры), преобразования данных в результат по заданной в соответствии с вариантом формуле и вывода исходных данных и результата на стандартное устройство вывода (дисплей). Исходные данные и результат должны быть представлены в форматированном виде.

Выполнение

Дана формула для выполнения задания:


Для удобства программирования некоторые части функции представим в виде функций:

,

Программа для указанного варианта имеет следующий вид:

program Task2;

uses

Crt; {Подключение графического модуля}

Var

x:real; {переменные для ввода данных}

m,k,z:real;

begin

ClrScr;

Write('Введите исходные данные (x): ');

ReadLn(x);

m:=4.187+Pi*Pi+sin(x*Pi/7);

k:=tan(3*Pi/4+x*Pi);

z:=m/k;

WriteLn('Исходные данные:');{Вывод на экран исходных данных}

WriteLn('x=',x:3:2);

WriteLn;

Write('Результат: ');{Вывод на экран результат}

WriteLn(' z=',z:3:2);

Readln;

end.


Рис. 1. Примерный вид исходных данных и результатов на экране

Задание 3. Алгоритмы ветвления

Задание

Написать программу, определяющую принадлежит ли точка с заданными координатами (x,y) заштрихованной области на прилагаемом в соответствии с вариантом графике: см. рис. 2.

Рис. 2. График к заданию 3

Выполнение

Рассмотрим условия, при которых точка (x,y) может принадлежать заштрихованной области, для чего выделим 2 функции.

Область ограничена первой функцией:

, осью абсцисс и осью ординат. Следовательно, координаты точки должны удовлетворять условию:

.

Также область ограничена второй функцией:

, осью абсцисс и осью ординат.

Следовательно, координаты точки должны удовлетворять условию.

.

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

Программа для указанного варианта имеет следующий вид:

Program Task3;

Uses

Crt;{Подключаеммодульграфики}

Var

x,y:real;{переменные, координаты заданной точки}

f1,f2,f:Boolean;{переменные, хранения значений функций}

Begin

ClrScr;{Очистка экрана}

Write('Введите значения X и Y: ');

ReadLn(x,y);{Ввод координат точки}

f1:=(x<=0)and(y>=0)and(Sqrt(x*x+y*y)<=4);{Ограничиваем функцию осью асцисс и осью ординат}

f2:=(x<=0)and(y<=0)and(Sqrt(x*x+y*y)<=6);

f:=f1 and f2;

If f then{проверка условия принадлежности области}

WriteLn('Заданная точка принадлежит заданной области')

else

WriteLn('Заданная точка не принадлежит заданной области');

ReadKey;

end.

В результате работы программы на дисплей будет выведено соответствующее сообщение: см. рис. 3.

Рис. 3. Вид выполнения программы по заданию 3

Задание 4. Алгоритмы обработки массивов

Задание. В одномерном массиве, содержащем положительные, отрицательные элементы и нули, найти первый отрицательный элемент. Вывести на экран исходный массив и порядковый номер первого отрицательного элемента.

Найти минимальный элемент одномерного массива и поменять местами пятый элемент с минимальным. Вывести на экран исходный и результирующий массивы.

Выполнение

Алгоритм решения задачи состоит из следующих шагов:

1. ввести исходное количество элементов массива;

2. ввести элементы массива по одному в строке;

3. найти первый отрицательный элемент;

4. последовательно вывести на экран исходный и номер первого отрицательного элемента.

Программа для указанного варианта имеет следующий вид:

Program Task4;

Uses

Crt;{Подключаеммодульграфики}

Var

n,i,j, otr :integer;{переменные}

m:real;{переменная для хранения минимального значения}

a:Array [1..20] of real;{одномерный массив, вещественных чисел}

Begin

ClrScr;{Очистка экрна}

Write('Количество элементов исходного массива? ');

ReadLn(n);{Ввод количества элементов массива}

For i:=1 to n Do{Цикл для ввода элементов массива}

begin

Write('Введите ',i,' элемент массива: ');

ReadLn(a[i]);

end;

For i:=1 to n Do{Циклдляпроверкиминимальныхэлементов}

If a[i]<0 then otr:=i;

WriteLn('Исходныймассив:');

For i:=1 to n Do{Вывод на экран исходного массива}

Write(a[i]:3:2,' ');

WriteLn;

WriteLn;

WriteLn('Номер первого отрицательного элемента:');{Вывод на экран номера отрицательного элемента}