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

[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;

;)

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