Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Тема: Запобігання виникненню надзвичайних ситуацій.

Специфічними повноваженнями наділене й Міністерство внутрішніх справ України. Зокрема, Міністерство здійснює такі права й обов’язки: забезпечує реалізацію державної політики щодо боротьби зі злочинністю; визначає основні напрями діяльності органів внутрішніх справ; організує роботу органів внутрішніх справ по охороні громадського порядку; безпосередньо проводить роботу по виявленню, розкриттю і розслідуванню злочинів, що мають міжрегіональний міжнародний характер; веде боротьбу з організованою злочинністю та наркобізнесом і злочинами у сфері економіки; забезпечує профілактику правопорушень; бере участь у наукових кримінологічних і соціологічних дослідженнях, у розробках на їх основі державних програм боротьби із злочинністю і охорони правопорядку; організує інформаційно-аналітичне забезпечення діяльності органів внутрішніх справ тощо.

Отже, можна констатувати, що правоохоронні органи здійснюють в основному внутрішні функції держави по забезпеченню прав і свобод людини і громадянина; боротьби із злочинністю, корупцією і т. ін., здійснюючи при цьому правовиконавчу та правоохоронну діяльність, меншою мірою – правотворчість.

CONST

n=6; // количество элементов суммы

x=0.5; // для этого Х вычислить сумму

VAR

s:real; // искомая сумма

q:real; // коэффициент рекуррентности

a1,a2:real; // предыдущий и следующий элементы суммы

i:integer; // счетчик элементов суммы

BEGIN

s:=1; // значение суммы до начала цикла

a1:=1; // слагаемое перед началом цикла

for i:=1 to n do begin

q:=-x/i; // i-й коэффициент рекуррентности

a2:=a1*q; // следующий элемент суммы

s:=s+a2; // суммирование

a1:=a2 // подготовка к следующему такту цикла

end;

WriteLn (' x=',x:5:1,' s=',s:9:6);

WriteLn('***** Press <ENTER> to finish *****');

readln;

END.

Редактирование текста главной программы для задачи 2.

program Jabborov4_2;

{$APPTYPE CONSOLE}

uses

SysUtils;

CONST

xn=0.1; { начальное значение Х }

xk=1.1; { конечное значение Х }

hx=0.2; { шаг по Х }

eps=1e-3; { точность вычисления суммы }

VAR

S:real; { сумма }

q:real; { коэффициент рекуррентности }

a1,a2:real; { предыдущий и следующий элементы суммы }

x:real; { текущее значение Х }

i:integer; { счетчик элементов суммы }

k:integer; { счетчик количества точек Х }

begin

WriteLn('Task # 2');

x:=xn; {начальная точка Х }

k:=1; { номер точки X }

WHILE x<=xk+eps DO BEGIN { начало цикла по Х }

s:=1; { значение суммы до цикла в К-й точке Х }

a1:=1; { слагаемое непосредственно перед началом цикла}

i:=1; { начальное значение счетчика i }

REPEAT {цикл REPEAT для вычисления суммы в К-й точке Х}

q:=-x/i;

a2:=a1*q;

s:=s+a2;

i:=i+1;

a1:=a2

UNTIL abs(a2)<eps; { закончился оператор REPEAT }

WriteLn (k:2,'. ',' x=',x:3:1,' s=',s:9:6);

k:=k+1;

x:=x+hx; { переход на следующий Х }

END; { закончился оператор WHILE }

WriteLn('Press <ENTER> to finish');

ReadLn;

end.

Результаты выполнения:

1.

2.

Вывод:

Тема: Запобігання виникненню надзвичайних ситуацій.