где в этой процедуре происходит прересылка записей

← →
michael_b (2003-02-05 07:34) [0]

Напишите пожалуйста где в этой процедуре происходит прересылка записей
procedure StraightInsertion;
var I, J: Index; X: Item;
begin
for I:=2 to n do
begin
X:=A[I]; A[0]:=X; J:=I-1;
while X.Key < A[J].Key do
begin
A[J+1]:=A[J];
J:=J-1;
end;
A[J+1]:=X
end;
end;
Я считаю X:=A[I]; A[0]:=X; A[J+1]:=A[J]; A[J+1]:=X

← →
gek © (2003-02-05 07:43) [1]

А что означает А?

← →
michael_b (2003-02-05 08:05) [2]

> gek © (05.02.03 07:43)
> А что означает А?

Задание такое дан массив с ключами например 12, 1, 2, 5, 1000, 123 Как будет выглядить исходный массив после какой-то N-ой пересылке записей.

← →
michael_b (2003-02-05 08:24) [3]

Ну что не кто не может помочь?

← →
Anatoly Podgoretsky © (2003-02-05 09:07) [4]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1044389559&n=3

← →
michael_b (2003-02-06 14:03) [5]

> Anatoly Podgoretsky © (05.02.03 09:07)

не работает ссылка
Что трудно ответить что ли?

Пересылка в твоем случае происходит при любом присваивании.

← →
michael_b (2003-02-06 17:26) [7]

Прав.

где в этой процедуре происходит прересылка записей Найти похожие ветки