Технология выполнения индивидуальных заданий. Часть 1 - 37 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

37
Задача 11 Удалить из матрицы строки и столбцы, на пересечении которых
находится заданный элемент.
Входные данные:
n, m – количество строк и столбцов матрицы,
а – матрица целых чисел,
x – заданное значение.
Выходные данные: а – матрица целых чисел.
Метод решения
Используются следующие процедуры:
– Poisk – процедура поиска заданного значения x в матрице а: если эле-
мент x найден, то i,j определяют место расположение его в матрице, ес-
ли элемент
x не найден, то i принимает значение n+1
procedure Poisk(n, m:integer; const a:matr; x:T_El;
var i,j:integer);
– Delet_El – процедура удаление из матрицы ki – той строки и kj –
того столбца
procedure Delet_El(ki,kj:integer;
var n,m:integer; var a:matr);
Метод решения задачи сводится к поиску значения x в матрице а и удале-
нию i – той строки и j – того столбца до тех пор, пока i ≠ n+1.
Текст программы
program Matr_2;
const nmax= 10;
type T_El= integer;
matr= array[1..nmax,1..nmax] of T_El;
var a: matr;
n,m,i,j: integer;
x: T_El;

Страницы