Алгоритмы и программы. Афанасьева Т. В - 134 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

134
begin
for j:=1 to m do
begin
a[i,j]:=b[k];
k:=k+1;{обратная запись одномерного массива в двумерный}
write(a[i,j]:5);
end;
writeln;
end;
end.
Рассмотрим удаление или перенос одной или нескольких строк или
столбцов. Удалить – это значит выбрать некоторую строчку (столбец), на
ее (его) место записать следующую, сдвинув все строки вверх, а в
последнюю 0.
Пример:
исходный массив результат
a11 a12 a13 a11 a12 a13
a21 a22 a23 a31 a32 a33
a31 a32 a33 0 0 0
Здесь следует рассматривать двумерный массив как одномерный
,
элементами которого, в свою очередь, являются также одномерные
массивы. В этом случае удаление строки или столбца реализуется с
помощью аналогичных алгоритмов одномерного массива.
Пример 7.23. Удалить строку с номером k.
program mas6;
type
t=array[1..5] of integer;
var
a:array[1..5] of t;
i,j,k:byte;
begin
writeln('Дана матрица:');
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(10); {заполнение и вывод массива}
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j]:3);
writeln;
end;

Страницы