Функция скопировать элементы одного массива в другой

@Katrinmueller · Регистрация: 03.12.2020

Здравствуйте! Помогите решить задачу.
Есть типы

Pascal

1 2	TIndex = 0..29; TNumbers = array [TIndex] of integer;

Нужно написать следующую функцию

Pascal

1	function arraycopy (First : TNumbers; FirstStart : TIndex; var Second : TNumbers; SecondStart : TIndex;N : integer): boolean;

Функция должна копировать элементы из массива First, начиная с FirstStart и вставлять их в массив Second, начиная с SecondStart. Всего должно быть скопировано N элементов.
Надо сначала проверить, не переходят ли числа, переданы на FirstStart, SecondStart и N, границы заданные TIndex. Если да, то функция должна выдать ошибку (writeln) и результат функции будет false. Если копирование было успешным, то результат функции будет true.

Спасибо заранее)

@bormant · 16.01.2021, 13:12

Pascal

type
  TIndex = 0..29;
  TNumbers = array [TIndex] of Integer;
 
function ArrayCopy(
  const First: TNumbers; FirstStart: TIndex; 
  var Second: TNumbers; SecondStart: TIndex; N: Integer): Boolean;
begin
  ArrayCopy:=False;
  if (N>0) and
    (FirstStart       in [Low(TIndex)..High(TIndex)]) and
    (SecondStart      in [Low(TIndex)..High(TIndex)]) and
    (-1+N+FirstStart  in [Low(TIndex)..High(TIndex)]) and
    (-1+N+SecondStart in [Low(TIndex)..High(TIndex)])
  then begin
    for n:=0 to n-1 do Second[SecondStart+n]:=First[FirstStart+n];
    ArrayCopy:=True;
  end else
    WriteLn('*** error: ArrayCopy: wrong parameters');
end;

Добавлено через 9 минут
Если при N=0 ошибки не должно быть:

Pascal

function ArrayCopy(
  const First: TNumbers; FirstStart: TIndex; 
  var Second: TNumbers; SecondStart: TIndex; N: Integer): Boolean;
begin
  ArrayCopy:=False;
  if (N>=0)
    (FirstStart    in [Low(TIndex)..High(TIndex)]) and
    (SecondStart   in [Low(TIndex)..High(TIndex)]) and
    (N+FirstStart  in [Low(TIndex)..High(TIndex)+1]) and
    (N+SecondStart in [Low(TIndex)..High(TIndex)+1])
  then begin
    for n:=0 to n-1 do Second[SecondStart+n]:=First[FirstStart+n];
    ArrayCopy:=True;
  end else
    WriteLn('*** error: ArrayCopy: wrong parameters');
end;

Добавлено через 1 минуту
Условия первого варианта можно переписать аналогично, без -1.

@Katrinmueller · 16.01.2021, 14:00 **[ТС]**

Спасибо!
А можете ещё объяснить, что значит эта проверка
(N+FirstStart in [Low(TIndex)..High(TIndex)+1]) and
(N+SecondStart in [Low(TIndex)..High(TIndex)+1]).
Не очень понимаю.

@bormant · 16.01.2021, 16:58

Из исходного массива копируются элементы с FirstStart по FirstStart+N-1, это значит, что FirstStart+N-1 должен быть допустимым индексом массива, соответственно, в первом приближении
FirstStart+N-1 in [Low(TIndex)..High(TIndex)]
или, что чуть лучше
N+FirstStart in [Low(TIndex)..High(TIndex)+1]

Аналогично и для второго случая.

@Katrinmueller 0 / 0 / 0 Регистрация: 03.12.2020 Сообщений: 12
	16.01.2021, 14:00 [ТС]	3
	Спасибо! А можете ещё объяснить, что значит эта проверка (N+FirstStart in [Low(TIndex)..High(TIndex)+1]) and (N+SecondStart in [Low(TIndex)..High(TIndex)+1]). Не очень понимаю. 0

@bormant Модератор 5666 / 3386 / 2424 Регистрация: 22.11.2013 Сообщений: 9,513 Записей в блоге: 1
	16.01.2021, 16:58	4
	Из исходного массива копируются элементы с FirstStart по FirstStart+N-1, это значит, что FirstStart+N-1 должен быть допустимым индексом массива, соответственно, в первом приближении FirstStart+N-1 in [Low(TIndex)..High(TIndex)] или, что чуть лучше N+FirstStart in [Low(TIndex)..High(TIndex)+1] Аналогично и для второго случая. 1

Опции темы

Функция скопировать элементы одного массива в другой

Решение