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

  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('Номер  первого отрицательного элемента:');{Вывод  на экран номера отрицательного  элемента}

  Write(otr,' ');

  ReadKey;{Задержка. Ожидание нажатия клавиши}

  end.

  

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

  Задание 5. Алгоритмы обработки  сложных структур

  линейный  алгоритм дисплей одномерный

  Задание

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

  Написать  программу, в которой:

  ·  обеспечить ввод данных с клавиатуры и сохранение их в типизированном файле;

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

  Выполнение

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

  1)  организация структуры данных для одного компьютера;

  2)  циклический ввод данных и сохранение их в типизированном файле;

  3)  завершение ввода при соответствующем подтверждении путем нажатия клавиш «Y» или «y»;

  4)  ввод значения средней стоянки по маршруту;

  5)  выборка и вывод на экран данных по остановкам, стоянка на которых выше средней по маршруту.

  Структура данных о компьютере должна содержать  следующие поля:

  -  текстовое поле – название остановки;

  -  поле целого числа – время прибытия (часы, минуты);

  -  поле целого числа – время стоянки;

  -  поле вещественного числа – стоимость проезда из начального пункта .

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

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

  Program Task5;

  Uses

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

  type

  {структура  данных}

  t_mgts=record

  ost:string; {название остановки}

  timeh,timem, min :integer; {время прибытия (часы, минуты), время стоянки}

  price:real;{стоимость проезда}

  end;

  var

  m:t_mgts;{переменная  для хранения данных}

  f:file of t_mgts;{файл для хранения данных}

  ft:text;{файл  для хранения результатов обработки}

  ans:char;{переменная  для подтверждения конца ввода}

  zmin:real;{заданная  средняя продолжительность стоянки }