массивы, удаление, вставка Опции

[Семен]

Интересно бы узнать следующее:

1) удаление строки, столбца из матрицы (не обнуление!)
2) вставка элемента (строки, столбца) в массив (одномерный, двумерный).
Заранее спасибо

Сообщение отредактировано: Семен - 7.12.2004 4:12

[volvo]

Семен
Значит, идеи такие. Чтобы удалить элемент из массива (одномерного), есть 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]

Семен

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.