Сколько времени (в сек.) потребуется для того, чтобы передать текст объемом 3600 байт по соединению со скоростью 57600 бит/с. В ответе укажите ТОЛЬКО ЧИСЛО. Единицы измерения указывать не нужно.
144
239
Ответы на вопрос:
Const m = 6; n = 9; type r = record sum: integer; nom: integer end; vr = array[1..n] of r; tm = array[1..m, 1..n] of integer; function sumcol(a: tm; k: integer): integer; { сумма элементов в k-м столбце (колонке) матрицы а } var i, s: integer; begin s : = 0; for i : = 1 to m do s : = s + a[i, k]; sumcol : = s end; procedure swp(var a, b: r); { меняет местами элементы a и b } var t: r; begin t : = a; a : = b; b : = t end; procedure shell(var a: vr); { сортировка методом шелла по убыванию } var i, j, step: integer; begin step : = n div 2; while step > 0 do begin for j : = n - step downto 1 do begin i : = j; while i < = n - step do begin if a[i].sum < a[i + step].sum then swp(a[i], a[i + step]); i : = i + step end end; step : = step div 2 end end; var a, c: tm; b: vr; i, j: integer; begin randomize; writeln('*** исходные элементы массива ***'); for i : = 1 to m do begin for j : = 1 to n do begin a[i, j] : = random(101) - 50; write(a[i, j]: 4) end; writeln end; { формируем вектор сумм по столбцам } for j : = 1 to n do begin b[j].sum : = sumcol(a, j); b[j].nom : = j; end; { сортируем полученный вектор по убыванию сумм } shell(b); { осуществляем перестановку во массив с} for j : = 1 to n do for i : = 1 to m do c[i, j] : = a[i, b[j].nom]; { копируем содержимое массива с в массив а } writeln('*** результирующие элементы массива ***'); for i : = 1 to m do begin for j : = 1 to n do begin a[i, j] : = c[i, j]; write(a[i, j]: 4) end; writeln end end. тестовое решение: *** исходные элементы массива *** -27 13 13 -15 8 27 28 -1 32 44 36 20 -39 45 -46 29 18 36 -14 -36 -5 35 36 -14 24 31 -19 -42 -34 -44 40 50 -21 -17 -30 37 -38 22 -46 9 -14 42 -10 1 30 41 -41 -21 21 39 -45 18 4 -3 *** результирующие элементы массива *** 8 32 28 -15 -1 -27 13 27 13 45 36 29 -39 18 44 36 -46 20 36 -19 24 35 31 -14 -36 -14 -5 50 37 -17 40 -30 -42 -34 -21 -44 -14 30 -10 9 1 -38 22 42 -46 39 -3 18 21 4 41 -41 -45 -21
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
alenalebedeva230.05.2020 03:40
-
steshagoncharov24.11.2020 07:56
-
Эльза13200408.10.2021 12:03
-
Margarita11mm17.03.2022 18:26
-
dianos200209.06.2020 10:19
-
Крис260905.07.2020 03:00
-
asverr27.07.2020 10:42
-
nasty28615.09.2022 04:32
-
ФархадАсланов05.01.2022 15:40
-
zarinadmitrievI21.12.2021 14:27
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.