М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Dadahkkkaaa001
Dadahkkkaaa001
12.11.2020 12:00 •  Информатика

Turbo pascal.дано: массивы a ( n1,m1) , b(n2,m2),c (n3,m3). определить в каждом из заданных массивов сумму наибольших значений элементов его четных строк . определение суммы наибольшего элемента четных строк массивы осуществить в подпрограмме. (желательно записать через функцию)

👇
Ответ:
данчик321
данчик321
12.11.2020
Program Example;

const
  r = 20;

type
  tM = array[1..r, 1..r]of integer;

function GetMax(var a: tM; n: integer; m: integer): integer;
// Возвращает значение максимального элемента в строке n массива а
var
  j, max: integer;
begin
  max := -32767;
  for j := 1 to m do
    if max < a[n, j] then max := a[n, j];
  GetMax := max
end;

function SumMax(var a: tM; n: integer; m: integer; p: integer; q: integer): integer;
// Проверяет условие n<=r, m<=r, при нарушении возвращает значение -32768
// Полагает, что массив [1..n,1..m] размещен внутри массива a[1..r,1..r] 
// Заполняет выбранную область массива А случайными числами из диапазона (p;q)
// Возвращает значение суммы максимальных элементов четных строк выбранной области.

var
  i, j, s: integer;
begin
  if (n > r) or (m > r) then SumMax := -32767
  else begin
    Randomize;
    for i := 1 to n do
      for j := 1 to m do
        a[i, j] := random(p + q) - p;
    s := 0; i := 2;
    while i <= n do
    begin
      s := s + GetMax(a, i, m);
      i := i + 2
    end;
    SumMax := s
  end
end;

const
  n1 = 5; m1 = 3;
  n2 = 4; m2 = 4;
  n3 = 3; m3 = 7;

var
  i, j, sum: integer;
  A: tM;

begin
  sum := SumMax(A, n1, m1, -30, 60);
  writeln('Массив A[1..', m1, ',1..', n1, ']');
  for i := 1 to n1 do
  begin
    for j := 1 to m1 do write(A[i, j]:4);
    writeln;
  end;
  writeln('Сумма максимумов четных строк массива A равна ', sum);
  sum := SumMax(A, n2, m2, 0, 90);
  writeln('Массив B[1..', m2, ',1..', n2, ']');
  for i := 1 to n2 do
  begin
    for j := 1 to m2 do write(A[i, j]:4);
    writeln;
  end;
  writeln('Сумма максимумов четных строк массива B равна ', sum);
  sum := SumMax(A, n3, m3, 20, 50);
    writeln('Массив C[1..', m3, ',1..', n3, ']');
  for i := 1 to n3 do
  begin
    for j := 1 to m3 do write(A[i, j]:4);
    writeln;
  end;
  writeln('Сумма максимумов четных строк массива C равна ', sum);
end.

Контрольный пример:

Массив A[1..3,1..5]
  47  55  48
  51  45  49
  32  47  53
  54  31  33
  56  50  36
Сумма максимумов четных строк массива A равна 105
Массив B[1..4,1..4]
  85  49  72  13
  66  57  22  54
  67  63  76  53
  79   2  38  88
Сумма максимумов четных строк массива B равна 154
Массив C[1..7,1..3]
  46  18  36 -10  31  24  -3
  22  32  29  39  21  41 -19
   9  48  47  -1   4  29  11
Сумма максимумов четных строк массива C равна 41
4,4(37 оценок)
Открыть все ответы
Ответ:
novikovat73
novikovat73
12.11.2020

Задание №7

Знак « : = » называется «присвоить». Если простыми словами, то это переводится как «равно»

а) c : = a + 1/3

Это значит: с равно а + 1/3

Вместо а нужно поставить значение, которое нам дано в условии задания.

Если подставить а, то получится:

с : = а + 1/3

с : = 2 + 1/3

с : = 2 целых 1/3 (это и есть ответ)

Во всех остальных примерах этого задания надо делать тоже самое. Вместо а подставлять 2, а вместо b ставить 3, потом всё решать как обычный пример по математике

Задание №8

В этом задании есть такие знаки:

: = - присвоить (или равно)

div - разделить (если при делении будет остаток, его писать не надо. Выписывается только целое число)

mod - разделить и написать остаток (например, если написано: 9 mod 4. Нужно 9 разделить на 4 и написать число, которое осталось. Девять без остатка разделить нельзя, значит, берём ближайшее делимое число, которое меньше девяти - это 8. Потом из девяти вычитаем восемь и получаем один. 1 и надо выписать. То есть, 9 mod 4 = 1 )

а) с : = а mod b + b

c : = 26 mod 6 + 6

c : = 2 + 6

c : = 8

Сначала посчитать 26 mod 6 (получится 2), а потом прибавить 6

б) c : = a div b + a

с : = 24 div 6 + 26

c : = 4 + 26

с : = 30

Сначала посчитать 24 div 6 (24 разделить на 6 и выписать целое число. То есть 4)

в)

b : = a div b

c : = a div b

В данном примере несколько строк. Считаем первую:

b : = a div b

b : = 26 div 6

b : = 4

Теперь, чтобы посчитать вторую строку задачи, вместо b надо ставить не 6, а 4, потому что в первой строке мы посчитали и присвоили b : = 4. Всегда так надо делать. (Например, если в начале задачи написано, что х : = 1, то в самый первый раз так и надо считать. Но если потом в каком-то примере х станет 3, то теперь это и будет новое значение, с которым надо работать. Запомни правило: какое значение последнее, то и использовать.

Весь пример этой задачи будет выглядеть так:

b : = a div b

c : = a div b

b : = a div b

b : = 26 div 6

b : = 4

с : = a div b

c : = 26 div 4 (взять последнее значение b, то есть 4)

c : = 6 (это ответ)

Остальные примеры решаются также

4,5(14 оценок)
Ответ:
Huliganka3009
Huliganka3009
12.11.2020
Я ответил, но ответ почему-то не сохранился.
1) Минимально в компьютер входят: системный блок, клавиатура и монитор.
Мышь, принтер и сканер не входят! Во времена MS-DOS работали без мышей, принтер подключали редко, а сканеров тогда вообще не было.

2) В системный блок входят материнская плата, на ней процессор, память, микросхема BIOS. В слоты вставляются видеокарта и звуковая карта.
Хотя в последнее время видео и звук ставят сразу на материнскую плату, но они обычно плохого качества, нормальные нужно ставить в слоты отдельно.
На шлейфах подключаются винчестер и CD/DVD дисковод.
Иногда Blue-Ray, но это пока редкость. Раньше еще были дисководы для дискет, 5,25 дюймов и 3,5 дюйма, последние еще иногда встречаются.
В сервере даже видеокарта и монитор не нужны.

3) Контроллер - это микросхема, плата или даже программа, которая управляет какой-то периферией, например, видео, звуком или сканером.

4) Физически устройства соединяются через слоты, раньше были ISA и VLB, сейчас PCI, PCI-Express, SCSI и другие.
А также через шлейфы или просто по проводам.

5) Информация по шине попадает на нужное устройство благодаря шине адреса, в которой заложено, куда эта информация должна прийти.
4,4(2 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ