- Код: Выделить всё
Sort()
$buf1=""
%buf2=0
%buf3=0
For #i=1 To #selAnt
For #j=1 To #selAnt-1-#i
Arrayread($MasText,#i,$textI)
Arrayread($MasText,#j,$textJ)
Arrayread(%MasX,#i,%xkoordinatI)
Arrayread(%MasX,#j,%xkoordinatJ)
Arrayread(%MasY,#i,%ykoordinatI)
Arrayread(%MasY,#j,%ykoordinatJ)
If ($textI<$textJ)
$buf1=$textI
$textI=$textJ
$textJ=$buf1
Arraywrite($MasText,#i,$textI)
Arraywrite($MasText,#j,$textJ)
%buf2=%xkoordinatI
%xkoordinatI=%xkoordinatJ
%xkoordinatJ=%buf2
Arraywrite(%MasX,#i,%xkoordinatI)
Arraywrite(%MasX,#j,%xkoordinatJ)
%buf3=%ykoordinatI
%ykoordinatI=%ykoordinatJ
%ykoordinatJ=%buf3
Arraywrite(%MasY,#i,%ykoordinatI)
Arraywrite(%MasY,#j,%ykoordinatJ)
EndIf
Endfor
Endfor
Endfunc
Это сортировка массива методом пузырька по алфавиту. Не могли бы вы помоч написать словесное описание алгоритма для этого куска программы.
Это язык APC-Macro