В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История

Решить задачи из Paschal ABC

Показать ответ
Ответ:
napol2011
napol2011
17.11.2022 00:02
Каждый день, человек пользуется компьютером. Каждый для своих целей.
Кто-то для математических о операций, таких как калькулятором, но это один из легких вычислить что-нибудь, люди которые зарабатывают на хлеб этим, они занимаются строением сложных графиков, а также решают массу сложных задач. Естественно что эти программы кто-то пишет, это программисты, я думаю они умнее этих ученных, потому что разработали алгоритм выполнения ихних задач. Хотя не исключено что может быть ошибка в программном коде.

Кто-то работает с графикой на компьютере, тем самым создавая свои рисунки или 3d-модели. Они берут моделируют различные дома, строения, ландшафты, многие берут это из окружающего мира, пытаясь создать трехмерное изображение города или места, тем самым вы сможете побывать в Лондоне например. Но это очень сложная работа, которая требует времени.

Кто-то наоборот программирует, и им необходимо математические знания, знание алгоритмов, и более важное понимание матрицы. Как правило такие люди просижуют за компьютерами днями и ночами, и зарабаток ихний естественно высок. Без них, не было ни программ, ни операционных систем, ни кофе варок, ни телевизоров, ни спутников. Ведь это они пописуют код для выполнения тех или иных операций для данного объекта.

Кто-то пишет эллектронные книги, тем самым создавая либо шедевры, либо некий рассказ на любителя.

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

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

Многие записывают фильмы на камеру, а потом обрабатывают на компьютере, и монтируя, добавляя эффекты, тем самым при с просмотре фильма, мы получим готовую картинку. Например фильм Аватар был полностью из 3d графики, теперь вы представьте сколько информации требовалось обработать за 2 часа, если 1 кадр весил 10мб (в фильме в 1 секунде 24 кадра)

Многие записывают музыку, тем самым мы наслаждаемся ее прослушиванием.

Кто-то лазит по интернету, и читает различные информации. Например кому-то стало интересно что такое черная дыра, как по мне это очень интересный объект, в котором внутри совсем другие законы гравитации. Обо всём этом мы можем узнать в интернете, а также о многом другом, тем самым получая огромное количество информации.

Вывод: человек с компьютером имеет огромный функционал, и это универсальное устройство для работы с информацией.
0,0(0 оценок)
Ответ:
Kolyan097
Kolyan097
21.10.2020 23:11
// PascalABC.NET 3.0, сборка 1073
const
  nn=30;
  mm=30;
var
  a:array[1..mm,1..nn] of integer;
  m,n,i,j,k,s:integer;
begin
  Writeln('Введите число строк и столбцов массива: '); Read(m,n);
  Randomize;
  Writeln('*** Исходный массив ***');
  k:=0;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4);
      if Odd(a[i,j]) then Inc(k)
    end;
    Writeln
  end;
  if k>5 then begin
    Writeln('Средние арифметические отрицательных элементов по строкам');
    for i:=1 to m do begin
      s:=0; k:=0;
      for j:=1 to n do
        if a[i,j]<0 then begin Inc(k); s:=s+a[i,j] end;
      if k>0 then Writeln(s/k:9:5) else Writeln('  0.00000');
    end
  end
  else begin
    Writeln('*** Результирующий массив ***');
    for i:=1 to m do begin
      for j:=1 to n do begin a[i,j]:=2*a[i,j]; Write(a[i,j]:4) end;
    Writeln
    end
  end
end.

Тестовые решения:
Введите число строк и столбцов массива:
8 6
*** Исходный массив ***
 -16  -8  -1  24 -22   1
  -9 -20 -25  13 -11  10
 -15  10 -12  20 -22   3
  -6  25  -3  25 -14  22
  24  -4  24  17  -4 -17
 -23  -9 -22   1 -18 -13
 -12  13   6 -16   2 -13
  19   8 -22  14  -3   4
Средние арифметические отрицательных элементов по строкам
-11.75000
-16.25000
-16.33333
 -7.66667
 -8.33333
-17.00000
-13.66667
-12.50000

Введите число строк и столбцов массива:
3 5
*** Исходный массив ***
   3  24 -21 -22  -8
 -21  14 -22   0 -22
  15 -16  -2   6  22
*** Результирующий массив ***
   6  48 -42 -44 -16
 -42  28 -44   0 -44
  30 -32  -4  12  44
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота