이대선 wrote:

> 'CBAA'를 'AABC'로 쇼트 시키는 법을 알고 싶습니다.

>

> 꼭 좀 답변해 주세요..

>

> 좋은 하루 되세요.



위의 알고리듬이 참 잘되어 있네요... 참고로... 델파이 문자열은



배열로 엑세스 할수 있다는거 아시죠? 모르시나.. 쿠쿠..



SS := 'ABCDEFG' 면 SS[1] 은 Char 문자로 A 가 되지요.. 이것도 위의 알고리듬을 사용하실때 참고 하시면 좋겠네요.. ^^

이대선 wrote:

> 'CBAA'를 'AABC'로 쇼트 시키는 법을 알고 싶습니다.

>

> 꼭 좀 답변해 주세요..

>

> 좋은 하루 되세요.



안녕하세요 김영대입니다

아래는 숫자 배열의 Shell Sort algorithm 인데 조금 고치시면

문자열에도 적용할 수 있을 겁니다



procedure ShellSort(VAR: a: array of word);

var

bis,i,j,k : LongInt;

h: word;

begin

bis := high(a);

k := bis shr 1;

while k > 0 do

begin

for i := 0 TO bis - k do

begin

j := i;

while (j <= 0) and (a[j] > a[j+k]) do

begin

h := a[j];

a[j] := a[j+k];

a[j+k] := h;

if j > k then

dec(j, k)

else

j := 0;

end;

end;

k := k shr 1;

end;

end;