Автор: Семен 7.12.2004 4:11
Интересно бы узнать следующее:
1) удаление строки, столбца из матрицы (не обнуление!)
2) вставка элемента (строки, столбца) в массив (одномерный, двумерный).
Заранее спасибо
Автор: volvo 7.12.2004 4:33
Семен
Значит, идеи такие. Чтобы удалить элемент из массива (одномерного), есть 2 пути:
1. Массив статический:
Код
Var Arr: Array[1 .. 20] Of Integer;
Естественно, удалить из такого массива, например, 5-ый элемент и продолжить работу как с массивом уже из 19-ти элементов не удастся. Но можно сделать по-другому:
Код
Var
Arr: Array[1 .. 20] Of Integer;
Const
{ Вся работа с массивом - через переменную Size }
Size: Integer = 20;
Begin
{ Если нужно удалить 5-ый элемент: сдвигаем массив на 1 элемент вниз }
Move(Arr[6], Arr[5], (Size - 5)*SizeOf(Integer));
{ "Уменьшаем" размер массива }
Dec(Size);
{ Продолжаем работать с массивом (опять через переменную Size,
она уже равна 19) }
End.
2. Массив динамический. В ФАКе есть пример модуля для работы с динамическим массивом...
Автор: mithquessir 8.12.2004 2:07
Семен
Цитата
2) вставка элемента (столбца) в массив (двумерный)
Код
uses crt;
const
n = 5;
a:array[1..n] of integer = (1,2,3,4,5);
var
x:array[1..n,1..n+1] of integer;
i,j,num:integer;
begin
ReadLn(num);
for i := 1 to n do
for j := 1 to n do
x[i,j] := random(100);
for i := 1 to n do
begin
for j := n downto num do
x[i,j+1] := x[i,j];
x[i,num] := a[i];
end;
clrscr;
for i := 1 to n do
for j := 1 to n+1 do
begin
if j = num then textcolor(15)
else textcolor(7);
GoToXY(j*num,i*5);
Write(x[i,j]);
end;
end.