Lời nói đầu
Với tốc phát triển hiện nay thì môn tin học trở thành một môn học không
thể thiếu trong các trường phổ thông và các trường đại học. Cuốn sách Cấu Trúc
Dữ Liệu và Giải Thuật của PGS. Đỗ Xuân Lôi đã trở thành tài liệu học tập và
tham khảo của sinh viên ngành công nghệ thông tin ở nhiều cơ sở đào tạo Cao
Đẳng, Đại Học và sau Đại Học.
Để việc học môn này trở nên dễ dàng hơn em đã viết lại một số thuật toán trong
sách dưới dạng các Unit.
Phần 1:Yêu cầu của đề:
Viết unit các thuật toán trong sách cấu trúc dữ liệu và giải thuật bằng ngôn
ngữ Pascal
Phần 2: Giới thiệu chi tiết đề tài
Chương 1: Tổng Quan:
I. Công việc đã làm
1. Tiến trình công việc:
• Trong thời gian 2 tuần đầu của thực tập em đã nghiên cứu một
số vấn đề quan trọng và căn bản có ý nghĩa trong việc thực hiện
yêu cầu đã đặt ra của đề tài.
• Các unit và menu chương trình được viết trong tuần thứ 3 và
hoàn thành trong tuần 4.
• Tuần 5 viết báo cáo và chỉnh sửa giao diện chương trình
2. Công việc cụ thể:
• Dưới sự hướng dẫn tận tình của thầy Phạm Đức Khánh, sau 5
tuần : từ ngày 12-4-2005 đến ngày 16-5-2005 em đã làm được
các công việc như sau:
1. Đệ quy: Viết Unit dequy gồm các thủ tục
• N!
• Fibonacci
• Bài Toán Tháp Hà Nội
• Bài Toán Xếp 8 Hậu
2. Sắp xếp: Viết Unint sapxep gồm các phương pháp

3
8. Call_Insert: Gọi thủ tục Insert_Sort trong Unit SX_va_TK.tpu để Sắp
xếp theo phương pháp thêm dần
9. Call_Bubble: Gọi thủ tục Bubble_Sort trong Unit SX_va_TK.tpu để Sắp
xếp theo phương pháp nổi bọt
10.Call_Quick: Gọi thủ tục Quick_Sort trong Unit SX_va_TK.tpu để Sắp
xếp theo phương pháp sắp xếp nhanh
11.Call_Heap: Gọi thủ tục Head_Sort trong Unit SX_va_TK.tpu để Sắp xếp
theo phương pháp vun đống
12.Call_Mergring: Gọi thủ tục Mergring_Sort trong Unit SX_va_TK.tpu để
Sắp xếp theo phương pháp hoà nhập
13.Call_TimTuanTu: Gọi thủ tục Sequen_Search trong Unit
SX_va_TK.tpu để tìm vị trí của một số trong dãy đã cho theo phương
pháp tìm kiếm tuần tự.
14.Call_TimNhiPhan: Gọi thủ tục Binary_Search trong Unit
SX_va_TK.tpu để tìm vị trí của một số trong dãy đã cho theo phương
phán tìm vị trí của một số trong dãy đã cho theo phương phán tìm kiếm
Nhị Phân
15.Call_DoiCoSo: Gọi thủ tục DoiCoSo trong Unint Stack.tpu để đổi một số
từ số hệ 10 sang hệ bất kỳ < 10.
4
Chương 3 Chi tiết các modul :
1. n!:
Begin
Nhập N
K= 1
I = 2
K: = k*i
I: =i+1
I > N

True
False
N<>0
N
7
Begin
True
False
N
I = 1
m = i
j = i+1
a[j] < a[m]
m = j
j = j+1
I > N
m <> i
True
True
M <> i
Đổi Chỗ a[j] ,
a[m]
I = i + 1
i > n - 1
False
False
False
END
8
4. Select_Sort: