Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 26.09.2019
Сообщений: 18

Найти элемент матрицы, для которого значение функции максимальное

21.12.2019, 15:01. Показов 836. Ответов 3

Студворк — интернет-сервис помощи студентам
как найти элемент матрицы для которого значение функции максимальное
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
21.12.2019, 15:01
Ответы с готовыми решениями:

Для каждого столбца заданной матрицы Т(5,3) найти и напечатать элемент, значение которого максимально
Составить программу в системе Mathcad для заданной матрицы. Для каждого столбца заданной матрицы Т(5,3) найти и напечатать элемент,...

Найти максимальное значение элемента матрицы, указать его координаты и подсчитать сумму строки матрицы, содержащей максимальный элемент
Здраствуйте форумчане, помогите выполнить задание. Из 25 положительных, отрицательных и нулевых значений чисел сформируйте матрицу 5х5....

По заданному x найти максимальное значение n, для которого следующая сумма не превосходит 100
Всем доброго времени суток, помогите, пожалуйста, задачка очень простая, но никак не могу понять, как это сделать( По заданному x найти...

3
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
21.12.2019, 17:38
Dooploop, не указана функция.
0
0 / 0 / 0
Регистрация: 26.09.2019
Сообщений: 18
21.12.2019, 17:54  [ТС]
Нужно для произвольной функции
0
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
21.12.2019, 19:05
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
const
  n = 6;
  m = 8;
 
var
  i, j, k, l: integer;
  max, maxi, maxy: integer;
  x: array [1..n, 1..m] of integer;
 
function f(x: integer): integer;
begin
  f := x + 1;
end;
 
begin
  randomize;
  for i := 1 to n do
    for j := 1 to m do x[i, j] := random(100);
  for i := 1 to n do 
  begin
    for j := 1 to m do write(x[i, j]:4);
    writeln;
  end;
  max := f(x[1, 1]);
  maxi := 1;
  maxy := 1;
  for i := 1 to n do
    for j := 1 to m do 
    begin
      if f(x[i, j]) > max then begin
        max := f(x[i, j]);
        maxi := i;
        maxy := j;
      end;
    end;
  writeln;
  writeln('Максимальное значение функции равно:', max);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
21.12.2019, 19:05
Помогаю со студенческими работами здесь

Найти максимальное значение матрицы, первый элемент равный максимальному уменьшить на 10
Дан двухмерный массив найти максимальное значение, первый элемент равный максимальному уменьшить на 10, последний увеличить на 5. Dev 5.4. ...

Найти такой X, для которого Y имеет максимальное значение (без подзапросов, order by и view)
Добрый день. Подскажите пожалуйста как решить. таблица: table test id:integer x:integer y:integer Данные в таблице x...

Найти максимальное значение среди всех элементов тех строк матрицы, в которых максимальный элемент в строке в
Дана вещественная матрица А размером MxN, все элементы которой различны. Найти максимальное значение среди всех элементов тех строк...

Найти такой элемент главной диагонали матрицы, чтобы он имел значение максимальное в строке и минимальное в столбце
ввести с клавиатуры значения матрицы Л (11, 11) произвольного размера n * n, где n <= 11. Найти элемент с главной диагонали такой, чтобы...

дан массив чисел, найти значение функции y=x^3+5 для каждого числа; минимальное и максимальное значение; их сумму.
Здравствуйте, помогите пожалуйста написать программу. Задание: дан массив чисел, найти значение функции y=x^3+5 для каждого числа;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru