Swap, Help.Кому не лень Опции

[suriv]

Можно поподробнее про ф-цию swap:
В одной книге писалось про пузырьковую сортировку:

for i:=1 to 10 do
if m[i] > m[i+1] then swap (m[i],m[i+1]);

Но ведь у ф-ции swap должен быть один параметр.
В результатате чего вызывает ошибку.


З.Ы. как я понял ф-ция swap меняет местами....(какую то хрень).

Сообщение отредактировано: suriv - 26.11.2004 9:48

[volvo]

suriv
Не путай... В Паскале есть встроенная функция Swap, которая получает число типа Word или Integer, и меняет в нем старший и младший байты местами.
Для функции сортировки нужен другой Swap, который нужно писать самому - это должна быть процедура, которая обменивает значения 2-х переменных, т.е. вот так:

Код

Procedure Swap(a, b: Integer); {хотя тип может быть и другим}
 Var T: Integer;
 Begin
   T := a; a := b; b := T
 End;

Напиши эту процедуру перед процедурой сортировки, и не будет никаких ошибок :D

[Altair]

Да, совершенно верно.. можно вообще обойтись без вызова процедуры, хотя так код более структурирован.

Кстати здесь:

Код

T := a; a := b; b := T

Можно обойтись без дополнительной переменной T !

[volvo]

Oleg_Z
Для новичка лучше все-таки использовать Т

[Altair]

Зато:
1. меньше код.
2. быстрее.
3. меньше по размеру.
4. уже не будет новичком
5. Меньше памяти на 2 байта

:P

Но ведь у ф-ции

Кстати это процедура

[Digitalator]

!!! Самый быстрый своп:

Код

asm
xor a,b
xor b,a
xor a,b
end;

Не самый! Самый быстрый с использованием доп. переменной! ВFAQ'e доказательство!

Сообщение отредактировано: Oleg_Z - 3.04.2005 8:46

[murphy]

Можно обойтись без дополнительной переменной T !

Как?
А то я не помню а сам не додумаюсь нинак :p2:

[volvo]

murphy

Код

a := a + b;
b := a - b;
a := a - b;

:D

[murphy]

volvo

Спасибо
я приблизительно так и пытался но чего-то запутался
:D

[Digitalator]

Код

a := a + b;
b := a - b;
a := a - b;

Ксорами быстрее будит ... и красивее

p.S. неправда! Самый быстрый обмен с использованием доп. переменной. В FAQ'e есть доказательство.

Сообщение отредактировано: Oleg_Z - 3.04.2005 8:45

[CMOS]

Хорошо, а как написать процедуру для переменных любых типов? Т. е.:

procedure swap(var x, y)

Я нашел способ, только нужно указывать размер перемнной:

Код

Procedure Swap (var a, b; size: Word);
var p: Pointer;
Begin
GetMem (p, size);
Move (a, p^, size);
Move (b, a, size);
Move (p^, b, size);
FreeMem (p, size);
End;

;)

Код в теги заключаем...