Дана квадратная матрица и вектор. Проверить, равен ли вектор какому либо столбцу или строке матрицы - Pascal ABC

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

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

Дана квадратная матрица и вектор. Проверить, равен ли вектор какому либо столбцу или строке матрицы. Моя программа работает когда правильно а когда и нет. Наверное неправильно задано условие или цикл. Заранее спасибо.
Неужели никто не поможет?

Решение задачи: «Дана квадратная матрица и вектор. Проверить, равен ли вектор какому либо столбцу или строке матрицы»

textual
Листинг программы
uses crt;
const N = 10;
var arr:array[1..N,1..N] of integer;
    vec:array[1..N] of integer;
    i,j:integer;
    v1,v2:string;
begin
writeln('Матрица:');
for i:=1 to N do
 begin
  for j:=1 to N do
   begin
    arr[i,j]:=random(9)+1;
    write(arr[i,j],'  ');
   end;
 writeln();
 end;
Writeln('Введите вектор:');
for i:=1 to N do
read(vec[i]);
for i:=1 to N do
v1:=v1+inttostr(vec[i]);
for i:=1 to N do
 begin
  for j:=1 to N do
   begin
   v2:=v2+inttostr(arr[i,j])
   end;
  if v1=v2 then writeln('Вектор содержится в  ',i,' строке')
  else  writeln('Вектор содержится в  ',i,' строке');
  v2:='';
 end;
for j:=1 to N do
 begin
  for i:=1 to N do
   begin
   v2:=v2+inttostr(arr[i,j])
   end;
  if v1=v2 then writeln('Вектор содержится в ',j,' столбце')
  else  writeln('Вектор содержится в ',j,' столбце');
  v2:='';
 end;
end.

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

Этот код написан на языке Pascal ABC и выполняет следующие действия:

  1. Создает матрицу и вектор случайных чисел от 1 до 9.
  2. Выводит матрицу на экран.
  3. Запрашивает у пользователя вектор и вычисляет сумму его элементов.
  4. Сравнивает сумму элементов вектора с суммой элементов одной из строк или столбцов матрицы и выводит соответствующее сообщение.
  5. Повторяет шаг 4 для всех строк и столбцов матрицы.
  6. Выводит сумму элементов вектора.

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

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