Помощь - Поиск - Пользователи - Календарь
Полная версия: массивы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Семен
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.