임진수 께서 말씀하시기를...

> 저는 7월 22일에 조사를 짜르는 알고리즘이 필요해서 질문을 올렸더니 아무도

> 답변을 해주지 않더군요.

> 결국은 현재 90%정도는 해결이 되어 가는데 아직 버그가 많이 남아서

> 좀더 손볼곳이 많답니다.

>

> 또 질문을 올리는데 이것도 답변이 없을 런지?

> 다름이 아니라 배열을 선언하고 나서

> 예)var

> ls : integer;

> a : array[0..100] of string;

> for j:=0 to 20 do

> begin

> for k:=j+1 to 20 do

> if a[j] = a[k] then

> ls := ls +1;

>

> 이렇게 비교를 해서 같으면 ls를 1씩 증가하고 나서

> a[k]를 삭제 하고 싶은데 어떻게 하면 삭제되는지?

> 삭제 하는 방법을 가르쳐 주십시오.

> 시간이 너무 없어서.....

> 상당히 급합니다.

> 그럼 답변을 손꼽아 기다리면서 좋은밤 좋은 꿈 가지시길..

>

>

>



임진수님 안녕하세요?

답변이 없었다면, 실제로 모르는 부분이라 없었던지,

아니면 질문을 이해를 하지 못한 경우일거라 생각합니다.



음..말씀하신 내용을 볼때,

k 라는 첨자변수는 1에서 20까지 증가하게 되어 있는데

항상 그런 건지요?

만약 그렇다면 간단히 아래처럼

for i:= 1 to 20 do a[k]:= ''; 하시면 되구요.

그렇지 않고 가변적이라면 k라는 첨자의 변화를

기억해둘 다른 변수가 하나 존재해야 할거 같네요.

어차피 배열이란 일련의 1차원적인 공간이

메모리에 나열되어 있는 것이기에 배열의 위치만 알수

있다면 언제든지 초기화 할수 있죠.

그럼.. 즐거운 프로그래밍 되시길~