Из каждой строки матрицы определить числа, которых нет в следующей строке, и записать их в одномерный массив - Turbo Pascal
Формулировка задачи:
доброго времени суток! помогите найти ошибку в задаче.
Задача:Создать матрицу B[1..N,1..M] из целых чисел. Из каждой строки матрицы определить числа, которых нет в следующей строке и записать их в одномерный массив.
выводит число только по предпоследней строчке последнего столбца.
Решение задачи: «Из каждой строки матрицы определить числа, которых нет в следующей строке, и записать их в одномерный массив»
textual
Листинг программы
program v; const M = 3; N = 3; var b: array[1..N,1..M] of integer; i, j, p, c,q: integer; x: array[1..N*M] of integer; isExist: boolean; begin for i := 1 to N do for j := 1 to M do read (b[i,j]); for i := 1 to N do begin for j := 1 to M do write (b[i,j]:5); writeln end; readln; c := 0; for i:=1 to N-1 do for j:=1 to M do begin p:=b[i,j]; isExist := false; for q:=1 to N do if p = b[i + 1, q] then begin isExist := true; break; end; if not isExist then begin c := c + 1; x[c] := p; end; end; if c=0 then write('Искомых элементоа нет') else begin writeln('Искомый массив'); for i:=1 to c do write(x[i]:5); end; readln end.
Объяснение кода листинга программы
В данном коде происходит следующее:
- Создается программа
v
. - Задаются константы M и N, которые определяют размер матрицы.
- Создается переменная b типа array[1..N,1..M] of integer, которая будет представлять матрицу.
- Создаются переменные i, j, p, c и q, которые будут использоваться для чтения и записи значений в матрицу.
- Числа из каждой строки матрицы записываются в массив x.
- Переменная c инициализируется нулем, так как изначально предполагается, что искомого элемента нет в матрице.
- В цикле происходит проверка наличия искомого элемента в матрице. Если его нет, то значение элемента записывается в массив x и переменная c увеличивается на единицу.
- После завершения цикла проверяется значение переменной c. Если оно равно нулю, то выводится сообщение о том, что искомых элементов нет. В противном случае выводится массив x.
- Программа завершается после вывода сообщения
Искомых элементоа нет
илиИскомый массив
.