[프로그램언어론] [PASCAL] 배열 이진탐색트리 삽입, 삭제, 탐색 프로그램
등록일 / 수정일- 페이지 / 형식
- 자료평가
- 구매가격
- 2007.10.16 / 2019.12.24
- 10페이지 /
zip (압축파일) - 평가한 분이 없습니다. (구매금액의 3%지급)
- 1,500원
![[프로그램언어론] [PASCAL] 배열 이진탐색트리 삽입, 삭제, 탐색 프로그램](/images/common/image_sample.gif)
추천 연관자료
- 하고 싶은 말
-
파스칼로 구현한 배열 이진탐색트리 프로그램
삽입, 삭제, 탐색 연산 수행
- 목차
-
Ⅰ. 프로그램 소스
Ⅱ. 프로그램 설계 구현에 관한 설명
1. 목적 프로그램
2. 자료 저장 방식
3. 이진탐색트리의 설계 및 구현
(1) 트리 저장 구조 결정 및 초기화
(2) 삽입 연산
(3) 탐색 연산
(4) 삭제 연산
Ⅲ. 테스트 방법 및 실행결과
1. 테스트 데이터
2. 삽입 연산 수행 결과
3. 탐색 연산 수행 결과
4. 삭제 연산 수행 결과
Ⅳ. 느낀점 및 기타
- 본문내용
-
program BSTree;
uses
Crt;
const
MAXSIZE = 100; (*트리의 사이즈*)
type
element = record (*트리의 노드로 쓰일 레코드*)
id : integer;
name : string[10];
value : char;
end;
Tree = array[1..100] of element;
var
BST : Tree; (*이진탐색트리가 될 전역 변수 선언*)
select : integer;
procedure initSet_set(); (*이진탐색트리 초기화*)
var
i : integer;
begin
for i := 1 to MAXSIZE do
begin
BST[i].id := 0;
end; (*end of for*)
end;
Function Get_Element(var a : element) : element;
(*이진탐색트리의 노드를 구성하는 구조체의 정보를 입력받는 함수*)
begin
Writeln('Input ID : '); (*id를 입력 받음*)
Read(a.id); Readln;
Writeln('Input NAME : '); (*name을 입력받음*)
Readln(a.name);
Writeln('Input VALUE : '); (*value를 입력받음*)
Readln(a.value);
Get_Element := a;
end;
Function isMember(var a : element) : integer;
(*파라미터로 받은 노드가 현재 이진탐색트리에 존재하는지 탐색하
여 그 결과를 반환하여 준다. 반환되는 값은 탐색이 종료된 트리상의
위치이며, 이를 이용하여 여러가지 작업을 할 수 있게 하기 위함이다.*)
var
cnt : integer;
done : boolean;
begin
cnt := 1;
done := true;
while (cnt <= MAXSIZE) AND (done) do (*트리에 탐색할 노드가 남아있는 경우는 계속 탐색*)
begin
자료평가
-
아직 평가한 내용이 없습니다.
