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

@Dooploop · Регистрация: 26.09.2019

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

@ZX Spectrum-128 · 21.12.2019, 17:38

Dooploop, не указана функция.

@Dooploop · 21.12.2019, 17:54 **[ТС]**

Нужно для произвольной функции

@ZX Spectrum-128 · 21.12.2019, 19:05

Pascal

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.

@Dooploop 0 / 0 / 0 Регистрация: 26.09.2019 Сообщений: 18
		1
	Найти элемент матрицы, для которого значение функции максимальное 21.12.2019, 15:01. Показов 466. Ответов 3 Метки паскаль abc.net (Все метки) как найти элемент матрицы для которого значение функции максимальное __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@ZX Spectrum-128 6803 / 4562 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	21.12.2019, 17:38	2
	Dooploop, не указана функция. 0

@Dooploop 0 / 0 / 0 Регистрация: 26.09.2019 Сообщений: 18
	21.12.2019, 17:54 [ТС]	3
	Нужно для произвольной функции 0

Опции темы