@Seager1993

Разработать способ экономного размещения в памяти заданной разреженной таб-лицы. Разработать процедуры/функции, обеспечивающие доступ к элементам таблицы по номерам строки и столбца.
Для программной реализации лабораторной работы может быть предложен следу-ющий подход:
Программа состоит из основной программы и трех процедур/функций(*).

•Function NewIndex(y, x : integer) : integer; - функция выполняет переход от индексов в матрице - x,y - к одному индексу в одномерном массиве по форму-ле. Функция возвращает индекс для массива.

•Function PutTab(y,x,value : integer) : integer; - функция выполняет запись зна-чения value в сжатое представление матрицы на место, определяемое координа-тами x,y. Если координаты определяют место элемента, нулевого по определе-нию, запись не производится и функция возвращает 0, в противном случае она возвращает значение value.

•Function GetTab(y,x: integer) : integer; - функция возвращает значение, вы-бранное из матрицы по координатам x,y, в том числе и 0 для "пустых" мест матрицы.

(*) В рассматриваемом примере названия процедур/функций – условные.

Условие:

Все нулевые элементы расположены на главной диагонали и в верхней половине области выше диагонали

пример:

0 0 0 0 0
1 0 0 0 0
2 3 0 4 5
6 7 8 0 9
1 2 3 4 0

Примерно должно выглядить так (цифры от 1 до 9 могут быть любые и стоять только там где не стоит 0 в любом порядке)

Вернуться к обсуждению:
Все нулевые элементы матрицы расположить на главной диагонали и в верхней половине области выше нее Turbo Pascal

0