Ответы на вопросы по тексту А.Тойнби "Острые проблемы современной цивилизации".

Системология

Общество как динамичная система.

Общество – сложная динамическая саморазвивающаяся система, которая состоит из подсистем. 

Система - множество элементов, находящихся в отношениях и связях друг с другом, образующих определенную целостность, единство. 

Динамичная система - множество элементов, для которого задана функциональная зависимость между временем и положением в фазовом пространстве каждого элемента системы. 

Признаки  общества как динамичной системы:

1)динамизм (возможное изменениес течением времени как общества, так и отдельных его элементов).

2)комплекс взаимодействующих элементов (подсистемы, социальные институты).

3)самодостаточность (способность системы самостоятельно создавать и воссоздавать условия, необходимые для собственного существования, производить все необходимое для жизни людей).

4)интеграция (взаимосвязь всех компонентов системы).

самоуправляемость (реагирование на изменения в природной среде и мировом сообществе).

Понятие общества в узком смысле:

1)первобытное, рабовладельческое общество (исторический этап развития человечества),

2)французское общество, английское общество (страна, государство),

3)дворянское общество, высшее общество (круг людей, объединенных общностью положения, происхождения, интересов),

4)общество музыкантов, общество защиты природы (объединение людей с какой-либо целью).

Понятие общества в широком смысле:

1)все население Земли, совокупность всех народов, 

2)общество – это обособившаяся от природы, но тесно связанная с ней часть материального мира, которая включает в себя способы взаимодействия людей и формы их объединения. 

Признаки общества как системы:

1)общество отличается большим разнообразием различных социальных структур, систем и подсистем,

2)общество несводимо людям, его составляющим, эта система вне- и  надындивидуальных форм, связей и отношений, которые человек создает своей активной деятельностью,

3)самодостаточность,

4)динамичность, незавершенность и альтернативность развития,

5)особый статус субъектов, определяющих общественное развитие,

6)непредсказуемость, не линейность развития,

7)необходимость осмысления последствий вмешательства человека при построении различных моделей развития общества.

Общественные отношения - это многообразные связи, возникающие между социальными группами, классами, нациями (а так же внутри них) в процессе экономической, социальной, политической, культурной жизни и деятельности общества.

Презентация

Домашняя работа.

Составить программу, которая выбирает среди всех трехзначных чисел те, которые делятся на заданное число (вводится, как исходные данные):

Program one;
Var a,i,k:integer;
 Begin
 WriteLn(vvedite chislo');
 ReadLn(a);
 For i:=100 to 999 do
 If a mod i=0 Then
 WriteLn(i)
 End.

Домашнее задание №26 Тема: Ветвления на Паскале. Программирование диалога с компьютером.

1. Составьте на Паскале программу определения минимума из трёх чисел с использованием логических операций. Программа должна иметь дружественный интерфейс. 

Program one
Var a,b,c:integer;
Begin
  WriteLn('a=');
  ReadLn(a);
  WriteLn('b=');
  ReadLn(b);
  WriteLn('c=');
  ReadLn(c);
  If a<b a<c Then WriteLn(a, ' - меньшее')
  Else If b<a b<c Then WtiteLn(b, '- меньшее')
  Else If c<a c<b WriteLn(c, ' - меньшее')
  Else If a=b=c WriteLn('числа равны')
End.

2. Составьте на Паскале программу, которая запрашивает возраст двух детей (Саши и Маши), а затем выводит информацию о том, кто из них старше.    

Program two
Var a,b:integer;
Begin
  WriteLn('Возраст Саши');
  ReadLn(a);
  WriteLn('Возраст Маши');
  ReadLn(b);
  If a>b Then WriteLn('Саша старше Маши')
  Else If b<a Then WtiteLn('Маша старше Саши')
  Else If a=b Then WriteLn ('Возраст Маши равен возрасту Саши')
End.

3. Запишите на языке Паскаль программу, которая по номеру для недели будет выводить его название.    

Program three
Var x:integer;
Begin
  WriteLn('Введите номер дня недели')
  ReadLn(x);
  If x=1 Then WriteLn('понедельник')
  Else If x=2 Then WriteLn('вторник')

  Else If x=3 Then WriteLn('среда')

  Else If x=4 Then WriteLn('четверг')

  Else If x=5 Then WriteLn('пятница')

  Else If x=6 Then WriteLn('суббота')

  Else If x=7 Then WriteLn('воскресенье')

  Else If x>7 Then WriteLn('нет такого дня недели');

End.

4. Что вычисляет приведённая ниже программа? Приведите два примера исходных данных и результата

Program example;
Var x,y,z,I :integer;
Begin
  ReadLn(a,b,c);
  i:=0;
  If a>0 then i:=i+1;
  If b>0 then i:=i+1;
  If c>0 then i:=i+1;
  WriteLn(i)
End.   


Эта программа вычисляет количество введенных чисел больше нуля.
Пример исходных данных и результата:
I
x=5
y=-3
z=1
i=2
II
x=0
y=28
z=-5
i=1

Практическое задание №20 Тема: Знакомство с языком Паскаль

1. Написать на языке Паскаль программу ввода четырёх целых чисел и вычисления их среднего арифметического. 2. Написать программу для вычисления дискриминанта  d   квадратного уравнения  ax2 + bx + c = 0. Разработать тесты проверки правильности работы программы для вариантов, когда d>0, d=0 и d<0. 3. Написать программу для вычисления площади кольца, внешний радиус которого равен R1, а внутренний – R2 (R1>R2).

1.

program my;

 var a,b,c,d,e:real;

begin

read(a,b,c,d);

e:=(a+b+c+d)/4;

writeln(e:0:4);

end.

2.

program my;

var a,b,c,d:integer; x1,x2:real;
begin
writeln('Введите коэффициенты');
readln(a,b,c);
d:=b*b-4*a*c;
if (d<0) then writeln('Нет решения')
else if (d=0) then 
begin
x1:=-b/(2*a);
writeln('x=',x1);
end
else begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1= ',x1,'x2=',x2);
end;

readln
end.

3.

program my;

var
    R1, R2: real;

begin
    write('Введите данные - ');
    read(R1, R2);
    writeln('Pi = ', pi); {это чтоб знать с какой точностью брать П}
    writeln('S = ', pi * abs(R1 * R1 - R2 * R2));
end.