Сообщение на тему "информационное общество"

Mluhahahahahahhahhuuhhhu

Сообщение по информатике на тему «Информационное общество»

 

    Под информационным обществом, как правило, понимают общество, в котором большинство работающих занято производством, хранением, переработкой и реализацией информации, особенно высшие ее формы – знания.

    Мы живем в век научно-технических открытий, достижений, и, конечно же информационных технологий. Мы используем повседневно компьютеры, пользуемся мировой паутиной –интернет. Из интернета мы черпаем дополнительные знания, раньше для этого приходилось ходить в библиотеку. Мы можем посмотреть, например, мюзикл в Париже, находясь дома в Москве. Мы можем общаться посредством скайпа или социальных сетей с людьми, которые в данный момент далеко. Раньше надо было писать письма и звонить с телеграфа.  Сегодня невозможно представить жизнь без интернета. Странно, как же люди жили до этого?

   А до этого люди жили без высоко – точных технологий. Тысячи людей трудились на благо страны в научных институтах, делали расчеты, чертежи и т.д. Сейчас процесс можно упростить, достаточно заложить программу, и вовсе необязательно держать такой большой штат, все сделают машины. Сейчас практически везде автоматизированное производство. Но вот что странно, как показывает история, без высоко -точных технологий, все было лучше, точнее, прочнее. Самолеты не падали, обувь носилась целыми поколениями, продукты питания были натуральными, без химических добавок. А специалисты были гораздо грамотнее и ответственнее, чем сейчас.

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

 

var

  A: array [1..12] of integer;  //Массив, состоящий из 12 целых чисел

  i: integer;

 

begin

  for i:= 1 to 12 do   //Вводим элементы массива

  begin

    writeln('Введите А[', i, ']');

    readln(a[i]);

  end;

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

  for i:= 1 to 12 do  {Распечатываем исходный массив и заменяем все положительные четные элементы на 5}

  begin

    write(a[i], '  ');

    if (a[i] > 0) and (a[i] mod 2 = 0) then

      a[i]:= 5;

  end;

  writeln;

  write('Измененный массив:  ');

  for i:= 1 to 12 do  //Распечатываем измененный массив

    write(a[i], '  ');

  writeln;  {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}

end. 

Если все правильно, отметь решение как лучшее)

var

  a, b, c: real;  {a и b - вводимые с клавиатуры числа, c - буферная переменная, которая будет содержать значение переменной a}

 

begin

  writeln('Введите 2 числа');

  readln(a, b);  //Вводим числа

  c:= a;  

  if a < b then {Если a < b, то заменяем а на среднее арифметическое этих чисел, b - на произведение этих чисел и распечатываем их}

  begin

    a:= (a + b) / 2;  

    b:= c * b;

    writeln('a < b => a = ', a, ', b = ', b);

  end;

  if b < a then  {Если b < a, то заменяем а на произведение чисел, b - на среднее арифметическое чисел}

  begin

    a:= a * b;  

    b:= (c + b) / 2;

    writeln('b < a => a = ', a, ', b = ', b);

  end;

  if a = b then writeln('Числа равны');  {Числа числа равны, то печатаем сообщение об этом}

end. 

Если все правильно, отметь решение как лучшее)