Поиск минимального нечётного элемента строки матрицы

@Unit8379 · Регистрация: 07.11.2018

Author24 — интернет-сервис помощи студентам

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

Pascal

program lab2;
uses crt;
const nmax = 10;
type 
  matrix = array [1..nmax, 1..nmax] of integer;
  vector = array [1..nmax] of integer;
  
var
  A: matrix;
  V: vector;
  n, m, i, j, min, ij, nz, first: integer;
  min1, null, i_s, j_s, index1: string;
  
procedure InputMatr(var A: matrix; n, m: integer);
  var i, j: integer;
  begin
    for i := 1 to n do
      for j := 1 to m do begin
        gotoxy(6 * j, 6 + i);
        readln(A[i,j]);
      end;
  end;      
  
begin
  writeln('Введите количество строк матрицы:');
  readln(n);
  writeln('Введите количество столбцов матрицы:');
  readln(m);
  writeln('Введите элементы матрицы');
  InputMatr(A, n, m);
  writeln();
  writeln('Получим из введённой матрицы вектор, состоящий из номеров');
  writeln('индексов минимальных нечётных элементов каждой строки.');
  writeln();
  
 
  for i := 1 to n do begin
    if A[i,1] mod 2 = 1 then min := A[i,1]
    else
      for j := 2 to n do begin
        if A[i,j] mod 2 = 1 then begin
        min := A[i,j];
        break;
        end
        else min := 2;
      end;
    for j := 1 to m do begin
      if (A[i,j] mod 2 = 1) and (A[i,j] < min) then min := A[i,j]
    end;
    if (min mod 2 = 1) then begin
      for j := 1 to m do begin
        if (A[i,j] = min) then
        str(i, i_s); str(j, j_s);
        index1 := i_s + j_s;
        val(index1, ij, nz);
        V[i] := ij;
      end;
    end
    else V[i] := 0;
  end;
  for i := 1 to n do
    write(V[i]:5);
  
  writeln();
  writeln();
  writeln('Количество векторных элементов, равных предыдущему элементу:');
  writeln();
  
  for i := 2 to n do begin
    first := 0;
    if V[i] = V[i-1] then first := first + 1;
  end;
  writeln('Количество элементов, равных предыдущему: ' + first);
  writeln();
  
end.

@JuriiMW · 07.11.2018, 17:00

А зачем такие изыски в поиске минимума?
Ведь для достаточно пройтись один раз по каждой строке…

А при поиске равных предыдущему, вы на каждом шаге обнуляете результат!

Pascal

//program lab2;
//uses crt;
const nmax = 10;
type 
  matrix = array [1..nmax, 1..nmax] of integer;
  vector = array [1..nmax] of integer;
  
var
  A: matrix;
  V: vector;
  n, m, i, j, min, ij, nz, first: integer;
  min1, null, i_s, j_s, index1: string;
  
procedure InputMatr(var A: matrix; n, m: integer);
  var i, j: integer;
  begin
    for i := 1 to n do
      for j := 1 to m do begin
        //gotoxy(6 * j, 6 + i);
        a[i,j]:=Random(-10,10);//readln(A[i,j]);
      end;
      
    for var row := 1 to n do
      begin
        for var col := 1 to m do
          Write(a[row, col]:3);
        WriteLn;
      end;
  end;      
  
begin
  writeln('Введите количество строк матрицы:');
  n:=5;//readln(n);
  writeln('Введите количество столбцов матрицы:');
  m:=7;//readln(m);
  writeln('Введите элементы матрицы');
  InputMatr(A, n, m);
  writeln();
  writeln('Получим из введённой матрицы вектор, состоящий из номеров');
  writeln('индексов минимальных нечётных элементов каждой строки.');
  writeln();
  
 
  for var row := 1 to n do
    begin
      v[row] := 0; // предположим, что нет нечётных
      for var col := 1 to m do
        if odd(a[row, col]) then // встретили нечётный
          if v[row] = 0 then // это первый нечётный
            v[row] := col
          else
            if a[row, v[row]] > a[row, col] then // а этот меньше
              v[row] := col;
    end;
    
  for i := 1 to n do
    write(V[i]:5);
  
  writeln();
  writeln();
  writeln('Количество векторных элементов, равных предыдущему элементу:');
  writeln();
  
  var count := 0;
  for i := 2 to n do
    if V[i] = V[i-1] then
      count += 1;
  writeln('Количество элементов, равных предыдущему: ' + count);
  writeln();
  
end.

P.S. Использование CRT затрудняет отладку.
Украшательства можно „навешивать“ только после того, как основной алгоритм программы отлажен.

@Unit8379 · 07.11.2018, 19:14 **[ТС]**

Сообщение от JuriiMW

А зачем такие изыски в поиске минимума?
Ведь для достаточно пройтись один раз по каждой строке…

А при поиске равных предыдущему, вы на каждом шаге обнуляете результат!

Pascal

//program lab2;
//uses crt;
const nmax = 10;
type 
  matrix = array [1..nmax, 1..nmax] of integer;
  vector = array [1..nmax] of integer;
  
var
  A: matrix;
  V: vector;
  n, m, i, j, min, ij, nz, first: integer;
  min1, null, i_s, j_s, index1: string;
  
procedure InputMatr(var A: matrix; n, m: integer);
  var i, j: integer;
  begin
    for i := 1 to n do
      for j := 1 to m do begin
        //gotoxy(6 * j, 6 + i);
        a[i,j]:=Random(-10,10);//readln(A[i,j]);
      end;
      
    for var row := 1 to n do
      begin
        for var col := 1 to m do
          Write(a[row, col]:3);
        WriteLn;
      end;
  end;      
  
begin
  writeln('Введите количество строк матрицы:');
  n:=5;//readln(n);
  writeln('Введите количество столбцов матрицы:');
  m:=7;//readln(m);
  writeln('Введите элементы матрицы');
  InputMatr(A, n, m);
  writeln();
  writeln('Получим из введённой матрицы вектор, состоящий из номеров');
  writeln('индексов минимальных нечётных элементов каждой строки.');
  writeln();
  
 
  for var row := 1 to n do
    begin
      v[row] := 0; // предположим, что нет нечётных
      for var col := 1 to m do
        if odd(a[row, col]) then // встретили нечётный
          if v[row] = 0 then // это первый нечётный
            v[row] := col
          else
            if a[row, v[row]] > a[row, col] then // а этот меньше
              v[row] := col;
    end;
    
  for i := 1 to n do
    write(V[i]:5);
  
  writeln();
  writeln();
  writeln('Количество векторных элементов, равных предыдущему элементу:');
  writeln();
  
  var count := 0;
  for i := 2 to n do
    if V[i] = V[i-1] then
      count += 1;
  writeln('Количество элементов, равных предыдущему: ' + count);
  writeln();
  
end.

P.S. Использование CRT затрудняет отладку.
Украшательства можно „навешивать“ только после того, как основной алгоритм программы отлажен.

Спасибо огромное за алгоритм! Всё отлично работает, но я всё-таки хочу получить в одномерном массиве индексы элементов в виде "row,col", т.е. получить в качестве элемента двузначное число, показывающее строку и номер столбца минимального нечётного элемента матрицы. Я не пытаюсь заставить вас помочь мне, но в нужном мне виде массив я всё ещё не могу получить, но за алгоритм нахождения спасибо!

@JuriiMW · 08.11.2018, 04:59

Сообщение от Unit8379

получить в качестве элемента двузначное число, показывающее строку и номер столбца

— Ни чё не понял! /Приключения колобков/

У вас ведь каждый элемент вектора однозначно относится к конкретной строке массива.
Так зачем хранить координаты, когда достаточно именно индекс в строке…

P.S. Я описываю переменные row и col именно так, чтобы не путать какая из них к чему относится, в отличие от ваших i и j.

@JuriiMW 5079 / 2651 / 2349 Регистрация: 10.12.2014 Сообщений: 10,028
	08.11.2018, 04:59	4
	Сообщение от Unit8379 получить в качестве элемента двузначное число, показывающее строку и номер столбца — Ни чё не понял! /Приключения колобков/ У вас ведь каждый элемент вектора однозначно относится к конкретной строке массива. Так зачем хранить координаты, когда достаточно именно индекс в строке… P.S. Я описываю переменные row и col именно так, чтобы не путать какая из них к чему относится, в отличие от ваших i и j. 1

Поиск минимального нечётного элемента строки матрицы

Решение