Дана квадратная матрица и вектор. Проверить, равен ли вектор какому либо столбцу или строке матрицы - 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 до 9.
- Выводит матрицу на экран.
- Запрашивает у пользователя вектор и вычисляет сумму его элементов.
- Сравнивает сумму элементов вектора с суммой элементов одной из строк или столбцов матрицы и выводит соответствующее сообщение.
- Повторяет шаг 4 для всех строк и столбцов матрицы.
- Выводит сумму элементов вектора.