Образец решения задачи

Задача № 1. Вставьте в двумерный массив строку из нулей после строки с номером t.

Постановка задачи

В задаче опишем два модуля. В первом модуле опишем объекты программы, которые будут использоваться не только в основной программе, но и в других модулях. Во втором модуле будут находиться процедуры обработки данных.

Функциональная структура алгоритма

Текст программы.

Модуль 1.

unit op;

Interface

Const

n=100; // количество строк

m=80; // количество столбцов

Type

tVector= array [1..n] of integer; // описана строка таблицы

tMatrix= array [1..m] of tVector; // описана матрица состоящая их n строк

Implementation

End.

Модуль 2.

unit sdvig;

Interface

uses op;

procedure ZapolMatrix(var X: tMatrix; L, H: integer);

procedure Vivod(X: tMatrix);

procedure SdvigStr (var A: tMatrix; t: integer);

procedure ZapolVector(var A: tVector; val: integer);