Скачать: CL | DM;

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

← →
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)

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

---

← →
uw ©   (2003-02-06 14:28) [6]

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

---

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

> uw © (06.02.03 14:28)

Значит я прав?

---

← →
uw ©   (2003-02-06 17:40) [8]

Прав.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.986 c