Сформировать вектор D, состоящий из номеров строк, содержащих хотя бы один отрицательный элемент - Pascal

Узнай цену своей работы

Формулировка задачи:

выполнить с использованием процедуры ввод и вывод массивов и других данных не объединять с обработкой данных. Дана целочисленная матрица А размером 10х12. Сформировать вектор D, состоящий из номеров строк, содержащих хотя бы один отрицательный элемент. Использовать процедуру для формирования вектора.

Решение задачи: «Сформировать вектор D, состоящий из номеров строк, содержащих хотя бы один отрицательный элемент»

textual
Листинг программы
procedure vector(var x: matrix; var v: arr; var k: integer);
var i, j: integer;
begin
  k := 0;
  for i := 1 to 10 do
    for j := 1 to 12 do
      if x[i, j] < 0
        then begin
          inc(k);
          v[k] := i;
          break
        end
end;

Объяснение кода листинга программы

  1. Создается процедура vector, которая принимает три аргумента: переменную x типа matrix (матрица), переменную v типа arr (вектор) и переменную k типа integer (целое число).
  2. Внутри процедуры объявляются две переменные i и j типа integer (целое число) для использования в циклах.
  3. Затем идет внешний цикл, который выполняется 10 раз, представляющий каждую строку матрицы x.
  4. Внутри внешнего цикла идет вложенный цикл, который выполняется 12 раз, представляющий каждый элемент строки x.
  5. Внутри вложенного цикла проверяется, является ли текущий элемент строки x отрицательным числом.
  6. Если текущий элемент отрицательный, то увеличивается значение переменной k на единицу.
  7. Значение переменной k затем используется для определения индекса элемента в векторе v, который будет содержать отрицательные числа.
  8. Значение k присваивается вектору v с использованием оператора v[k].
  9. После проверки всех элементов строки x, цикл завершается.
  10. Процедура заканчивается без явных действий.

Оцени полезность:

11   голосов , оценка 3.818 из 5
Похожие ответы