После чтения сделай вывод: в чём главная мысль данного текста? Отношения в обществе регулируются законами. Они затрагивают все сферы жизни общества.
299
486
Ответы на вопрос:
Жизнь современного общества насыщена самыми разными событиями, требующими правового регулирования (В О Какими? Рождение, свадьба, покупака квартиры и др.). Это свадьбы, рождение детей, устройство на работу, покупка квартир, открытие нового бизнеса, уплата налогов, выборы в государственные органы власти и т.д. (П) Жизнь очень много образна, поэтому существует целый ряд законов и подзаконных правовых актов, регулирующих самые разные сферы жизни общества. Для удобства они объединены в кодексы (своды законов) (В О Какие? Трудовой, семейный, уголовный, гражданский и другие кодексы). Например, Трудовой кодекс регулирует отношения между работниками и работодателями (П); Семейный кодекс – отношения в семье (П); Гражданский кодекс регулирует гражданские права, и в первую очередь – имущественные (П); Уголовный кодекс определяет общественно опасные деяния и наказания за них (П). Среди законов существует жёсткая иерархия (соподчинение) (В О Почему? Потому что они не должны противоречит главному закону страны). Главным законом, где из ложены основы государственного устройства, взаимоотношений государства и общества, права и обязанности граждан, является Конституция. Остальные законы и нормативные акты не должны противоречить основному закону (П). Рассмотрим иерархию законов на примере правовых актов, которые определяют правила жизни в школе (В О Какие это законы? Конституция и закон об образовании.). Так, в Конституции Российской Федерации (РФ) определяется право каждого человека на образование (ст. 43). Федеральный закон РФ «Об образовании» (от 13 января 1996 г. № 12-ФЗ) устанавливает единый порядок получения образования, функционирования образовательных учреждений на территории всейстраны. Устав, который разрабатывается и принимается в каждой школе, учитывает требования Конституции РФ и Федерального закона РФ «Обобразовании» и регламентирует правила жизни школьников и учителей (П).
type
zap = record
fam: string[10];
im: string[7];
otc: string[13];
end;
ukaz = ^element;
element = record
inf: zap;
next: ukaz;
end;
var
newE, left, right, temp: ukaz;
z: zap;
number: integer;
function InputZ : zap;
var
z : zap;
begin
writeln('Введите фамилию студента');
readln(z.fam);
writeln('Введите имя студента');
readln(z.im);
writeln('Введите отчество студента');
readln(z.otc);
InputZ := z;
end;
procedure dob(var first, last : ukaz);
var
z : zap;
begin
z := InputZ;
if first = nil then
begin
New(first);
last := first;
end
else
begin
New(last^.next);
last := last^.next;
end;
last^.inf := z;
last^.next := nil;
end;
procedure org(var first, last : ukaz);
var
answer : String;
begin
writeln('Выполняется процедура организации очереди');
repeat
WriteLn;
WriteLn('Желаете добавить студента? 1 - да / 0 - нет');
ReadLn(answer);
if Length(answer) = 1 then
case answer[1] of
'1' : dob(first, last);
'0' : Exit;
end;
until False;
end;
procedure udal(var first, last : ukaz);
var
tmp : ukaz;
begin
writeln('Исключение главного элемента очереди');
if first = nil then
WriteLn('Операция невозможна: очередь пуста!')
else
begin
tmp := first;
first := first^.next;
dispose(tmp);
end;
writeln('Нажмите кнопку Enter');
readln;
end;
procedure prosmotr(cur : ukaz);
var
i : integer;
z : zap;
begin
if cur = nil then
WriteLn('Очередь пуста!')
else
begin
writeln('Очередь содержит следующие элементы');
i := 0;
while cur <> nil do
begin
inc(i);
z := cur^.inf;
writeln(i, ')', z.fam, ' ', z.im, ' ', z.otc);
cur := cur^.next;
end;
end;
writeln('Нажмите кнопку Enter');
readln;
end;
procedure SwapFirstAndLast(var first, last : ukaz);
var
tmp : ukaz;
begin
if first = nil then WriteLn('Очередь пуста!')
else if first = last then WriteLn('Первый = последнему!')
else
begin
tmp := first;
while tmp^.next <> last do tmp := tmp^.next;
last^.next := first^.next;
tmp^.next := first;
first^.next := nil;
tmp := last; last := first; first := tmp;
prosmotr(first);
end;
end;
{--------------------------------------------------------------------}
var
first, last : ukaz;
begin
first := nil;
last := nil;
repeat
writeln('1-организация очереди');
writeln('2-добавление элемента в очередь');
writeln('3-удаление элемента из очереди');
writeln('4-просмотр очереди');
writeln('5 - обменять первый и последний элементы');
writeln('0-выход');
writeln('------------------');
writeln('введите номер пункта меню');
readln(number);
case number of
1: org(first, last);
2: dob(first, last);
3: udal(first, last);
4: prosmotr(first);
5: SwapFirstAndLast(first, last);
0: halt;
end;
until False;
end.
zap = record
fam: string[10];
im: string[7];
otc: string[13];
end;
ukaz = ^element;
element = record
inf: zap;
next: ukaz;
end;
var
newE, left, right, temp: ukaz;
z: zap;
number: integer;
function InputZ : zap;
var
z : zap;
begin
writeln('Введите фамилию студента');
readln(z.fam);
writeln('Введите имя студента');
readln(z.im);
writeln('Введите отчество студента');
readln(z.otc);
InputZ := z;
end;
procedure dob(var first, last : ukaz);
var
z : zap;
begin
z := InputZ;
if first = nil then
begin
New(first);
last := first;
end
else
begin
New(last^.next);
last := last^.next;
end;
last^.inf := z;
last^.next := nil;
end;
procedure org(var first, last : ukaz);
var
answer : String;
begin
writeln('Выполняется процедура организации очереди');
repeat
WriteLn;
WriteLn('Желаете добавить студента? 1 - да / 0 - нет');
ReadLn(answer);
if Length(answer) = 1 then
case answer[1] of
'1' : dob(first, last);
'0' : Exit;
end;
until False;
end;
procedure udal(var first, last : ukaz);
var
tmp : ukaz;
begin
writeln('Исключение главного элемента очереди');
if first = nil then
WriteLn('Операция невозможна: очередь пуста!')
else
begin
tmp := first;
first := first^.next;
dispose(tmp);
end;
writeln('Нажмите кнопку Enter');
readln;
end;
procedure prosmotr(cur : ukaz);
var
i : integer;
z : zap;
begin
if cur = nil then
WriteLn('Очередь пуста!')
else
begin
writeln('Очередь содержит следующие элементы');
i := 0;
while cur <> nil do
begin
inc(i);
z := cur^.inf;
writeln(i, ')', z.fam, ' ', z.im, ' ', z.otc);
cur := cur^.next;
end;
end;
writeln('Нажмите кнопку Enter');
readln;
end;
procedure SwapFirstAndLast(var first, last : ukaz);
var
tmp : ukaz;
begin
if first = nil then WriteLn('Очередь пуста!')
else if first = last then WriteLn('Первый = последнему!')
else
begin
tmp := first;
while tmp^.next <> last do tmp := tmp^.next;
last^.next := first^.next;
tmp^.next := first;
first^.next := nil;
tmp := last; last := first; first := tmp;
prosmotr(first);
end;
end;
{--------------------------------------------------------------------}
var
first, last : ukaz;
begin
first := nil;
last := nil;
repeat
writeln('1-организация очереди');
writeln('2-добавление элемента в очередь');
writeln('3-удаление элемента из очереди');
writeln('4-просмотр очереди');
writeln('5 - обменять первый и последний элементы');
writeln('0-выход');
writeln('------------------');
writeln('введите номер пункта меню');
readln(number);
case number of
1: org(first, last);
2: dob(first, last);
3: udal(first, last);
4: prosmotr(first);
5: SwapFirstAndLast(first, last);
0: halt;
end;
until False;
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
Станислав201722.11.2020 00:12
-
LegoLAS0928.06.2023 22:35
-
Yuchvvjv09.12.2022 12:48
-
artemvershinin07.09.2021 18:39
-
tataynka124.01.2023 01:59
-
ledytyt1305.10.2020 11:06
-
Matveystori16.06.2021 09:00
-
000044445566529.08.2020 11:42
-
wrrrr16.03.2020 18:40
-
Vitalik199424.03.2020 10:20
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.